CriptogMem

[jairfab]

Ok!

Mas o problema que estou usando clipper puro e nem usa código de pagina conforme exemplo em anexo

Acho que deve ser algum erro de logica mesmo.

[Itamar M. Lins Jr.]

Olá!

Acho que deve ser algum erro de logica mesmo.

Então esse código nunca funcionou ?
Pensei que era um código antigo do clipper que roda e que vc tinha compilado com o Harbour.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Outra coisa, aqui com o harbour rodou sem nenhum problema.
Eu não uso xHb... nem BCC. Não posso te ajudar neste ponto.

Saudações,
Itamar M. Lins Jr.

[jairfab]

Aqui roda normal também o problema é que não altera os dados tipo cadastro de empresa no arquivo .mem o arquivo de saída ficar 100% igual ao arquivo de entrada ou seja não entra as modificações no arquivo de saída que deveria ficar igual aos dados existentes na tabela dbf... OBJETIVO SERIA TROCAR OS DADOS DO ARQUIVO .MEM PELOS DADOS DA TABELA DBF.

[JoséQuintas]

Fonte ruim, e parece fonte recuperado a partir do EXE.

Muito ruim pesquisar no fonte.

Em que parte do fonte salva no arquivo MEM ?

[ivanil]

Mensagempor jairfab » 23 Fev 2023 08:39
qui roda normal também o problema é que não altera os dados tipo cadastro de empresa no arquivo .mem o arquivo de saída ficar 100% igual ao arquivo de entrada ou seja não entra as modificações no arquivo de saída que deveria ficar igual aos dados existentes na tabela dbf... OBJETIVO SERIA TROCAR OS DADOS DO ARQUIVO .MEM PELOS DADOS DA TABELA DBF.

Pode ter me passado despercebido, "a gente fica meio cegueta com o tempo"... mas não identifiquei no código o momento que você diz para o salvar o .mem.

[JoséQuintas]

Código: Selecionar todos

   @  0,  1 say "ARQ.INPUT.:" get ARQI
   @  1,  1 say "EMPRESAS..:" get EMPR
   @  2,  1 say "VALIDADE..:" get DTVL picture "@E"
   @  3,  1 say "DEMONS.?..:" get DEMO
   read
   readkill(.T.)
   getlist:= {}

Por exemplo esses ReadKill(.T.) e GetList := {}
Nesse lugar são coisas idiotas e inúteis, talvez tentativa de resolver outro problema por falta de declaração LOCAL de GetList.
O que mais tem no fonte é isso.

O próprio READ já faz essas duas coisas.
Talvez estejam aí por ser fonte recuperado a partir do EXE.

Nem vou tentar olhar todo fonte, então, pra facilitar:
Se o problema é salvar no arquivo MEM, mostre em quais posições do fonte salva no arquivo MEM.

[JoséQuintas]

Acrescentando:

O que salva em arquivo MEM é SAVE, mas não tem nenhum SAVE no fonte.
Me limitei a pesquisar a palavra SAVE.

[Itamar M. Lins Jr.]

Olá!

Nem vou tentar olhar todo fonte, então, pra facilitar:

Não é ? Larguei de mão... Muita coisa pra lê... Das antigas... Pensei até que era fonte original... mas é arquivo .exe VALKIRIZADO !?

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Parece que é mem, mas usa fopen, fclose... Umas "ténicas" estranhas para mim.

Código: Selecionar todos

      if (fwrite(ho, nwbuf, nblidos) < nblidos)
	         ? " ERRO DE GRAVACAO", ferror()
	      endif

fonte original das funcoes em anexo juntamente com a tabela dbf onde fica o cadastro da empresa e arquivo tipo .mem

Tá cheio de artistas... nem leu o fonte ? não sabe como grava ? Tá bagunçando com a amizade ?

Saudações,
Itamar M. Lins Jr.

[jairfab]

Por sinal eu já vi muito fonte ruim mas este não é ruim é mais do que péssimo horrível mesmo.


Sim o fonte original foi perdido. A pessoa que tinha o fonte original morreu de covid. Agora preciso fazer alguma coisa para recuperar a manutenção do arquivo mem.

Se fosse arquivo original de memoria ai a gente já tinha o nome de todos os campos.

[Itamar M. Lins Jr.]

Olá!

Agora preciso fazer alguma coisa para recuperar a manutenção do arquivo mem.

O arquivo é um TXT com extensão .mem explica direito. Não usa SAVE LIKE ...

Chega lá na linha que verifica se a cópia é original e coloca *//* (comenta ela) simples!
É só um arquivo para desligar o uso / validade do exe depois de x dias.

Saudações,
Itamar M. Lins Jr.

[jairfab]

Com certeza seria muintio simples se poudesse fazer isto por que quem vai usar este arquivo sao outros programas diferentes acho que tres exe diferentes.

O pior que a criptografia ainda parece ser feita em 3 niveis diferentes tipo faz a criptografia do texto, depois pega o resultado e faz a mesma coisa umas 3 veses... ai fica muinto ruim eu ja vi programa ruim mais este superou a tudo de mais ruim que ja vi ate hoje

[Itamar M. Lins Jr.]

Olá!
Precisa desse arquivo arqui:

Código: Selecionar todos

   arqo:= "SPAG41.OVL"

Que ele abre e passa para outro.
Não está no ZIP.
Tá no fonte a própria explicação.

Saudações,
Itamar M. Lins Jr.

[jairfab]

pode renomear o spag41.mem ou mesmo o spag0.mem para spag41.ovl