|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Exemplos de encriptação simples e quebra de string p/ montar conforme se deseja.
|
 |
|
|
|
Postada em 18/5/2004 por vilmarbr
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Exemplos de encriptação simples e quebra de string p/ montar conforme se deseja.</title>
</head>
<body>
<%
Dim SenhaVelha, i, senhanova
SenhaVelha = "abcde"
'senhavelha = "hitecnet"
Response.Write "<font color=#000fff size=3>Senhavelha usada em algumas as rotinas aqui: " & senhavelha & "</font><p>"
'---------------------------------------INÍCIOFunction Encriptar1(sOriginal)-----------------------
Function Encriptar1(sOriginal)
Dim sEncrypt 'Subtipo String
Dim iPassLen, I,Resultado 'Subtipo Integer, Long
iPassLen = Len(sOriginal)
sEncrypt = ""
For I = iPassLen To 1 Step -1 ' Negative counter >= end
sEncrypt = sEncrypt & Mid(sOriginal, I, 1)
Response.Write "<font color=#00CC00>Senhanova Step -1, com inversão dos caracteres: " & sEncrypt & "</font><br>"
Next
Encriptar1 = sEncrypt
End Function
T1 = Encriptar1(senhavelha) 'chamada a função
Response.Write "<p>Original: abcde" & " - Encriptado: " & T1 & "<br><br>"
'---------------------------------------FIM: Function Encriptar1(sOriginal)-----------------------
'---------------------------------------INÍCIO: StrReverse-----------------------
Dim MyStr, MyStr2
MyStr = StrReverse(senhavelha) 'inverte ordem de string
MyStr2 = StrReverse(MyStr)
Response.Write "<p>StrReverse usado aqui p/ inverter e desinverter: " & MyStr & " - " & MyStr2
'---------------------------------------FIM: StrReverse-----------------------
'---------------------------------------INÍCIO: Encriptar2-----------------------
Function Encriptar2(str, num)
Dim x, strAns
strAns = ""
For x = 1 To Len(str)
strAns = strAns & Chr(Asc(Mid(str, x, 1)) + num Mod 256)
Next
Encriptar2 = strAns
End Function
Dim str1, str2,str3
str1 = senhavelha
str2 = Encriptar2(str1, 20)
str3 = Encriptar2(str2, -20)
Response.Write "<p>Encriptar2(str, num), " & str1 & " tornou-se: " & str2
Response.Write "<br>Encriptar2(str, num), " & str2 & " tornou-se: " & str3 & "<p>"
'---------------------------------------FIM: Encriptar2-----------------------
'»»INÍCIO: SEM INVERSÃO, pode ser usada p/ quebrar uma string em vários pedaços e depois escrevê-la conforme se deseja-----------------------
For I = 1 To Len(SenhaVelha) Step 1
sEncrypt = sEncrypt & Mid(SenhaVelha, I, 1)
Response.Write "<font color=#ff0000>sEncrypt step 1, sem inversão dos caracteres: " & sEncrypt & "</font><br>"
Next
'»»FIM: SEM INVERSÃO, pode ser usada p/ quebrar uma string em vários pedaços e depois escrevê-la conforme se deseja-----------------------
%>
</body>
</html>
|
|
|
|
|
