التواصل المباشر مع الادارة والاعضاء القدامى من خلال قناة التلغرام



العودة   :: vBspiders Professional Network :: > [ ::. الـقرصـنـة والأختراق ~ The Hidden World Of Hackers .:: ] > قســم إختــراق الأجهــزة

 
 
LinkBack أدوات الموضوع انواع عرض الموضوع
قديم 11-06-2011, 06:30 PM   رقم المشاركة : 1 (permalink)
معلومات العضو
 
الصورة الرمزية mouadh kouki
 

 

 
إحصائية العضو





mouadh kouki غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
mouadh kouki is on a distinguished road

افتراضي عدنا من جديد _ التشفير و دعس الحمايات _ للمبتدئ و المحترف




السلام عليكم و رحمة الله و بركاته عيدكم مبارك جميعا
لي مدة عن طرح المواضيع في المنتدى و اظن انكم نسيتوني
مو مهم طيب عدت لكم بشرح جميل جدا لتشفير اي سيرفر و دعس الحمايات

اول شئ نحتاج الى السروس كود طبعا تستطيع انتاجه عن طريق برنامج الاخ عبابنه
او عن طريق غوغل



طيب بعد الحصول على السورس كود نحتاج لتعديل عليه بقيم السيرفر الذي نريد تشفيره
طبعا الكبير و الصغير يعرف كيفية تحويل السيرفر الى قيم وو ضعه في السورس
طبعا سوف نستعمل برنامج المبدع عبابنه
برنامج Noura Hexor لتحويل الملفات الى هكس :: تحدي السرعة والثبات ::

ليس عليك سوى نسخ القيم الجديدة و تعويضها بالقيم القديمة



و خلاص اصبح عندك سورس كود لسيرفرك
طيب الحين انت دعست من 4 الى 6 حمايات لاكمال الباقي نحتاج الى التشفير

اول شئ نشفر عن طريق اضافة فورم



ووضع اشيائ فيه صورة و ادوات تايمر ...



مثال بسيط من عندي





و هذه صورة تستطيعون وضعها في الفورم



ثم نحفظ السورس و نشفر عن طريق برنامج



نحدد مثل الصورة



ثم نعيد نفتح السورس و نضيف هذا الموديل





ثم الصق الموديل هنا



و ثم ضع الموديل

كود PHP:
Public Function ROTN_Forward(ByVal InputData As StringByVal NumKey As Integer) As String

 
GoTo 12:

 
12:

 
Dim i As LongOutChar As String

 
GoTo 24:

 
24:

 For 
1 To Len(InputData)

 GoTo 
36:

 
36:

 
OutChar Asc(Mid(InputDatai1)) + NumKey

 
GoTo 48:

 
48:

 While 
OutChar 255

 
GoTo 60:

 
60:

 
OutChar OutChar 256

 
GoTo 72:

 
72:

 
Wend

 
GoTo 84:

 
84:

 
ROTN_Forward ROTN_Forward Chr(OutChar)

 GoTo 
96:

 
96:

 
Next

 
GoTo 108:

 
108:

 
End Function

 

 Public Function 
ROTN_Backward(ByVal InputData As StringByVal NumKey As Integer) As String

 
GoTo 12:

 
12:

 
Dim i As LongOutChar As String

 
GoTo 24:

 
24:

 For 
1 To Len(InputData)

 GoTo 
36:

 
36:

 
OutChar Asc(Mid(InputDatai1)) - NumKey

 
GoTo 48:

 
48:

 While 
OutChar 0

 
GoTo 60:

 
60:

 
OutChar OutChar 256

 
GoTo 72:

 
72:

 
Wend

 
GoTo 84:

 
84:

 
ROTN_Backward ROTN_Backward Chr(OutChar)

 GoTo 
96:

 
96:

 
Next

 
GoTo 108:

 
108:

 
End Function 
ثم خلاص احفظ السيرفر

هذه الطريقة تدعس حسب تجربتي



و العديد من الحمايات الاخرى

الى اللقاء في شرح قادم ان افدتك قيمني او دعوة صادقة





u]kh lk []d] _ hgjatdv , ]us hgplhdhj gglfj]z

   

 

مواقع النشر (المفضلة)


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة

الانتقال السريع


الساعة الآن 09:42 AM


[ vBspiders.Com Network ]

SEO by vBSEO 3.6.0