Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7079 usuários registrados
O último usuário registrado atende pelo nome de albsilva

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

Encriptar MD5 TXT

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Encriptar MD5 TXT

Mensagem por m@r<3|o em 19/7/2010, 20:14

Pessoas queria enviar o arquivo mais nao to sabendo uso winrar
o arquivo viro zip do winrar e nao troco de icone
queria por esse exemplo encriptar o TXT

nao da erro
mais tb nao funciono


Código:
#DEFINE arquivo "C:\WINDOWS\Tmp.txf"

MODIFY FILE (ARQUIVO)

diminuircontador()
MODIFY FILE (ARQUIVO)

PROCEDURE diminuircontador AS void
   LOCAL objmd5 AS OBJECT
   LOCAL conteudo AS STRING
   LOCAL contador AS INTEGER
   LOCAL strtemp AS STRING
   LOCAL setSafety
    LOCAL gravar AS logical
    m.objmd5 = NEWOBJECT("md5", "md5.prg")
   setSafety = SET("Safety")
   SET SAFETY OFF
   
    dt = DATE()
    m.conteudo = ALLTRIM(FILETOSTR(arquivo))
    data = right(m.conteudo,8*)
   
    IF dtos(dt) = data
    ELSE
   
 
    m.conteudo = ALLTRIM(FILETOSTR(arquivo))
   m.contador = INT(VAL(SUBSTR(m.conteudo,10)))
   m.strtemp = LEFT(m.conteudo,9) + ALLTRIM(STR(m.contador-1))
   
   m.objmd5.tohash = m.strtemp
   m.strtemp = m.objmd5.COMPUTE()
   
   m.objmd5.tohash = dt
    dt = m.objmd5.COMPUTE()
   
   m.gravar = FOUND()
   
   STRTOFILE(m.strtemp + " " + dtos(dt) ,arquivo)
    ENDIF

   SET SAFETY &setSafety

ENDPROC


Obrigado
Abs
Marcelo Fazan

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 19/7/2010, 23:17

Não entendi bem...

Caso seja problemas com criptografia veja que no seguinte link existem exemplos de uso:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por m@r<3|o em 19/7/2010, 23:23

ja dei uma olhada nesses links ,

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 20/7/2010, 11:06

marcelofazan escreveu:Pessoas queria enviar o arquivo mais nao to sabendo uso winrar
o arquivo viro zip do winrar e nao troco de icone
queria por esse exemplo encriptar o TXT

nao da erro
mais tb nao funciono


Código:
#DEFINE arquivo "C:\WINDOWS\Tmp.txf"

MODIFY FILE (ARQUIVO)

diminuircontador()
MODIFY FILE (ARQUIVO)

PROCEDURE diminuircontador AS void
   LOCAL objmd5 AS OBJECT
   LOCAL conteudo AS STRING
   LOCAL contador AS INTEGER
   LOCAL strtemp AS STRING
   LOCAL setSafety
    LOCAL gravar AS logical
    m.objmd5 = NEWOBJECT("md5", "md5.prg")
   setSafety = SET("Safety")
   SET SAFETY OFF
   
    dt = DATE()
    m.conteudo = ALLTRIM(FILETOSTR(arquivo))
    data = right(m.conteudo,8*)
   
    IF dtos(dt) = data
    ELSE
   
 
    m.conteudo = ALLTRIM(FILETOSTR(arquivo))
   m.contador = INT(VAL(SUBSTR(m.conteudo,10)))
   m.strtemp = LEFT(m.conteudo,9) + ALLTRIM(STR(m.contador-1))
   
   m.objmd5.tohash = m.strtemp
   m.strtemp = m.objmd5.COMPUTE()
   
   m.objmd5.tohash = dt
    dt = m.objmd5.COMPUTE()
   
   m.gravar = FOUND()
   
   STRTOFILE(m.strtemp + " " + dtos(dt) ,arquivo)
    ENDIF

   SET SAFETY &setSafety

ENDPROC


Obrigado
Abs
Marcelo Fazan
Marcelo... li novamente tua mensagem mas não entendi bem.
O que tem haver o .zip, .rar e MD5???

Qual a real necessidade?
Poderias explicar melhor?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por m@r<3|o em 20/7/2010, 14:11

quero hospedagem um zip no foruim do problema

só que tem uma caixa anexar arquivo e enviar a qual somente aceita zip
e eu quero mandar um rar

como é aquele site antigo , o jeito antigo , de anexar um rar no forum


quero hospedar o testemarcelo.rar
que contem = seu testemarcelo + alteracao que fiz de 30 dias + o prg md5

para quem quiser arrumar e hospedar novamente .....

Abs
Marcelo Fazan


m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 20/7/2010, 14:32

Vamos com calma...
Acho que entendi!
Very Happy

Para a hospedagem você irá precisar utilizar FTP, concordas?

Mas quanto ao título do tópico, por que "Encriptar MD5 TXT" se o problema está no envio do arquivo?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por m@r<3|o em 20/7/2010, 14:52

sei la Sad

quero somente ver e ler dentro do txt e virificar o txt
que seria o tal contador
deixar ele assim
¨ $ & % # ! # ¨ % $ #! % ¨ ! % @ # $ % ¨ # ! ¨ & sei la
dfhagdjhnagjghagdhsfggfjhery647456terth46y ??

nao dar pra entender o que ler no TXT ,
mais emular corretamente as coisas no mesmo

talves o blowfish como vo utilizar ele no codigo ??

Obg
Marcelo Gustavo geek

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 20/7/2010, 14:57

Dê uma olhada neste tópico:
[Você precisa estar registrado e conectado para ver este link.]

Resolve?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por m@r<3|o em 20/7/2010, 15:10

Pô Marcos se é Hacker hein study

resolver tem que resolver tudo o que falta é um poco mais de conhecimento
mais jaja resolvo ,
nada como o tempo ao tempo !!! Razz Embarassed
muito material preciso analisar cocalma rabbit
umas 4 horas testando o md5 e implanto a bagaça rrsrs

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 20/7/2010, 15:25

hahahahaha

Analisa lá com calma e depois me diz se resolveu.
Caso tenhas problemas, desabilite o firewall do windows para testá-la.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por m@r<3|o em 20/7/2010, 15:30

Desabilitar Firewall ?
isso nunca
hahahaha pig


estou na metade da minha projecao do innosetup

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 20/7/2010, 15:36

Então dê direitos para o aplicativo.
Faz tempo que não utilizo esta rotina mas tenho quase certeza que o Firewall atrapalha.


Se não me falha a memória, esta rotina é utilizada pelo Alceu, também.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Marcos Guedes em 1/1/2011, 15:29

up!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Encriptar MD5 TXT

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum