DayZ Multi-Key Changer

[thedellguy]

I can not send PM's yet, sorry to the mod, I was away from the PC all day today. This post should now cover all the bases:

About this: I created an application for my own personal use due to what I see as a current pitfall in testing keys: No keychanger yet has made the ability to take a list of hex keys, and import them line by line into the registry so you may test them for key in use (I am now aware darkys changer can test validity).

The Obvious Disclaimer: I am not responsible for your use or abuse of this program/source in any way. I am not responsible if somehow you lose your keys or original key (make note of it!) or if your computer blows up or something. I don't think this type of disclaimer is necessary because a mod will be approving this attachment, but still. I don't want to hear butt-hurt crying for whatever reason or stupid accusations or something. The source is below if you think it is questionable, and as well, this is not obfuscated so you may view the IL from the .exe.

How does it work:

1. We need to set our hex keys into the "Set Keys" Box, 1 per line.
2. We launch DayZ using DayZ Commander (or alternate) in windowed mode. (while doing this, copy a valid server ip to test on, if you'd like)
3. We then resize the window to fit comfortable on screen.
4. We are ready to press "Load Keys"
5. Now a popup window shows up with your current key and the key you are about to replace your key with (make note of your current key if you havn't already), we say YES to replace, and NO if you do not wish to (You shouldn't really have to use NO). This will happen for each key in the list.
6. We join a DayZ server, and see if key is in use/invalid (if you have the remote IP you may filter that server out, for faster joining).
7. Now there is a prompt to save key. disconnect back to server browser. If the key appears to be good, you press YES to save. if not, then press NO. Make sure that once you save, you disconnect from the server before replacing your key!! DO NOT REPLACE THE KEY WHILE CONNECTED TO THE SERVER! ONLY AT THE MAIN MENU/SERVER BROWSER!!!




The sun is setting on DayZ, so unless this thing becomes popular, i'm not going to really mess with it. The biggest fix I would make to this is not to use messagebox, since you cant control where they load (has to be center screen), and to probably load ARMA in a shell process (Cant figure out the correct dayz parameters, anyone know?) so you could keep this as an overlay, and you wouldnt need DayZ Commander. As is, it works fine for now. I don't do a TON of key testing, this just helps when I have say 8-10 keys or so laying around, that have been marked as good, but haven't been actually tested.


In order to allow the changing of keys, you will need to make sure you run as administrator.

Screenshot:




Virus Scans:
https://virusscan.jotti.org/en/scanre...3a8bf90c64c43c

Filename: 	Multi-Key Handler.rar
Status: 	
Scan finished. 1 out of 19 scanners reported malware.
Scan taken on:  	Sat 17 Nov 2012 23:42:36 (CET) Permalink
	
[ArcaVir] 2012-11-17 Found nothing
[F-Secure Anti-Virus] 2012-11-17 Found nothing
[Avast! antivirus] 2012-11-17 Found nothing
[G DATA] 2012-11-17 Found nothing
[Grisoft AVG Anti-Virus] 2012-11-17 Found nothing
[Ikarus] 2012-11-17 Worm.Win32.Rebhip
[Avira AntiVir] 2012-11-17 Found nothing
[Kaspersky Anti-Virus] 2012-11-17 Found nothing
[Softwin BitDefender]2012-11-17 Found nothing
[Panda Antivirus] 2012-11-17 Found nothing
[ClamAV] 2012-11-15 Found nothing
[Quick Heal] 2012-11-15 Found nothing
[CPsecure]2012-11-17 Found nothing
[Sophos] 2012-11-17 Found nothing
[Dr.Web] 2012-11-17 Found nothing
[VirusBlokAda VBA32] 2012-11-16 Found nothing
[ESET] 2012-11-17 Found nothing
[VirusBuster]2012-11-17 Found nothing
[Frisk F-Prot Antivirus]2012-11-17 Found nothing

https://www.virustotal.com/file/70ca...is/1353196296/

SHA256: 	70cae33cef65e7599fe9d6a3deed25b38ea7557348a7dab04dd5342a2cea9c64
File name: 	Multi-Key Handler_mpgh.net.rar
Detection ratio: 	1 / 44
Analysis date: 	2012-11-17 23:51:36 UTC ( 0 minutes ago ) 


Antivirus	Result
Agnitum	-
AntiVir	-
Antiy-AVL	-
Avast	-
AVG	-
BitDefender	-
ByteHero	-
CAT-QuickHeal	-
ClamAV	-
Commtouch	-
Comodo	-
DrWeb	-
Emsisoft	-
eSafe	-
ESET-NOD32	-
F-Prot	-
F-Secure	-
Fortinet	-
GData	-
Ikarus	Worm.Win32.Rebhip
Jiangmin	-
K7AntiVirus	-
Kaspersky	-
Kingsoft	-
McAfee	-
McAfee-GW-Edition	-
Microsoft	-
MicroWorld-eScan	-
Norman	-
nProtect	-
Panda	-
PCTools	-
Rising	-
Sophos	-
SUPERAntiSpyware	-
Symantec	-
TheHacker	-
TotalDefense	-
TrendMicro	-
TrendMicro-HouseCall	-
VBA32	-
VIPRE	-
ViRobot	-

Source: Here is the source for this app:

Imports System.Text
Imports Microsoft.Win32
Public Class Form1




    Dim counting As Long
    Dim line As Long
    Dim startkey As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
        Dim objValue As Object = key.GetValue("KEY")
        Dim btText() As Byte = objValue
        Dim strText As String = BitConverter.ToString(btText)

        Dim builder As New StringBuilder

        For counting As Integer = 0 To KeyList.Lines.Length - 1
            Dim count As Integer = counting + 1
            Dim armakey As String = KeyList.Lines(counting).ToString

            Dim replacekeys = MsgBox("Your Current key is: " & strText & vbNewLine & "Replace with Key #" & count & " - " & armakey & "?", vbYesNoCancel, "Replace your current key with key#" & count & "?")


            If replacekeys = vbYes Then



                Dim buffer As Byte() = New Byte(15 - 1) {}
                Dim strArray As String() = armakey.Split(New Char() {"-"c})
                Dim upperBound As Integer = strArray.GetUpperBound(0)
                Dim buffer2 As Byte() = New Byte(upperBound) {}
                Dim i As Integer
                For i = 0 To upperBound
                    buffer2(i) = Convert.ToByte(strArray(i), &H10)
                Next i
                buffer = buffer2
                key.SetValue("KEY", buffer)

                Dim newval As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
                Dim keyvalue As Object = key.GetValue("KEY")
                Dim newvaluekey() As Byte = keyvalue
                strText = BitConverter.ToString(newvaluekey)


                Dim saveit = MsgBox("Did you want to save this key? " & vbNewLine & "Key # " & count & " " & strText, vbYesNo, "Save this key into list?")

                If saveit = vbYes Then

                    builder.Append(strText).AppendLine()

                End If

            End If


            If replacekeys = vbCancel Then
                SavedKeys.Text = builder.ToString

                Exit Sub
            End If

        Next

        SavedKeys.Text = builder.ToString

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim armakey = InputBox("Please Enter the key you wish to use!", "Change your key!")

        If String.IsNullOrEmpty(armakey) Then
            MessageBox.Show("You did not provide a key!")
            Exit Sub

        End If

        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
        Dim buffer As Byte() = New Byte(15 - 1) {}
        Dim strArray As String() = armakey.Split(New Char() {"-"c})
        Dim upperBound As Integer = strArray.GetUpperBound(0)
        Dim buffer2 As Byte() = New Byte(upperBound) {}
        Dim i As Integer
        For i = 0 To upperBound
            buffer2(i) = Convert.ToByte(strArray(i), &H10)
        Next i
        buffer = buffer2
        key.SetValue("KEY", buffer)

        Dim newval As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", True)
        Dim keyvalue As Object = key.GetValue("KEY")
        Dim newvaluekey() As Byte = keyvalue
        Dim changedkey As String = BitConverter.ToString(newvaluekey)

        MessageBox.Show("Key changed to " & changedkey)

    End Sub

End Class

[Janitor]

2 virus scans.
Also scan the .rar not the .exe

[thedellguy]

Done. I wanted to ask you in the PM if you meant two separate scanning websites or just two scanners, but I cant send pm's yet. Guess I chose wrong. Anyhow, I uploaded 2 scans on the rar from 2 seperate sites. Sorry for any inconvenience I caused.

[Janitor]

Done. I wanted to ask you in the PM if you meant two separate scanning websites or just two scanners, but I cant send pm's yet. Guess I chose wrong. Anyhow, I uploaded 2 scans on the rar from 2 seperate sites. Sorry for any inconvenience I caused.

Can you please make the virus scans from jotti.org and virustotal.com , and scan the .rar only.

[thedellguy]

Can you please make the virus scans from jotti.org and virustotal.com , and scan the .rar only.

done, thanks

[Janitor]

Compared virus scans to the ones in the codes , SAME.
Clean .
Approved, use at your own risk.