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

mouadh kouki · 11-06-2011, 06:30 PM

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

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

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

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

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

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

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

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

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

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

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

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

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

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

كود PHP:

  Public Function ROTN_Forward(ByVal InputData As String, ByVal NumKey As Integer) As String

 GoTo 12:

 12:

 Dim i As Long, OutChar As String

 GoTo 24:

 24:

 For i = 1 To Len(InputData)

 GoTo 36:

 36:

 OutChar = Asc(Mid(InputData, i, 1)) + 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 String, ByVal NumKey As Integer) As String

 GoTo 12:

 12:

 Dim i As Long, OutChar As String

 GoTo 24:

 24:

 For i = 1 To Len(InputData)

 GoTo 36:

 36:

 OutChar = Asc(Mid(InputData, i, 1)) - 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