Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Juliano Gomes

encriptar / desencriptar string

Por , em ASP Clássico

Recommended Posts

Juliano Gomes    0

Juliano Gomes
Postado

pessoal, boa noite, tenho um arquivo chamado encripta.asp nele tenho um form com um text field e um botao onde o action do form aponta para a propria pagina (encripta.asp) logo apos esse form tenho os codigos de encripação e desencriptação que peguei aqui mesmo no forum, e em seguida tenho um response.write pra me mostrar a string que digitei no text field encriptada

 

o problema é que quando eu digito algo e clico no botao, nao aparece nada no response... o que poderia ser???

 

segue o código abaixo pra quem puder me ajudar

 

um forte abraço!

 

<body><p> </p><form id="form1" name="form1" method="post" action="encripta.asp">  <label>  <input name="edt_enc" type="text" id="edt_enc" />  </label>  <label>  <input type="submit" name="Submit" value="encripta" />  </label></form><%Key = Request.Querystring("edt_enc") Function EnCrypt(strCryptThis)  Dim strChar, iKeyChar, iStringChar, i  for i = 1 to Len(strCryptThis)	 iKeyChar = Asc(mid(Key,i,1))	 iStringChar = Asc(mid(strCryptThis,i,1))	 iCryptChar = iStringChar + iKeyChar	 'iCryptChar = iKeyChar Xor iStringChar	 strEncrypted =  strEncrypted & Chr(iCryptChar)  next  EnCrypt = strEncryptedEnd Function'---Function DeCrypt(strEncrypted)Dim strChar, iKeyChar, iStringChar, i  for i = 1 to Len(strEncrypted)	 iKeyChar = (Asc(mid(Key,i,1)))	 iStringChar = Asc(mid(strEncrypted,i,1))	 iDeCryptChar = iStringChar - iKeyChar	 'iDeCryptChar = iKeyChar Xor iStringChar	 strDecrypted =  strDecrypted & Chr(iDeCryptChar)  next  DeCrypt = strDecryptedEnd Function%><%response.Write(EnCrypt(strCryptThis))%></body>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

Camarada,

 

Para facilitar dê:

response.write Request.Querystring("edt_enc")

E post o resultado aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

<%response.Write(EnCrypt(strCryptThis))%>

Onde você está passando valor para a variável "strCryptThis"

Pelo script que passou ela não tem valor algum.

 

O correto não seria?

<%response.Write(EnCrypt(key))%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito