'RegCode.vbs
'Brute forces an X digit registration code
'Author:  Boaty
'Date:    30 September 2007

dim wshshell, RegCode
set wshshell = wscript.createobject("wscript.shell")

'The lowest number the RegCode could be.
RegCode = 11111111160713

'The sleep 3000 gives you time to bring up the window
'before the loop starts.
wscript.sleep 3000

Do

wshshell.sendkeys RegCode

'Pauses to allow the 'Wrong Code' message to disapear.
wscript.sleep 1500

RegCode = RegCode + 1
Loop While RegCode < 11111111199999

wscript.quit()