[ Visual Basic 6 ] طلب ارييييييد rc4 حاليا وسريع ؟؟!

تم تحميل الصفحة في 0,8601234 ثانية
طلب ارييييييد rc4 حاليا وسريع ؟؟!
الحالة
مغلق و غير مفتوح للمزيد من الردود.

yaseen naser

Beginner Developer
rank
إنضم
4 سبتمبر 2010
المشاركات
12
الإعجابات
0
النقاط
0
السلام عليكم ورحمة الله وبركاتة​
كما هو موضح عندك في العنوان انا بدي RC4Module
ولو سمحتو سرييييييييييييييع ..​
 

yaseen naser

Beginner Developer
rank
إنضم
4 سبتمبر 2010
المشاركات
12
الإعجابات
0
النقاط
0
رد: طلب ارييييييد rc4 حاليا وسريع ؟؟!

ليش ما في احد يرد بلييييييييييييز سريييييييييع
انا مستعجل
 
إنضم
10 مارس 2011
المشاركات
1,409
الإعجابات
281
النقاط
83
الإقامة
أںأ”أ”أ£أ­أ‘ ..!
رد: طلب ارييييييد rc4 حاليا وسريع ؟؟!

مرحبآ اخوي .. هذاء هو RC4 module
:28:
كود:
Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
        Dim i, j, a, x, b, TmpS, k, itmp, cipherby As Integer
        Dim TempC, CCTmp As Char
        Dim C As New StringBuilder
        Dim RetVal As String = String.Empty
        Dim sB, ki As Integer()
        sB = New Integer(256) {} : ki = New Integer(256) {}
        Dim strlen As Integer = password.Length
        While a <= 255
            TempC = (password.Substring((a Mod strlen), 1).ToCharArray()(0))
            ki(a) = Microsoft.VisualBasic.Strings.Asc(TempC)
            sB(a) = a
اذا آفدتك .. الدعوه الصادقه في ظهر الغيب .. تكفىى :16:
 
إنضم
28 أكتوبر 2009
المشاركات
2,965
الإعجابات
1,192
النقاط
113
الإقامة
Egypt
رد: طلب ارييييييد rc4 حاليا وسريع ؟؟!

مرحبآ اخوي .. هذاء هو RC4 module
:28:
كود:
Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
        Dim i, j, a, x, b, TmpS, k, itmp, cipherby As Integer
        Dim TempC, CCTmp As Char
        Dim C As New StringBuilder
        Dim RetVal As String = String.Empty
        Dim sB, ki As Integer()
        sB = New Integer(256) {} : ki = New Integer(256) {}
        Dim strlen As Integer = password.Length
        While a <= 255
            TempC = (password.Substring((a Mod strlen), 1).ToCharArray()(0))
            ki(a) = Microsoft.VisualBasic.Strings.Asc(TempC)
            sB(a) = a
اذا آفدتك .. الدعوه الصادقه في ظهر الغيب .. تكفىى :16:
مشكور علي كودك
بس
الكود دة Vb2005
لأانة بيستعمل framework - Microsoft.VisualBasic.Strings.Asc
وبايظ..

------------------------------

استعمل الكود دة
Function RC4(ByVal Expression As String, ByVal Password As String) As String
On Error Resume Next
Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte
If Len(Password) = 0 Then
Exit Function
End If
If Len(Expression) = 0 Then
Exit Function
End If
If Len(Password) > 256 Then
Key() = StrConv(Left$(Password, 256), vbFromUnicode)
Else
Key() = StrConv(Password, vbFromUnicode)
End If
For X = 0 To 255
RB(X) = X
Next X
X = 0
Y = 0
Z = 0
For X = 0 To 255
Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256
Temp = RB(X)
RB(X) = RB(Y)
RB(Y) = Temp
Next X
X = 0
Y = 0
Z = 0
ByteArray() = StrConv(Expression, vbFromUnicode)
For X = 0 To Len(Expression)
Y = (Y + 1) Mod 256
Z = (Z + RB(Y)) Mod 256
Temp = RB(Y)
RB(Y) = RB(Z)
RB(Z) = Temp
ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256))
Next X
RC4 = StrConv(ByteArray, vbUnicode)
End Function
مع العلم ان يضغط ويشفر ويحفظ بباسورد..:10:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل