رمز کردن نام کاربر و کلمه عبور

[تبار]

سلام بر پهلوانان ویژوال بیسک
یک سوال ساده هست که در موضوع تاپیک آمد . بگویید در یک جدول Access که شامل نام کاربران و کلمات‌عبور آنهاست چه الگوریتم یا سورس‌هایی را می‌شناسید که بتواند آنها را رمز کند .
ثانیا می‌خواهم بدانم در مورد متد Hash که به این موضوع هم مربوط است می‌توانید اطلاعات در اختیار بگذارید.

تشکر از توجه شما :)

[Farhad.B.S]

برای Encryption و Hashing :

http://www.a1vbcode.com/coderedirect.asp?type=application&ID=2377
http://www.a1vbcode.com/coderedirect.asp?type=application&ID=2230
http://www.a1vbcode.com/coderedirect.asp?type=application&ID=1438


در ضمن برای اکثر الگوریتم های مشهور مثل DES, BlowFish,SHA میتونید اکتیوایکس ها و ماجول های آماده ای رو برای استفاده پیدا کنید.

[تبار]

سلام
تشکر که کارمان را راه انداختید. :wink:

[ساران سافت]

یک راه دیگر اینکه یکی یکی کارکترهای نام کاربر یا پسورد را بخوانی و مثلا تبدیل به اسکی کنی با یک سری اعداد جمع تفریق و ... کنی و کدهای بدست آمده را کنار هم گذاشته و ذخیره کنی .
به همان شکل هم بخوانی و بازش کنی. :mrgreen:

[Omid.Mafakher]

salam in 1 nemoone :wink:
ghofl gozari ba ramz :wink:


Public Function Crypt(Source As String, strPassword As String, EnDeCrypt As Boolean) As String
'EnDeCrypt True = Encrypt
'EnDeCrypt False = Decrypt
Dim intPassword As Long
Dim intCrypt As Long


For x = 1 To Len(strPassword)
intPassword = intPassword + Asc(Mid$(strPassword, x, 1))
Next x


For x = 1 To Len(Source)


If EnDeCrypt = True Then
intCrypt = Asc(Mid$(Source, x, 1)) + intPassword + x



Do Until intCrypt <= 298
intCrypt = intCrypt - 298
Loop
Else
intCrypt = Asc(Mid$(Source, x, 1)) - intPassword - x



Do Until intCrypt > 0
intCrypt = intCrypt + 298
Loop
End If
Crypt = Crypt & ChrW(intCrypt)
Next x
End Function