CriptogMem

[Itamar M. Lins Jr.]

Olá!

@ Row(), 0 say "*** AGUARDE..."
defa:= SubStr(Str(defa / 100, 4, 2), 3, 2)
dadop:= demo + Str(qtde, 3) + dtvl + defa + Str(indmat, 2)
arqo:= "SPAG41.OVL"

arqi:= Trim(LTrim(arqi))
arqo:= Trim(LTrim(arqo))

Pois é vc tem uma função fazovl, depois já é faz mem... fala de salvar arquivo memo... Ai postou uma coisa zipou outra...

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Parece que é mem, mas usa fopen, fclose... Umas "ténicas" estranhas para mim.
if (fwrite(ho, nwbuf, nblidos) < nblidos)
? " ERRO DE GRAVACAO", ferror()
endif

Isso é mais do tempo do Clipper, pra gravar a string que tem uma quantidade de caracteres, e testar se o que foi gravado continua com a mesma quantidade. Coisa que no Harbour pode fazer em memória e depois usar MemoWrit().

É um arquivo texto, e chamar de MEM, OVL, etc. é pra confundir quem olha, porque vê um nome mas o conteúdo é outro.

Me parece que o conteúdo de tudo pode estar interligado.
Talvez dependa de arquivo anterior pra gerar o atual.

[JoséQuintas]

Mas.... porque está precisando gerar pra nova empresa? já não tinha lá o arquivo pronto?

[JoséQuintas]

[jairfab]

Empresa mudou a razao social e tambem de ltda para s/a
Eu precizava levar os dados atualizados da tabela empresas.dbf para o arquivo txt

[Softwhouse]

Ví alguma coisa parecida lá pelos anos 1995. Era para criptografar o aplicativo no nome da empresa. Se alterasse o nome no dbf validava com o arquivo existente.

[JoséQuintas]

Mas pera lá.....

Se o aplicativo é em Clipper, porque função de criptografia usando função de criptografia do XHarbour?
Com certeza Clipper não usava essa função.
hb_Crypto...()

[jairfab]

Por que tentei compilar já em harbour ... no clipper só roda em maquina de 32
Depois que funcionar ai vou compilar com harbour + fivewin

[JoséQuintas]

mas no Clipper não existe essa função.
Significa que a rotina já não é a mesma original.
E deve calcular valor diferente.

[Nascimento]

jair , observei que no zip vc mexeu no fazovl() , eu adoro criptografia, mais teria que ser da maneira original, vc teria como mandar o arquivo , da maneira que foi decompilado?, porque mexido sempre tem algumas duvidas em quem vai estuda-lo

mais pelo que eu entendi o SPAG0.MEM é um arquivo que é criado por outro .exe que guarda as informações, ele é aberto para comparar, e a coisas aqui no codigo
que não fazem sentido algum, então ou falta algum pedaço, ou foi alterado...