VB6 Code zur Laufzeit ausführen [+Beispiel] [+Neue Methode zum Fudden]

[Tix]

Habe eine Methode gefunden durch das microsoft Script control VBS code zur Laufzeit auszuführen.


Das heißt wir können einen Code als String in unserer Stub haben und den Code dann zur Laufzeit kompilieren [=wir können den string verschlüsseln = kein AV wird den code je detecten]


ein beispiel zur ermittlung vom aktuellem ExePfad :
- Als erstes müsst ihr das Steuerelement Microsoft Script Control in das Projekt einbinden
- Dann legt ihr es auf die Form1 und nennt es "s"


Dann fügt ihr diesen Code in die Form ein :

Private Sub Form_Load()
Call GetAppFileName
End Sub

Public Sub GetAppFileName()
Form1.s.AddObject "App", App, False
Form1.s.AddObject "Form1", Form1, True
sTest = "Form1.Caption = App.Path & ""\"" & App.Exename & "".exe"""
Form1.s.AddCode sTest
End Sub

Dieser Code gibt der Form1 die Caption mit dem Pfad zur ausgeführten exe Datei.


Die Strings hier kann man verschlüsseln, d.h. kaum möglich zu detecten und sehr unique jedesmal.
zB könnte ein verschlüsseltes so aussehen (decrypt funktion nicht eingefügt nur als beispiel)

Public Sub GetAppFileName()
Form1.s.AddObject "NDE3MDcw", App, False
Form1.s.AddObject "NDY2ZjcyNmQzMQ==", Form1, True
sTest = "Rm9ybTEuQ2FwdGlvbiA9IEFwcC5QYXRoICYgIiJcIiIgJiBBcHAuRXhlbmFtZSAmICIiLmV4ZSIi"
Form1.s.AddCode sTest
GetAppFileName = Form1.Caption
End Sub

kann kein vbs darum kann ich keine weiteren Beispiele zeigen aber finde es sehr interessant.



Habe auch ein Tut darüber gefunden wer mehr wissen will:
vb@rchiv · Workshops · MS ScriptControl - Code zur Laufzeit kompilieren





hf,
Tix