Post by davidgeek on Aug 29, 2010 10:09:08 GMT -5
[Sorry for my possible english mistakes, i'm a french guy !]
I made a small program in VBScript.
You can find the clock password of Pokémon Gold or Sliver for change Date / Time
(Select + Down + B in the title screen).
For use this script, copy the code below (in the quotes) into the Windows notepad, then
save the file with the extension .VBS
You just have to click on the icon of this file for use the password finder.
Reply : What do you think of this tool ?
Code start here :
I made a small program in VBScript.
You can find the clock password of Pokémon Gold or Sliver for change Date / Time
(Select + Down + B in the title screen).
For use this script, copy the code below (in the quotes) into the Windows notepad, then
save the file with the extension .VBS
You just have to click on the icon of this file for use the password finder.
Reply : What do you think of this tool ?
Code start here :
On Error Resume Next
MsgBox "This VBScript can generate your G/S time change password which allows you to reset the clock in Pokémon Gold/Silver." & VbCrLf & _
"You need to give your character's name, your ID number and your held money (not the amount your mom keeps in home)." & VbCrLf & _
"To reach the password screen, press Select+Down+B in the title screen (where Ho-oh and Lugia appear) and select YES." & VbCrLf & VbCrLf & _
"If you want a universal password, put 0 as your money amount so everytime you need to change time, give the money you hold to your mom.",VbInformation,"Pokémon Gold/Silver Clock Password Finder"
InputName = InputBox("Your name (case sensitive) :" & VbCrLf & _
" - PK sign must be entered as <" & VbCrLf & _
" - MN sign must be entered as >" & VbCrLf & _
" - × sign must be entered as *","Your name")
InputID = InputBox("Your ID :","Your ID")
InputMoney = InputBox("Your money :","Your money")
Password = CStr(PokeGSClockPass(InputName, InputID, InputMoney))
MsgBox "Clock password : " & Password & VbCrLf & VbCrLf & _
"--------------------------" & VbCrLf & _
"VBScript by Davidgeek",VbInformation,"Password : " & Password
Function PokeGSClockPass(Name, ID, Money)
' Step 1 : Name (S1)
If Len(Name) > 5 Then
Name = Left(Name, 5)
End If
For i = 1 To Len(Name)
CurrChar = Mid(Name, i, 1)
If Asc(CurrChar) >= 65 And Asc(CurrChar) <= 90 Then
S1 = S1 + (Asc(CurrChar) + 63)
ElseIf Asc(CurrChar) >= 97 And Asc(CurrChar) <= 122 Then
S1 = S1 + (Asc(CurrChar) + 63)
ElseIf Asc(CurrChar) = 45 Then S1 = S1 + 227
ElseIf Asc(CurrChar) = 63 Then S1 = S1 + 230
ElseIf Asc(CurrChar) = 47 Then S1 = S1 + 243
ElseIf Asc(CurrChar) = 46 Then S1 = S1 + 232
ElseIf Asc(CurrChar) = 44 Then S1 = S1 + 244
ElseIf Asc(CurrChar) = 40 Then S1 = S1 + 154
ElseIf Asc(CurrChar) = 41 Then S1 = S1 + 155
ElseIf Asc(CurrChar) = 58 Then S1 = S1 + 156
ElseIf Asc(CurrChar) = 59 Then S1 = S1 + 157
ElseIf Asc(CurrChar) = 91 Then S1 = S1 + 158
ElseIf Asc(CurrChar) = 93 Then S1 = S1 + 159
ElseIf Asc(CurrChar) = 60 Then S1 = S1 + 225
ElseIf Asc(CurrChar) = 62 Then S1 = S1 + 226
ElseIf Asc(CurrChar) = 33 Then S1 = S1 + 231
ElseIf Asc(CurrChar) = 42 Then S1 = S1 + 241
End If
Next
' Step 2 : Money (S2)
Do While Money > 65535
Money = Money - 65535
Loop
S2 = Int(Money / 256) + Reminder(Money)
' Step 3 : ID (S3)
Do While ID > 65535
ID = ID - 65535
Loop
S3 = Int(ID / 256) + Reminder(ID)
' Step 4 : Pass (S1 + S2 + S3)
Pass = S1 + S2 + S3
Do While Len(Pass) < 5
Pass = "0" & Pass
Loop
PokeGSClockPass = Pass
End Function
Function Reminder(Value)
Reminder = Value -(Int(Value / 256) * 256)
End Function