Página 2 de 3
CriptogMem
Enviado: 22 Fev 2023 16:28
por 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.
CriptogMem
Enviado: 22 Fev 2023 17:21
por 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.
CriptogMem
Enviado: 22 Fev 2023 17:24
por 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.
CriptogMem
Enviado: 23 Fev 2023 08:39
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:14
por 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 ?
CriptogMem
Enviado: 23 Fev 2023 10:23
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:25
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:27
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:38
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:40
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:54
por 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.
CriptogMem
Enviado: 23 Fev 2023 10:58
por 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.
CriptogMem
Enviado: 23 Fev 2023 11:07
por 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
CriptogMem
Enviado: 23 Fev 2023 11:26
por Itamar M. Lins Jr.
Olá!
Precisa desse arquivo arqui:
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.
CriptogMem
Enviado: 23 Fev 2023 11:35
por jairfab
pode renomear o spag41.mem ou mesmo o spag0.mem para spag41.ovl