DayZ Multi-Key Changer
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:
http://virusscan.jotti.org/en/scanre...3a8bf90c64c43c
https://www.virustotal.com/file/70ca...is/1353196296/
Source: Here is the source for this app:
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:
http://virusscan.jotti.org/en/scanre...3a8bf90c64c43c
Code:
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/
Code:
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:
Code:
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
Originally Posted by thedellguy
