sonraki »

[HoşGeldin Ziyretçi, Lütfen Giriş Yap ya da Üye Ol]

[BaLıM]

Asp sifrelerinizi koruya bilmeniz icin..
 
Asp siteniz varsa ve sifrelerinizi korumak istiyorsaniz bu kodu kulanmanizi tavsiye ederim..

Kod:

--------------------------------------------------------------------------------
<%
function Encrypt(Text,Password)
Dim TextCharCode, PasswordCharCode, NewCharCode

For Char = 1 To LEN(Text)
TextCharCode = ASC(MiD(Text,Char,1))
PasswordCharCode = ASC(MiD(Password,(Char MOD LEN(Password) + 1),1))
NewCharCode = TextCharCode + PasswordCharCode
if NewCharCode > 255 Then NewCharCode = NewCharCode -255

Encrypt = Encrypt & CHR(NewCharCode)
NEXT
End function

function Decrypt(Code,Password)
Dim CodeCharCode, PasswordCharCode, OriginalCharCode

For Char = 1 To LEN(Code)
CodeCharCode = ASC(MiD(Code,Char,1))

PasswordCharCode = ASC(MiD(Password,(Char MOD LEN(Password) + 1),1))
OriginalCharCode = CodeCharCode - PasswordCharCode

if OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255

Decrypt = Decrypt & CHR(OriginalCharCode)
NEXT
End function
%>

[Robot Moderator]

       
Hos Geldin Ziyaretci Arkadas. Ben Robot Moderator. HacKbanK tan Tam Anlamıyla Faydalanmak Icin Uye Olman Gerekmektedir.

 
indir Asp sifrelerinizi koruya bilmeniz icin.. indir, Asp sifrelerinizi koruya bilmeniz icin.. download, Asp sifrelerinizi koruya bilmeniz icin.. izle, Asp sifrelerinizi koruya bilmeniz icin.. bul, Asp sifrelerinizi koruya bilmeniz icin.. hack Asp sifrelerinizi koruya bilmeniz icin.. hacked Asp sifrelerinizi koruya bilmeniz icin.. hacking Asp sifrelerinizi koruya bilmeniz icin.. hacker Asp sifrelerinizi koruya bilmeniz icin.. programı Asp sifrelerinizi koruya bilmeniz icin.. indir, Asp sifrelerinizi koruya bilmeniz icin.. download, Asp sifrelerinizi koruya bilmeniz icin.. izle, Asp sifrelerinizi koruya bilmeniz icin.. smf, Asp sifrelerinizi koruya bilmeniz icin.. kurulumu, Asp sifrelerinizi koruya bilmeniz icin.. bul