17-10-12, 08:42 PM
كاتب الموضوع : SAFMEHDI
السلام عليكم
==========================
يقوك هذا الكود بتشفير النصوص بطريقة جد رائعة تعجز عن فكها
لانه من دون معرفة المفتاح لن تستطيع ان تقوم بفك تشفيره
أولا دالة التشفير التي قمت بكتابتها
يرسل الى الدالة وسيطين الأول وهو النص الذي تريد ان تقوم بتشفيره و الثانية هو المفتاح (مفتاح التشفير )
و هذا مثال للاستخدام
لاحظ ان 17 هو مفتاحنا تستطيع ان تقوم بتغييره
و الدالة الثانية تقوم بفك تشفير النص
و هذا مثال لاستخدامها
ملاحظة :
* يجب ان يكون المفتاح الموجود في دالة التشفير هو نفسه الموجدود في دالة فك التشفير و الا فانه لن تقوم دالة فك التشفير بفك التشفير
* كلما قمت بتغيير المفتاح تغير التشفير
السلام عليكم
==========================
يقوك هذا الكود بتشفير النصوص بطريقة جد رائعة تعجز عن فكها
لانه من دون معرفة المفتاح لن تستطيع ان تقوم بفك تشفيره
أولا دالة التشفير التي قمت بكتابتها
كود :
[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]
ملاحظة :
* يجب ان يكون المفتاح الموجود في دالة التشفير هو نفسه الموجدود في دالة فك التشفير و الا فانه لن تقوم دالة فك التشفير بفك التشفير
* كلما قمت بتغيير المفتاح تغير التشفير