:: vBspiders Professional Network :: - عدنا من جديد _ التشفير و دعس الحمايات

http://img577.imageshack.us/img577/9239/59241902.png

السلام عليكم و رحمة الله و بركاته عيدكم مبارك جميعا
لي مدة عن طرح المواضيع في المنتدى و اظن انكم نسيتوني http://www.dev-point.com/vb/imagize/...0%28226%29.gif
مو مهم طيب عدت لكم بشرح جميل جدا لتشفير اي سيرفر و دعس الحمايات

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

http://img11.hostingpics.net/pics/374714Capture.jpg

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

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

http://www.iraqup.com/up/20110828/Uh..._473132954.jpg

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

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

http://img11.hostingpics.net/pics/921395Captured.png

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

http://img11.hostingpics.net/pics/777849dssd.png

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

http://img11.hostingpics.net/pics/58705638d.jpg

http://img11.hostingpics.net/pics/17695463ds.png

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

http://img11.hostingpics.net/pics/757651Untitled1.jpg

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

http://img11.hostingpics.net/pics/97390857x.jpg

نحدد مثل الصورة http://www.dev-point.com/vb/imagize/smilies/6.gif

http://img11.hostingpics.net/pics/651011Capture.jpg

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

http://www.up-00.com/Feb10/fHd49378.png

http://www.up-00.com/Feb10/XBl49378.png

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

http://www.up-00.com/Feb10/Mxc49594.png

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

كود 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

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

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

http://virusscan.jotti.org/images/logos/avast.gif http://virusscan.jotti.org/images/logos/avg.gif http://virusscan.jotti.org/images/logos/kaspersky.gif http://virusscan.jotti.org/images/logos/avira.gif

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

الى اللقاء في شرح قادم ان افدتك قيمني او دعوة صادقة http://www.dev-point.com/vb/imagize/smilies/1.gif