عدد النقاط : 10
السلام عليكم و رحمة الله و بركاته عيدكم مبارك جميعا لي مدة عن طرح المواضيع في المنتدى و اظن انكم نسيتوني مو مهم طيب عدت لكم بشرح جميل جدا لتشفير اي سيرفر و دعس الحمايات اول شئ نحتاج الى السروس كود طبعا تستطيع انتاجه عن طريق برنامج الاخ عبابنه او عن طريق غوغل طيب بعد الحصول على السورس كود نحتاج لتعديل عليه بقيم السيرفر الذي نريد تشفيره طبعا الكبير و الصغير يعرف كيفية تحويل السيرفر الى قيم وو ضعه في السورس طبعا سوف نستعمل برنامج المبدع عبابنه برنامج 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 ثم خلاص احفظ السيرفر هذه الطريقة تدعس حسب تجربتي و العديد من الحمايات الاخرى الى اللقاء في شرح قادم ان افدتك قيمني او دعوة صادقة المصدر: :: vBspiders Professional Network ::u]kh lk []d] _ hgjatdv , ]us hgplhdhj gglfj]z
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
u]kh lk []d] _ hgjatdv , ]us hgplhdhj gglfj]z