*This is not a keygen to play the game without paying for it, this is just an alternative to manually opening regedit every time you want to change your key*I recently took intro to computer science and realized I could actually make something I would use in the future. No reason not to share it, so here you go.
This won't work if you somehow changed your warband key path from "Computer\HKEY_CURRENT_USER\Software\MountAndBladeWarbandKeys"
Just paste a key into one of the boxes and click a button."Set Key" changes your default warband key, "Set NW" changes your NW key, there aren't any checks to make sure you put the key in correctly so make sure you don't fat-finger a button while copypasting or add an extra space
Download: http://tkc-community.net/forum/index.php?action=downloads;sa=view;down=471https://www.virustotal.com/#/file/776b82f5ffa754e91832bc844d9233139fa7061bf95b9b8075ca2529d5be467b/detectionIf it isn't working try running as administrator. If it still doesn't work I don't know how to help you, this is only tested on Windows 10 64-bit.
'this is the entirety of the bad code behind the GUI, in case you're paranoid about thievery
Public Class frmKeyChanger
Dim strKey As String
Dim strName As String
Dim strReg As String = "HKEY_CURRENT_USER\Software\MountAndBladeWarbandKeys"
Private Sub btnSet1_Click(sender As Object, e As EventArgs) Handles btnSet1.Click
strName = "serial_Key"
strKey = txtKey1.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnErase1_Click(sender As Object, e As EventArgs) Handles btnErase1.Click
txtKey1.Clear()
End Sub
Private Sub btnSet2_Click(sender As Object, e As EventArgs) Handles btnSet2.Click
strName = "serial_Key"
strKey = txtKey2.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnSet3_Click(sender As Object, e As EventArgs) Handles btnSet3.Click
strName = "serial_Key"
strKey = txtKey3.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnSet4_Click(sender As Object, e As EventArgs) Handles btnSet4.Click
strName = "serial_Key"
strKey = txtKey4.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnSet5_Click(sender As Object, e As EventArgs) Handles btnSet5.Click
strName = "serial_Key"
strKey = txtKey5.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnErase2_Click(sender As Object, e As EventArgs) Handles btnErase2.Click
txtKey2.Clear()
End Sub
Private Sub btnErase3_Click(sender As Object, e As EventArgs) Handles btnErase3.Click
txtKey3.Clear()
End Sub
Private Sub btnErase4_Click(sender As Object, e As EventArgs) Handles btnErase4.Click
txtKey4.Clear()
End Sub
Private Sub btnErase5_Click(sender As Object, e As EventArgs) Handles btnErase5.Click
txtKey5.Clear()
End Sub
Private Sub btnNw1_Click(sender As Object, e As EventArgs) Handles btnNw1.Click
strName = "serial_key_nw"
strKey = txtKey1.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnNw2_Click(sender As Object, e As EventArgs) Handles btnNw2.Click
strName = "serial_key_nw"
strKey = txtKey2.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnNw3_Click(sender As Object, e As EventArgs) Handles btnNw3.Click
strName = "serial_key_nw"
strKey = txtKey3.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnNw4_Click(sender As Object, e As EventArgs) Handles btnNw4.Click
strName = "serial_key_nw"
strKey = txtKey4.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
Private Sub btnNw5_Click(sender As Object, e As EventArgs) Handles btnNw5.Click
strName = "serial_key_nw"
strKey = txtKey5.Text
My.Computer.Registry.SetValue(strReg, strName, strKey)
End Sub
End Class