السلام عليكم و رحمة الله و بركاته
حبيت اعطيكم طريقة من ابسط الطرق لتشفير نص صغير
اولا هذه الخوارزمية قد تكون فيها اخطاء لان الله و حده معصوم من الخطأ
اولا
Public Function crypter(str As String, key As String)
For x = 1 To Len(str)
str1 = str1 & Hex(Asc(Mid(str, x, 1)) - 5)
str1 = str1 & Asc(Mid(str, x, 1)) + 1
str1 = str1 & Asc(Mid(str, x, 1)) - (x Mod Len(key))
str1 = str1 & Asc(Mid(str, x, 1)) - (x Xor Len(key))
str1 = str1 & Asc(Mid(str, x, 1)) - (x Mod Len(key) Xor Len(key) + Len(key))
Next x
crypter = StrReverse(str1)
End Function
هذه دالة لتشفير النص
ثانيا نضع 2 TextBox
و نكتب
رمز:
Private Sub Text1_Change()
Text2.Text = crypter(Text1.Text)
End Sub
مثال بعد تشفير كلمة MrVisualBasic
هذه هي النتيجة
رمز:
379999001E538401396014689901401611E618097889C597499899D5093010019017686780989C5986011118110748701011611E657691016014616273878150999211511D60556678784
ارجوا انكم قد اعجبتكم الطريقة
الخميس 10 ديسمبر 2015, 4:36 pm من طرف hayderaltimimi
