Visual Basic Forum

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

Thema: Wie funktioniert ein Binder

Hi Leute.

Heute zeige ich euch eine einfache Variante eines Binders.
Wer noch nicht den Artikel „Builder programmieren für Anfänger“ gelesen hat, sollte das zuerst tun.

Als erstes möchte ich euch gleich mal sagen, das ich hier hauptsächlich die Theorie erklären werde und keinen kompletten source posten werde.
Solange man verstanden hat wie der Builder programmiert wird, ist es auch kein Problem diesem Artikel zu folgen und ihn umzusetzen.

1. Grundidee

Was macht ein Binder und wie funktioniert er?

Einen Binder benutzt man um mehrere Dateien in einer zu vereinen.
Gebraucht wird das normal, weil man jemandem Schadprogramme unterjubeln möchte ohne dass er bemerkt dass sich im Hintergrund diese Schadprogramme installieren.
Gängige Variante ist es, dass ein normales Programm sichtbar gestartet wird und die Schadprogramme unsichtbar.

Funktionieren tut unsere Variante so, dass der Binder einfach alle Dateien an eine stub hängt, bzw. hinten dran schreibt.
Man benötigt also wieder eine stub Datei, die diese Daten beim starten ausliest und dann auf der Festplatte erstellt.

Was benötigen wir also?

1. Binder
2. stub(server)

Na gut. Das ist ja schon klar. Aber was benötigt der server an Informationen um die gebundenen Dateien wieder voneinander trennen zu können?
Ganz einfach.

1. Wir brauchen die Positionen vom Anfang und Ende jeder Datei, bzw. wie groß die Datei ist.

Stellt euch das etwa so vor:

-----------------------------------------
stub+file1+file2+file3+file4+file5
-----------------------------------------

2. Builder

Also wie fügen wir jetzt die Files + die nötigen Infos an den server?
Als erstes brauchen wir eine Schleife zum anhängen der Files.

raptor0576_ · Tutorial Leser Anmeldedatum: 19.05.2007 Beiträge: 20

du hast ein paar bugs drin aber thx...

TeBulba_ · Newbie Anmeldedatum: 30.07.2007 Beiträge: 3

[code]stub = "C:\stub.txt"

Dim buffer As String

For i = 1 To lv.ListItems.Count
file = lv.ListItems(i).Text
Open stub For Binary As #1
Open file For Binary As #2
buffer = Space(LOF(2))
Get #2, , buffer
Put #1, LOF(1) + 1, buffer
Close
Next i[/code]

so funktioniert der auch.. Razz

files an stub anhängen und nicht anders rum Wink

raptor0576_ · Tutorial Leser Anmeldedatum: 19.05.2007 Beiträge: 20

thx

aber hab ein prob mit der stub...

Hamtaro_ · Verfasst am: 31.07.2007, 06:06

ich schätze mal ,das du solche Sachen nicht in der Entwicklunsumgebung ausführen kannst, du musst vorher die .exe date erstellen ,sonst kann VB auch nich auf sie zugreifen.
_________________

Wie findet ihr meine Sig?

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

@TeBulba

Thx. Hab ich ganz übersehen. Habs editiert.

@raptor0576

Bei der Zeile
[code]file = "C:\" [/code]

Mußt du natürlich den kompletten Pfad eingeben wo die Datei erstellt werden soll.
Sollte dann eigentlich funktionieren.

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

raptor0576_ · Tutorial Leser Anmeldedatum: 19.05.2007 Beiträge: 20

hm...
also 1 ich hab auch and die entwicklungsumgebung gedacht und natürlich auch die progs compiliert Wink

aber funzt trotzdem nicht. und des mit dem pafd verstehe ich nicht...

ich dachte der pfad wär des wo die angehängten dateien "extrahiert" werden sollen, oder nicht?

weil dann wär es nähmlich iwie dumm wenn man noch ne komplette datei angeben muss... oder wie jetzt?! Very Happy

//edit
ich habs mit dem pfad versucht... hat aber auch nicht geklappt....
kann wer pls den kompletten code für die stub posten?

thx schonmal

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

Du brauchst doch nur die zwei codes des servers in einer Sub zusammenfügen.

[code]
Private Sub Form_Load()

