Password Switcher

Moin,

kennt ihr das Gefühl auch? Ihr habt ein langes Passwort, aber halt nur 1, weil ihr euch das besser merken könnt.
Mein Tool kann Abhilfe schaffen!

Ihr gebt dort einfach euer Standardpasswort ein und gebt es eine ID.
Und es wird euch ein PW erstellt, welches ihr sofort benutzen könnt.
Die ID könnt ihr euch selbst ausdenken. Ihr könnt „hackbase.cc“ nehmen oder eine Zahl.
Es wird mit MD5 rumgespielt und man kann zu 100% nicht den Ursprung verfolgen.

Hier mal ein Bild.

Und hier der Source: http://nopaste.info/60fabdb939.html
(Es wurde in VB.NET geschrieben.)
[spoiler]

[php]Public Class Form1

    Dim BufferCPU As String = String.Empty
    Dim TimerStep As Integer = 0

    Public Function getMD5(ByVal Input As String) As String

        ‚Mit dieser Funktion wird ein MD5-Hash vom Input erstellt.
        Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim Data As Byte()
        Dim Result As Byte()
        Dim Res As String = ""
        Dim Tmp As String = ""

        Data = System.Text.Encoding.ASCII.GetBytes(Input)
        Result = MD5.ComputeHash(Data)
        For i As Integer = 0 To Result.Length – 1
            Tmp = Hex(Result(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            Res += Tmp
        Next
        Return Res

    End Function

    Public Function getCPU() As String

        ‚Da das benutzen dieser Funktion etwas dauert, möchte ich durch diese Funktion die Wartezeit verkürzen.
        If BufferCPU = String.Empty Then

            ‚Diese Funktion gibt die ProzessorID aus. Dazu wird ein Verweis auf "System.Management" benötigt.
            Dim cpuInfo As String = String.Empty
            Dim mc As New System.Management.ManagementClass("win32_processor")
            Dim moc As System.Management.ManagementObjectCollection = mc.GetInstances()

            For Each mo As System.Management.ManagementObject In moc
                If cpuInfo = "" Then
                    cpuInfo = mo.Properties("processorID").Value.ToString()
                    Exit For
                End If
            Next

            ‚Hier Lade ich die ID in den Buffer. Die sich logischerweise nicht ändert, wenn das Programm bzw. der PC läuft.
            BufferCPU = cpuInfo
            Return cpuInfo

        Else
            Return BufferCPU

        End If

    End Function

    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then
            TextBox1.PasswordChar = "*"

        Else
            TextBox1.PasswordChar = String.Empty

        End If

    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

        If CheckBox5.Checked Then
            TextBox4.PasswordChar = "*"

        Else
            TextBox4.PasswordChar = String.Empty

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Stop()
        Button1.Text = "Show my password"

        ‚Hier geht der Spass los. Ich verwende gerne sinnlose Sachen um ein dercypten unmöglich zu machen.
        Dim Output As String = String.Empty
        Dim Buffer As String = String.Empty

        Output = getMD5("}][{" & TextBox1.Text & "?<>?" & TextBox4.Text & "!§$")

        If use_hwid.Checked Then
            Output = getMD5(Output & "abc__?!" & getCPU())
        End If

        For i As Integer = 2 To 20 Step 2
            Buffer &= Output(i)
        Next

        If Not large_pw.Checked Then
            Output = Buffer
        Else
            Output = getMD5("..,-!!!" & Buffer)
        End If

        If to_clipboard.Checked Then
            My.Computer.Clipboard.SetText(Output)
        End If

        If Not hide_output.Checked Then
            tb_output.Text = Output
        End If

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Select Case TimerStep

            Case 0
                Button1.Text = "R"

            Case 1
                Button1.Text = "Re"

            Case 2
                Button1.Text = "Rea"

            Case 3
                Button1.Text = "Read"

            Case 4
                Button1.Text = "Ready"

            Case 6
                Button1.Text = "Show my password"
                Timer1.Stop()
                TimerStep = -1

        End Select

        TimerStep += 1

    End Sub

End Class[/php]

[/spoiler]
Dann gibt es zu guter Letzt noch den Downloadlink.
Klick mich

Das Ganze ist eher ein langeweile Projekt, aber ich für mich ist er sehr nützlich.
Ich habe bewusst einfache Funktionen wie „My“ gewählt.

Ich hoffe ihr könnt was damit anfangen. Über ein Feedback würde ich mich freuen.

Edit: Jetzt gibt es auch noch einen VirusTotal-Bericht.
http://www.virustotal.com/file-scan/report.html?id=01a68e91f02498ec45d35b9dd1f15a0e24674839d51de6289553bd3875ec91ac-1314357144

Mfg.
SAR

Quelle : hackbase.cc