Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 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
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

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

Os nossos membros postaram um total de 32 mensagens em 18 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

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