Skeetendo

’Cause all games were better on the GBC

You are not logged in.

#1 1970-01-01 00:33:30

davidgeek
New member
Registered: 2010-10-16
Post 1/2

Pokémon Gold/Sliver Clock Password Finder

[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 :

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

Offline

#2 1970-01-01 00:33:30

Mateo
Member
From: The Sims 4
Registered: 2009-11-25
Post 287/3,578

Re: Pokémon Gold/Sliver Clock Password Finder

Nicely done sir

Offline

#3 2011-04-12 11:11:05

LucidLynx
Member
Registered: 2011-04-12
Post 2/21

Re: Pokémon Gold/Sliver Clock Password Finder

The forum have a problem with certains characters

New code 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

Offline

#4 2011-04-12 13:33:11

179/703

Re: Pokémon Gold/Sliver Clock Password Finder

LucidLynx wrote:

The forum have a problem with certains characters

I don’t know what you mean by this. If it’s a problem with the forum, tell me more about it, by email if you have to: iimarckus@gmail.com

#5 2011-04-12 16:09:45

LucidLynx
Member
Registered: 2011-04-12
Post 5/21

Re: Pokémon Gold/Sliver Clock Password Finder

IIMarckus wrote:
LucidLynx wrote:

The forum have a problem with certains characters

I don’t know what you mean by this. If it’s a problem with the forum, tell me more about it, by email if you have to: iimarckus@gmail.com

http://skeetendo.proboards.com/index.cg … thread=117

When the post was moved in the new forum, some characters has changed (ex : < to &lt;)
If you make copy-paste the VBScript don't work.

I repaired it.

Offline

#6 2011-04-13 04:28:33

181/703

Re: Pokémon Gold/Sliver Clock Password Finder

Thanks, I corrected it in the original post too.

Board footer

Powered by FluxBB