ASP//yazı & rakam karıştırıp çözmek..

[free!]

<%

Function Encrypt(curString) '###### karıştırma
retString = ""
For i = 1 to Len(curString)
curChar = Mid(curString, i, 1)
' upper case
If Asc(curChar) <= 90 AND Asc(curChar) >= 65 Then
curDiff = 90 - Asc(curChar)
If curDiff > 5 Then
Randomize
min = 1
max = curDiff
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("a") + offset)
Else
Randomize
min = -1
max = 0 - (Asc(curChar) - 65)
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("A") + (0 - offset))
End If
' lower case
ElseIf Asc(curChar) <= 122 AND Asc(curChar) >= 97 Then
curDiff = 122 - Asc(curChar)
If curDiff > 5 Then
Randomize
min = 1
max = curDiff
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("a") + offset)
Else
Randomize
min = -1
max = 0 - (Asc(curChar) - 97)
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("A") + (0 - offset))
End If
' number
ElseIf Asc(curChar) <= 57 AND Asc(curChar) >= 48 Then
curDiff = 57 - Asc(curChar)
If curDiff > 4 Then
Randomize
min = 1
max = curDiff
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("a") + offset)
Else
Randomize
min = -1
max = 0 - (Asc(curChar) - 48)
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & Chr(Asc(curChar) + offset)
retString = retString & Chr(Asc("A") + (0 - offset))
End If
' underscore
ElseIf Asc(curChar) = 95 Then
Randomize
min = 0
max = 9
offset = Int(((max - min + 1) * Rnd) + min)
retString = retString & offset
retString = retString & offset
' other, unacceptable character
Else
'Response.Write(Asc(curChar) & "," & curChar & "<br>")
Encrypt = Null
End If
Next

Encrypt = StrReverse(retString)
End Function

Function Decrypt(curString) '###### çözme
If NOT IsNull(curString) AND (Len(curString) Mod 2 = 0) Then
curString = StrReverse(curString)
retString = ""
For i = 1 to Len(curString)
curChar = Mid(curString, i, 1)
curMod = Mid(curString, i + 1, 1)
' underscore
If IsNumeric(curChar) AND IsNumeric(curMod) AND curChar = curMod Then
retString = retString & "_"
' number
ElseIf Asc(curChar) <= 57 AND Asc(curChar) >= 48 Then
' uppercase, subtraction was applied, we need to add
If UCase(curMod) = curMod Then
retString = retString & Chr(Asc(curChar) + (Asc(curMod) - Asc("A")))
' lowercase, addition was applied, we need to subtract
Else
retString = retString & Chr(Asc(curChar) - (Asc(curMod) - Asc("a")))
End If
' letter
Else
' uppercase, subtraction was applied, we need to add
If UCase(curMod) = curMod Then
retString = retString & Chr(Asc(curChar) + (Asc(curMod) - Asc("A")))
' lowercase, addition was applied, we need to subtract
Else
retString = retString & Chr(Asc(curChar) - (Asc(curMod) - Asc("a")))
End If
End If
i = i + 1
Next
Else
Decrypt = Null
End If

Decrypt = retString
End Function


'////////////////// kullanımı \\\\\\\\\\\\\\\\\\\\\\ {

karistiralacak = "ozdemir asaf - yalnizlik paylasilmaz (adam yayincilik)" 'türkçe karakter kullanılamıyor!
response.write Encrypt(karistiralacak) 'karıştırma sonucu yazar.
response.write Decrypt(Encrypt(karistiralacak)) 'karıştırılan eski kıvamına döner.

' } ////////////////// kullanımı \\\\\\\\\\\\\\\\\\\\\\

%>

alıntıdır
not: septagh beğenir galiba çözülmesi zor olmasada