14-11-13, 02:35 AM
اذا شفرنا نص بهذا الكود كيف نرجعه
الدالة التالية من تخميني
اذا شفرت نص بهذه الدالة فكيف ارجع النص المشفر؟؟
هل لديكم طريقة
وشكرا مقدما.
الدالة التالية من تخميني
كود :
Function en(ByVal tp As String) As String
Dim all As String = ""
Dim key() As String = "ابتثجحخد#ذرزسشصضطظ#عغفقكلمنهو#يabc##def#ghij#klmnop#qrstu#vwxyz12#345678#90~!@#$%^&*()#_+|-+*#/}{><#؛#×÷‘إلإًٌُ#َ:/،ـأل#أ[]ٍِ؟#.,’آلآ{}ْ~".Split("#")
Dim i As Integer = 0
For Each t In tp
all &= key(i) & t
i += 1
Next
Return all
End Function
اذا شفرت نص بهذه الدالة فكيف ارجع النص المشفر؟؟
هل لديكم طريقة
وشكرا مقدما.