vbscript.encode

[bydumoraes 0]

Alguem tem um script ou programa que encripta textos que eu possa usar o <%@language vbscript.encode%> ? e como faco o inverso, se tenho um codigo todo criptografado? Achei dois scripts no asphelp um que codifica e outro que decodifica, mas naum consigo usá-lo. Alguem tem algo parecido?

[WebASP 0]

Poe o link ae os que você achou no asphelp

[crazybaby 0]

na index dele tem jeito de fazer um upload para você criptografar o codigo

[WebASP 0]

Ah este code e oferecido pela microsoft ja foi comentado onde achar no site da microsoftda um procurar por dec13 que ue postei

[bydumoraes 0]

ai segue o codigo que tem no asphelp, mas naum sei como usá-lo------------------------------------------------------<%'criptografando um textoConst EncC1 = 109Const EncC2 = 191Const EncKey = 161Public Function EncriptaStr(Texto)Dim TempStr, TempResult, TempNum, TempCharDim TempKeyDim iTempStr = TextoTempResult = ""TempKey = ((EncKey * EncC1) + EncC2) Mod 65536For i = 1 To Len(TempStr)TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256TempChar = Chr(TempNum)TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536TempResult = TempResult & TempCharNextEncriptaStr = TempResultEnd Function%><%'descriptografando o textoPublic Function DecriptaStr(Texto)Dim TempStr, TempResult, TempNum, TempCharDim TempKeyDim iTempStr = TextoTempResult = ""TempKey = ((EncKey * EncC1) + EncC2) Mod 65536For i = 1 To Len(TempStr)TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256TempChar = Chr(TempNum)TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod65536TempResult = TempResult & TempCharNextDecriptaStr = TempResultEnd FunctionPrivate Function AuxShr(Numero, BShr)AuxShr = Int(Numero / (2 ^ BShr))End Function%>

[bydumoraes 0]

tem esse outro artigo tb.... vejam:Criptografia de dados em ASPpor Julain Sitkewich A síntese desse artigo em si, é criar uma chave com critografada para cada usuário de seu site. A primeira coisa que será necessária então é gerar a chave que terá ocomprimento de 512 bytes, isto é, o necessário para criptografar strings de um usuário. <% ' Local onde a chave será criadaConst KeyLocation = "C:\chave.txt"' Tamanho da gerada em bytesConst KeyLen = 512On Error Resume NextCall WriteKeyToFile(KeyGeN(KeyLen),KeyLocation) Response.Write "CHAVE GERADA COM SUCESSO."Sub WriteKeyToFile(MyKeyString,strFileName) Dim keyFile, fso set fso = Server.CreateObject("scripting.FileSystemObject") set keyFile = fso.CreateTextFile(strFileName, true) keyFile.WriteLine(MyKeyString) keyFile.CloseEnd SubFunction KeyGeN(iKeyLength)Dim k, iCount, strMyKey lowerbound = 35 upperbound = 96 Randomize for i = 1 to iKeyLength s = 255 k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound) strMyKey = strMyKey & Chr(k) & "" next KeyGeN = strMyKeyEnd Function%> Acabamos de gerar um chave que foi salva no arquivo c:\chave.txt É necessário que cada usuário rode somente uma vez para gerar a chave, se você gerar novamente a chave ela será criada por cima da antiga chave, isto é, cada usuário deve ter a sua própria e única chave. Agora vamos ao código necessário para criptografar dados de um usuário:<% Dim KeyConst CryptDados = "Now is the time for all good men to come to the aid of their country."Const KeyLocation = "c:\chave.txt"Key = mid(ReadKeyFromFile(KeyLocation),1,Len(CryptDados))Response.Write "<p>FRASE ORIGINAL: " & CryptThis & "<p>"Response.Write "<p>VALOR DA CHAVE: " & Key & "<p>"Response.Write "<p>ENCRYPTED FRASE: " & EnCrypt(CryptThis) & "<p>"Response.Write "<p>DECRYPTED FRASE: " & DeCrypt(EnCrypt(CryptThis)) & "<p>"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 FunctionFunction 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 FunctionFunction ReadKeyFromFile(strFileName) Dim keyFile, fso, f set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFile(strFileName) set ts = f.OpenAsTextStream(1, -2) Do While not ts.AtEndOfStream keyFile = keyFile & ts.ReadLine Loop ReadKeyFromFile = keyFileEnd Function%>