تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشفير النصوص بطريقة رائعة
#1
كاتب الموضوع : SAFMEHDI


السلام عليكم

==========================

يقوك هذا الكود بتشفير النصوص بطريقة جد رائعة تعجز عن فكها
لانه من دون معرفة المفتاح لن تستطيع ان تقوم بفك تشفيره

أولا دالة التشفير التي قمت بكتابتها


كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Function [/color][color=#0000bb]EncryptingData[/color][color=#007700]([/color][color=#0000bb]ByVal DataString [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700], [/color][color=#0000bb]ByVal Key [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700]) As [/color][COLOR=#0000bb]String
Dim Ch [/COLOR][color=#007700]As [/color][color=#0000bb]Char[/color][color=#007700]() = [/color][color=#0000bb]DataString[/color][color=#007700].[/color][COLOR=#0000bb]ToCharArray
Dim sb [/COLOR][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][COLOR=#0000bb]StringBuilder
[/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]0 To Ch[/color][color=#007700].[/color][color=#0000bb]Length [/color][color=#007700]- [/color][COLOR=#0000bb]1
sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]Convert[/color][color=#007700].[/color][color=#0000bb]ToChar[/color][color=#007700]([/color][color=#0000bb]Convert[/color][color=#007700].[/color][color=#0000bb]ToInt64[/color][color=#007700]([/color][color=#0000bb]Ch[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700])) + [/color][color=#0000bb]Key[/color][COLOR=#007700]))
[/COLOR][COLOR=#0000bb]Next
[/COLOR][color=#007700]Return [/color][color=#0000bb]sb[/color][color=#007700].[/color][COLOR=#0000bb]ToString
End [/COLOR][COLOR=#007700]Function  
[/COLOR][color=#0000bb][/color][/COLOR]

يرسل الى الدالة وسيطين الأول وهو النص الذي تريد ان تقوم بتشفيره و الثانية هو المفتاح (مفتاح التشفير )

و هذا مثال للاستخدام


كود :
[color=#000000][COLOR=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]EncryptingData[/color][color=#007700]([/color][color=#dd0000]"vb4arab"[/color][color=#007700], [/color][color=#0000bb]17[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

لاحظ ان 17 هو مفتاحنا تستطيع ان تقوم بتغييره

و الدالة الثانية تقوم بفك تشفير النص



كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Function [/color][color=#0000bb]DecryptingData[/color][color=#007700]([/color][color=#0000bb]ByVal DataString [/color][color=#007700]As [/color][color=#0000bb]String[/color][color=#007700], [/color][color=#0000bb]ByVal Key [/color][color=#007700]As [/color][color=#0000bb]Integer[/color][color=#007700]) As [/color][COLOR=#0000bb]String
Dim Ch [/COLOR][color=#007700]As [/color][color=#0000bb]Char[/color][color=#007700]() = [/color][color=#0000bb]DataString[/color][color=#007700].[/color][COLOR=#0000bb]ToCharArray
Dim sb [/COLOR][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][COLOR=#0000bb]StringBuilder
[/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]0 To Ch[/color][color=#007700].[/color][color=#0000bb]Length [/color][color=#007700]- [/color][COLOR=#0000bb]1
sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]Convert[/color][color=#007700].[/color][color=#0000bb]ToChar[/color][color=#007700]([/color][color=#0000bb]Convert[/color][color=#007700].[/color][color=#0000bb]ToInt64[/color][color=#007700]([/color][color=#0000bb]Ch[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700])) - [/color][color=#0000bb]Key[/color][COLOR=#007700]))
[/COLOR][COLOR=#0000bb]Next
[/COLOR][color=#007700]Return [/color][color=#0000bb]sb[/color][color=#007700].[/color][COLOR=#0000bb]ToString
End [/COLOR][COLOR=#007700]Function  
[/COLOR][color=#0000bb][/color][/COLOR]

و هذا مثال لاستخدامها


كود :
[color=#000000][COLOR=#0000bb]TextBox1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]DecryptingData[/color][color=#007700]([/color][color=#0000bb]TextBox2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]17[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

ملاحظة :
* يجب ان يكون المفتاح الموجود في دالة التشفير هو نفسه الموجدود في دالة فك التشفير و الا فانه لن تقوم دالة فك التشفير بفك التشفير

* كلما قمت بتغيير المفتاح تغير التشفير

}}}
تم الشكر بواسطة: ibraheam



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم