PDA

View Full Version : file password



iranboy
سه شنبه 23 دی 1382, 22:10 عصر
من میخام یه برنامه پسورد ساز بسازم . واسه همین اول فایل به صورت .txt در می یاد بعد هم با یک فرمول مثلا همه A ها به b+659 تبدیل میشه . بعد هم به صورت .pass در میادش . بعد هم هر وقت بخاد قفل را باز کنه دوباره همه b+659 ها به A تبدیل میشه .
ولی مسئله اینجاست که وقتی پسوند عوض میشه به یک چیز دیگه و دوباره به همون اولی فایل فایل قبلی نیست . چرا ؟

linux
سه شنبه 23 دی 1382, 23:08 عصر
دوست عزیز اگر برای تمرین اینکار را انجام میدی که خوب
ولی برای کارهای تجاری بگردی یه سری الگوریتم هست

vbstar
چهارشنبه 24 دی 1382, 10:37 صبح
اگر دوستان الگوریتم دارند ، راهنمائی کنند.

iranboy
شنبه 27 دی 1382, 16:05 عصر
یکی جواب بده

linux
شنبه 27 دی 1382, 22:35 عصر
سلام
توی گوگل دنبال encryption +VB بگرد
یه سری هم به a1vbcode.com بزن

A.Noor
یک شنبه 28 دی 1382, 11:37 صبح
با سلام

در مورد الگوریتمهای رمز هم بهتر است یک سری به بخش رمزنگاری داده‌ها بزنید.
http://www.barnamenevis.org/forum/viewforum.php?f=59

BehnamPro
یک شنبه 28 دی 1382, 19:13 عصر
این دوتا Function یکیشون Encrypt میکنه و دیگری Decrypt. 8-)

Private Function fDecrypt(ByVal strKey As String, ByVal strInput As String) As String

'--- Decrypts a string encrypted by fEncrypt

'--- Parameters
'strKey: the private key used to encrypt the string
'strInput: the encrypted string to decrypt

Dim intC1 As Integer
Dim lngKey As Long
Dim aintRVal() As Integer
Dim intTemp As Integer

If strKey = vbNullString Or _
strInput = vbNullString Then Exit Function

'Generate the encryption key value from strKey
For intC1 = 1 To Len(strKey)
lngKey = lngKey + Asc(Mid$(strKey, intC1, 1))
Next

'Seed the randomizer
Rnd (-1)
Randomize lngKey

'Generate a series of random numbers between
'32 and 159 for the chars in strInput
ReDim aintRVal(1 To Len(strInput))
For intC1 = 1 To Len(strInput)
aintRVal(intC1) = ((Rnd() * 127) + 1) Mod 223 + 32
Next

'Decrypt strInput
For intC1 = 1 To Len(strInput)
intTemp = ((Asc(Mid$(strInput, intC1, 1)) - aintRVal(intC1)) Mod 223) - 32
If intTemp < 0 Then intTemp = intTemp + 223
fDecrypt = fDecrypt & Chr$(intTemp)
Next

End Function
Private Function fEncrypt(ByVal strKey As String, ByVal strInput As String) As String

'--- Encrypts a string

'--- Parameters
'strKey: the private key used to encrypt the string
'strInput: the string to encrypt

Dim intC1 As Integer
Dim lngKey As Long
Dim aintRVal() As Integer

If strKey = vbNullString Or _
strInput = vbNullString Then Exit Function

'Generate the encryption key value from strKey
For intC1 = 1 To Len(strKey)
lngKey = lngKey + Asc(Mid$(strKey, intC1, 1))
Next

'Seed the randomizer
Rnd (-1)
Randomize lngKey

'Generate a series of random numbers between
'32 and 159 for the chars in strInput
ReDim aintRVal(1 To Len(strInput))
For intC1 = 1 To Len(strInput)
aintRVal(intC1) = ((Rnd() * 127) + 1) Mod 223 + 32
Next

'Encrypt strInput
For intC1 = 1 To Len(strInput)
fEncrypt = fEncrypt & _
Chr$(((Asc(Mid$(strInput, intC1, 1)) + aintRVal(intC1)) Mod 223) + 32)
Next

End Function

Vahab
یک شنبه 28 دی 1382, 21:03 عصر
رمز گذاری روی فایلها چندان جالب نیست در مورد فایلهای حجیم خیلی طول می کشد تا برنامه رمز شود و در برخی موارد برنامه هنگ میکند