Dim options As String * 100
Dim cmd() as string

Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
Get #1, (LOF(1) - 99), options
cmd() = Split(options, "#")
Close

For i = 1 To (cmd(0) * 2) Step 2
Dim file As String
Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
Open ("Pfad zum erstellen der Datei + Dateiname") For Binary As #2
file = Space(cmd(i + 1))
Get #1, cmd(i), file
Put #2, , file
Close
Next i

End Sub
[/code]

Ich versteh nicht ganz was da so schwer ist.
Der Pfad sollte auch den Dateinamen enthalten. Nur "C:\" reicht eben nicht.
Und die Function "cmd()" von dir ist auch falsch. Hab ich vergessen genau hinzuschreiben. Du mußt cmd() als string deklarieren. Habs dir oben im Code eingefügt.

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

raptor0576_ · Tutorial Leser Anmeldedatum: 19.05.2007 Beiträge: 20

ty @ ZiG for support!

hab noch ein prob!

ich will an die stub noch eine information anhängen... das ist ja kein problem aber ich weis net genau wie ich die stub umschreiben muss damit sie alle dateien richtig entpackt...

kann wer pls die erste zeile genau erläutern, also warum * 2 und - 1 gerechnet wird?:

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

Diese Methode zum auslesen der Daten hab ich nur für dieses Tutorial gewählt.
Normalerweise mache ich das anders.
Aber zuerst erklär ich dir mal was diese Zeile bedeuted.

[code]
x = (cmd(0) * 2) - 1
[/code]

In cmd(0) steht drinnen wieviele Dateien miteinander gebindet wurden. Diese Info wird beim Builder mit angehängt.

Im ganzen ist das so aufgebaut:

Nemesis_ · Newbie Anmeldedatum: 09.02.2008 Beiträge: 2

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

Mit "Redim" kannst du die Größe eines Arrays nochmals verändern.
"Dimensionieren".

Also ich lasse als Beispiel in den Arrays "start" und "byte" die Informationen über Größe der angehängten Datein und wo sie in der fertigen Datei anfängt speichern.

Nur mußt du voher bestimmen wieviele Daten in die Arrays kommen sollen.
Und wieviele? Ganze einfach. Soviele wie Dateien in der Liste sind.

Redim start(1 to ListView1.Listitems.Count)

Das andere Array genauso.
Jedenfalls sollte das so stimmen. Habs nur mal überflogen.

Zu deinem Error:
In der Liste sollte natürlich der komplette Pfad zu Datei stehen, sonst kann er die Dateien nicht öffnen.
Btw. hast du auch nen Schreibfehler. "Listvew1"
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Nemesis_ · Newbie Anmeldedatum: 09.02.2008 Beiträge: 2

thx für den support

Also es klappt jetzt besser aber der error kommt net vom schreibfehler den hab ich nich gemacht ich hab einfach den text vom ersten post kopiert da ich auf nem anderen pc code...

Ich weiss immernoch nich woher der Error kommt also wenn ich es so schreib:

For i = 1 To Listvew1.ListItems.Count
file = ListView1.ListItems(i).Text
Open stub For Binary As #1
Open file For Binary As #2
Buffer = Space(LOF(2))
Get #2, , Buffer
Put #1, LOF(1) + 1, Buffer
start(i) = (LOF(1) + 1)
byte(i) = LOF(2)
Close
Next i

bringt er eben den error "bad filename or number" aber wenn ich LOF durch was anderes ersetze dann kommt der error nich also z.b. so:

For i = 1 To Listvew1.ListItems.Count
file = ListView1.ListItems(i).Text
Open stub For Binary As #1
Open file For Binary As #2
Buffer = Space(LOF(2))
Get #2, , Buffer
Put #1, LOF(1) + 1, Buffer
start(i) = "test"
byte(i) = "test2"
Close
Next i

auch wenn ich LOF durch ne msgbox aufrufen will kommt der error...
_________________

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

Ich schätze mal das du einen Pfad nicht korrekt übergibst.

Edit//
Oder frag halt LOF(2) nur einmal ab und speichere es in einer Variable zwischen.
Dann kannst du die weiter verwenden.

Problem könnte evt. der gleich danach folgende Close Aufruf sein.
Sollte zwar kein Prob sein, aber ist mir halt aufgefallen.
Evt. mal ein DoEvents dazwischen einbauen.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)