Visual Basic Forum

skin9r · Newbie Anmeldedatum: 03.12.2009 Beiträge: 4

Hallo ich beschäftige mich seit ein paar tagen mit VB 6 !

Hab einen Crypter entworfen also eig nur einen rohling..

Nun brauch ich eure Hilfe !

Kann mir jemand erklären woher ich die source bekomme für den crypter button ?

dann noch eine Frage , wenn ich das Proggy öffne kommt gleich das fenster wo ich auswählen kann welches Programm ich Crypten will/es sollte. und wenn ich es wegklicke und auf den button "Öffnen" klicke kommt garnichts :/

Bitte nur nette Comments daher ich ja neu bin Smile

lg skin9r

[img]http://www.bilder-space.de/show.php?file=04.12tPALfwHPqVTX2b9.JPG[/img]
_________________

skin9r · Newbie Anmeldedatum: 03.12.2009 Beiträge: 4

68 Leute schaun den Therad an und keiner kann mir helfen ? na dann werd ich demnächst verzichten auf dieses Forum!

christopher.g · Poster Anmeldedatum: 03.05.2008 Beiträge: 194

hey
vl wenn du dich deutlicher ausdrücken würdest vl würde dann jemand dein problem verstehen
und dann auch posten

"kann mir jemand erklären wo man den code für einen crypter her kriegt"
naja selber schreiben
oder googlen
schmitti hat auch mal einen code zum verschlüsseln ins netz gestellt
vl hilft dir der was
www.schmittis-page.de

ja und mit dem öffnen
zeig mal einen teil von deinem code vl sieht man dann den fehler

aber mit "da kommt nichts" kann keiner was anfangen

lg

skin9r · Newbie Anmeldedatum: 03.12.2009 Beiträge: 4

Ok das mit dem Öffnen funktioniert jz.. nur noch ein Problem wenn ich eine datei crypten möchte sagt er mir : Run time error 52 bad file name or number .

und dann beendet sich das programm leider.

Der Source code:

Dim sStub As String
Dim sFile As String
Dim sOutput As String
Dim sKey As String
Dim sInfo As String * 100
Dim lFileLen As Long
Dim lFileStart As Long
Dim sBuffer As String
Dim sBuffer2 As String
Dim iFF As Integer

Public Function ENC(ByVal sStr As String, ByVal sKey As String) As String
Dim i As Long
For i = 1 To Len(sStr)
ENC = ENC & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKey) <> 0, i Mod Len(sKey), Len(sKey)), 1)) Xor Asc(Mid(sStr, i, 1)))
Next i
End Function

Sub cmdBrowse_Click()
cdlg.ShowOpen
cdlg.Filter = " (*.exe) | *.exe"
If cdlg.FileName = "" Then
MsgBox "You forgot to choose your File", , "Error"
Else
txtFile.Text = cdlg.FileName
End If
End Sub

Private Sub cmdCrypt_Click()
sStub = App.Path & "\Stub\Stub.exe"
sFile = txtFile.Text
sKey = "RandomString"
sOutput = App.Path & "\Crypted.exe"

iFF = FreeFile

Open sStub For Binary As #FF
sBuffer = Space(LOF(iFF))
lFileStart = LOF(iFF) + 1
Get #iFF, , sBuffer
Close #iFF

iFF = FreeFile
Open sFile For Binary As #iFF
sBuffer2 = Space(LOF(iFF))
lFileLen = LOF(iFF)
Get #iFF, , sBuffer2
sBuffer2 = ENC(sBuffer2, sKey)
Close #iFF

sInfo = Str(lFileStart) & "#" & Str(lFileLen) & "#" & sKey & "#"

iFF = FreeFile
Open sOutput For Binary As #iFF
Put #iFF, , sBuffer
Put #iFF, lFileStart, sBuffer2
Put #iFF, LOF(iFF) + 1, sInfo
Close #iFF

MsgBox "Successful Crypted !", , "Succsessful"
End Sub

christopher.g · Poster Anmeldedatum: 03.05.2008 Beiträge: 194

und welche zeile wird gelb markiert?

hast du deinen code überhaupt schon mal angeschaut ?
ob du vl selber den fehler findest indem du probierst
_________________

skin9r · Newbie Anmeldedatum: 03.12.2009 Beiträge: 4

ja klar hab ich schon gemacht finde aber leider nichts daher ich leider noch ein blutiger anfänger bin Sad