Maaf, ada yang bisa membuat script untuk mendekripsi passwords yang telah
dienkripsi dengan code vbs :
Function encrypt(text)
count = Len(text)
if count < 15 then
For zxa = 1 To count
ret = Asc(Mid(text, zxa, 1))
hrc = chr((2*ret))
asd = chr((asc(hrc) + 5))
hra = cstr(hra) + cstr(asd)
Next
elseif (count > 15) and (count <= 30) then
For zxa = 1 To count
ret = Asc(Mid(text, zxa, 1))
hrc = chr((2*ret))
asd = chr((asc(hrc) + 8))
hra = cstr(hra) + cstr(asd)
Next
elseif (count > 30) and (count <= 50) then
For zxa = 1 To count
ret = Asc(Mid(text, zxa, 1))
hrc = chr((2*ret))
asd = chr((asc(hrc) + 10))
hra = cstr(hra) + cstr(asd)
Next
else
For zxa = 1 To count
ret = Asc(Mid(text, zxa, 1))
hrc = chr((2*ret))
asd = chr((asc(hrc) + 13))
hra = cstr(hra) + cstr(asd)
Next
end if
encrypt = encrypt2(hra)
End function
function encrypt2(text)
count = len(text)
for cc = 1 to count
ascii = Asc(Mid(text, cc, 1))
if ascii <= 50 then
asf = ascii + 50
else
asf = ascii - 50
end if
kill = cstr(kill) + cstr(chr(asf))
next
encrypt2 = kill
end function
"Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang!
http://id.mail.yahoo.com"
