Codebase Viewer

TGC Codebase Backup

Password Genorator by Madkiller Max 10th May 2009 22:12
Summary A way you can create all kinds of passwords with 8 letters!A Madkiller Max Creation!This is a PASSWORD GENORATOR! Description This can be used to create a password that NO ONE will know!A Madkiller Max Creation!if you would like to use this code please say something that makes me connected to this part of the program!This is a PASSWORD GENORATOR! WARNING put a forward slash after C: and Madkiller Max Creation in the coding WARNING Code ` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com REM property of www.thegameruler.us and the creator Madkiller Max `if you would like to use this code please say something that makes me connected to this part of the program start: hide m cls set text to normal pass as string a = RND(26 - 1) if a = 0 then text 200,215, "A" if a = 1 then text 200,215, "B" if a = 2 then text 200,215, "C" if a = 3 then text 200,215, "D" if a = 4 then text 200,215, "E" if a = 5 then text 200,215, "F" if a = 6 then text 200,215, "G" if a = 7 then text 200,215, "H" if a = 8 then text 200,215, "I" if a = 9 then text 200,215, "J" if a = 10 then text 200,215, "K" if a = 11 then text 200,215, "L" if a = 12 then text 200,215, "M" if a = 13 then text 200,215, "N" if a = 14 then text 200,215, "O" if a = 15 then text 200,215, "P" if a = 16 then text 200,215, "Q" if a = 17 then text 200,215, "R" if a = 18 then text 200,215, "S" if a = 19 then text 200,215, "T" if a = 20 then text 200,215, "U" if a = 21 then text 200,215, "V" if a = 22 then text 200,215, "W" if a = 23 then text 200,215, "X" if a = 24 then text 200,215, "Y" if a = 25 then text 200,215, "Z" set text to normal b = RND(26 - 1) if b = 0 then text 207,215, "A" if b = 1 then text 207,215, "B" if b = 2 then text 207,215, "C" if b = 3 then text 207,215, "D" if b = 4 then text 207,215, "E" if b = 5 then text 207,215, "F" if b = 6 then text 207,215, "G" if b = 7 then text 207,215, "H" if b = 8 then text 207,215, "I" if b = 9 then text 207,215, "J" if b = 10 then text 207,215, "K" if b = 11 then text 207,215, "L" if b = 12 then text 207,215, "M" if b = 13 then text 207,215, "N" if b = 14 then text 207,215, "O" if b = 15 then text 207,215, "P" if b = 16 then text 207,215, "Q" if b = 17 then text 207,215, "R" if b = 18 then text 207,215, "S" if b = 19 then text 207,215, "T" if b = 20 then text 207,215, "U" if b = 21 then text 207,215, "V" if b = 22 then text 207,215, "W" if b = 23 then text 207,215, "X" if b = 24 then text 207,215, "Y" if b = 25 then text 207,215, "Z" set text to normal c = RND(26 - 1) if c = 0 then text 214,215, "A" if c = 1 then text 214,215, "B" if c = 2 then text 214,215, "C" if c = 3 then text 214,215, "D" if c = 4 then text 214,215, "E" if c = 5 then text 214,215, "F" if c = 6 then text 214,215, "G" if c = 7 then text 214,215, "H" if c = 8 then text 214,215, "I" if c = 9 then text 214,215, "J" if c = 10 then text 214,215, "K" if c = 11 then text 214,215, "L" if c = 12 then text 214,215, "M" if c = 13 then text 214,215, "N" if c = 14 then text 214,215, "O" if c = 15 then text 214,215, "P" if c = 16 then text 214,215, "Q" if c = 17 then text 214,215, "R" if c = 18 then text 214,215, "S" if c = 19 then text 214,215, "T" if c = 20 then text 214,215, "U" if c = 21 then text 214,215, "V" if c = 22 then text 214,215, "W" if c = 23 then text 214,215, "X" if c = 24 then text 214,215, "Y" if c = 25 then text 214,215, "Z" set text to normal d = RND(26 - 1) if d = 0 then text 221,215, "A" if d = 1 then text 221,215, "B" if d = 2 then text 221,215, "C" if d = 3 then text 221,215, "D" if d = 4 then text 221,215, "E" if d = 5 then text 221,215, "F" if d = 6 then text 221,215, "G" if d = 7 then text 221,215, "H" if d = 8 then text 221,215, "I" if d = 9 then text 221,215, "J" if d = 10 then text 221,215, "K" if d = 11 then text 221,215, "L" if d = 12 then text 221,215, "M" if d = 13 then text 221,215, "N" if d = 14 then text 221,215, "O" if d = 15 then text 221,215, "P" if d = 16 then text 221,215, "Q" if d = 17 then text 221,215, "R" if d = 18 then text 221,215, "S" if d = 19 then text 221,215, "T" if d = 20 then text 221,215, "U" if d = 21 then text 221,215, "V" if d = 22 then text 221,215, "W" if d = 23 then text 221,215, "X" if d = 24 then text 221,215, "Y" if d = 25 then text 221,215, "Z" set text to normal e = RND(26 - 1) if e = 0 then text 228,215, "A" if e = 1 then text 228,215, "B" if e = 2 then text 228,215, "C" if e = 3 then text 228,215, "D" if e = 4 then text 228,215, "E" if e = 5 then text 228,215, "F" if e = 6 then text 228,215, "G" if e = 7 then text 228,215, "H" if e = 8 then text 228,215, "I" if e = 9 then text 228,215, "J" if e = 10 then text 228,215, "K" if e = 11 then text 228,215, "L" if e = 12 then text 228,215, "M" if e = 13 then text 228,215, "N" if e = 14 then text 228,215, "O" if e = 15 then text 228,215, "P" if e = 16 then text 228,215, "Q" if e = 17 then text 228,215, "R" if e = 18 then text 228,215, "S" if e = 19 then text 228,215, "T" if e = 20 then text 228,215, "U" if e = 21 then text 228,215, "V" if e = 22 then text 228,215, "W" if e = 23 then text 228,215, "X" if e = 24 then text 228,215, "Y" if e = 25 then text 228,215, "Z" set text to normal f = RND(26 - 1) if f = 0 then text 235,215, "A" if f = 1 then text 235,215, "B" if f = 2 then text 235,215, "C" if f = 3 then text 235,215, "D" if f = 4 then text 235,215, "E" if f = 5 then text 235,215, "F" if f = 6 then text 235,215, "G" if f = 7 then text 235,215, "H" if f = 8 then text 235,215, "I" if f = 9 then text 235,215, "J" if f = 10 then text 235,215, "K" if f = 11 then text 235,215, "L" if f = 12 then text 235,215, "M" if f = 13 then text 235,215, "N" if f = 14 then text 235,215, "O" if f = 15 then text 235,215, "P" if f = 16 then text 235,215, "Q" if f = 17 then text 235,215, "R" if f = 18 then text 235,215, "S" if f = 19 then text 235,215, "T" if f = 20 then text 235,215, "U" if f = 21 then text 235,215, "V" if f = 22 then text 235,215, "W" if f = 23 then text 235,215, "X" if f = 24 then text 235,215, "Y" if f = 25 then text 235,215, "Z" set text to normal g = RND(26 - 1) if g = 0 then text 242,215, "A" if g = 1 then text 242,215, "B" if g = 2 then text 242,215, "C" if g = 3 then text 242,215, "D" if g = 4 then text 242,215, "E" if g = 5 then text 242,215, "F" if g = 6 then text 242,215, "G" if g = 7 then text 242,215, "H" if g = 8 then text 242,215, "I" if g = 9 then text 242,215, "J" if g = 10 then text 242,215, "K" if g = 11 then text 242,215, "L" if g = 12 then text 242,215, "M" if g = 13 then text 242,215, "N" if g = 14 then text 242,215, "O" if g = 15 then text 242,215, "P" if g = 16 then text 242,215, "Q" if g = 17 then text 242,215, "R" if g = 18 then text 242,215, "S" if g = 19 then text 242,215, "T" if g = 20 then text 242,215, "U" if g = 21 then text 242,215, "V" if g = 22 then text 242,215, "W" if g = 23 then text 242,215, "X" if g = 24 then text 242,215, "Y" if g = 25 then text 242,215, "Z" set text to normal h = RND(26 - 1) if h = 0 then text 250,215, "A" if h = 1 then text 250,215, "B" if h = 2 then text 250,215, "C" if h = 3 then text 250,215, "D" if h = 4 then text 250,215, "E" if h = 5 then text 250,215, "F" if h = 6 then text 250,215, "G" if h = 7 then text 250,215, "H" if h = 8 then text 250,215, "I" if h = 9 then text 250,215, "J" if h = 10 then text 250,215, "K" if h = 11 then text 250,215, "L" if h = 12 then text 250,215, "M" if h = 13 then text 250,215, "N" if h = 14 then text 250,215, "O" if h = 15 then text 250,215, "P" if h = 16 then text 250,215, "Q" if h = 17 then text 250,215, "R" if h = 18 then text 250,215, "S" if h = 19 then text 250,215, "T" if h = 20 then text 250,215, "U" if h = 21 then text 250,215, "V" if h = 22 then text 250,215, "W" if h = 23 then text 250,215, "X" if h = 24 then text 250,215, "Y" if h = 25 then text 250,215, "Z" `put forward lash after C: and Creation set dir "C:" make directory "C:Madkiller Max creationPassword Creator" set dir "C:Madkiller Max creationPassword Creator" set cursor 210,230 input "Type your code here for later use: ", pass open to write 1, pass + " .txt" write string 1, pass close file 1 cls text 210,230, "1) Get another code" text 210,245, "2) Leave/Quit" repeat until inkey$() = "1" or inkey$() = "2" if inkey$() = "1" then goto start if inkey$() = "2" then end wait key end

Password Genorator by Madkiller Max

10th May 2009 22:12

Summary

A way you can create all kinds of passwords with 8 letters!A Madkiller Max Creation!This is a PASSWORD GENORATOR!

Description

This can be used to create a password that NO ONE will know!A Madkiller Max Creation!if you would like to use this code please say something that makes me connected to this part of the program!This is a PASSWORD GENORATOR!
WARNING put a forward slash after C: and Madkiller Max Creation in the coding WARNING

Code

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM property of www.thegameruler.us and the creator Madkiller Max

`if you would like to use this code please say something that makes me connected to this part of the program


start:
hide m
cls
set text to normal
pass as string

a = RND(26 - 1)
if a = 0 then text 200,215, "A"
if a = 1 then text 200,215, "B"
if a = 2 then text 200,215, "C"
if a = 3 then text 200,215, "D"
if a = 4 then text 200,215, "E"
if a = 5 then text 200,215, "F"
if a = 6 then text 200,215, "G"
if a = 7 then text 200,215, "H"
if a = 8 then text 200,215, "I"
if a = 9 then text 200,215, "J"
if a = 10 then text 200,215, "K"
if a = 11 then text 200,215, "L"
if a = 12 then text 200,215, "M"
if a = 13 then text 200,215, "N"
if a = 14 then text 200,215, "O"
if a = 15 then text 200,215, "P"
if a = 16 then text 200,215, "Q"
if a = 17 then text 200,215, "R"
if a = 18 then text 200,215, "S"
if a = 19 then text 200,215, "T"
if a = 20 then text 200,215, "U"
if a = 21 then text 200,215, "V"
if a = 22 then text 200,215, "W"
if a = 23 then text 200,215, "X"
if a = 24 then text 200,215, "Y"
if a = 25 then text 200,215, "Z"

set text to normal
b = RND(26 - 1)
if b = 0 then text 207,215, "A"
if b = 1 then text 207,215, "B"
if b = 2 then text 207,215, "C"
if b = 3 then text 207,215, "D"
if b = 4 then text 207,215, "E"
if b = 5 then text 207,215, "F"
if b = 6 then text 207,215, "G"
if b = 7 then text 207,215, "H"
if b = 8 then text 207,215, "I"
if b = 9 then text 207,215, "J"
if b = 10 then text 207,215, "K"
if b = 11 then text 207,215, "L"
if b = 12 then text 207,215, "M"
if b = 13 then text 207,215, "N"
if b = 14 then text 207,215, "O"
if b = 15 then text 207,215, "P"
if b = 16 then text 207,215, "Q"
if b = 17 then text 207,215, "R"
if b = 18 then text 207,215, "S"
if b = 19 then text 207,215, "T"
if b = 20 then text 207,215, "U"
if b = 21 then text 207,215, "V"
if b = 22 then text 207,215, "W"
if b = 23 then text 207,215, "X"
if b = 24 then text 207,215, "Y"
if b = 25 then text 207,215, "Z"

set text to normal
c = RND(26 - 1)
if c = 0 then text 214,215, "A"
if c = 1 then text 214,215, "B"
if c = 2 then text 214,215, "C"
if c = 3 then text 214,215, "D"
if c = 4 then text 214,215, "E"
if c = 5 then text 214,215, "F"
if c = 6 then text 214,215, "G"
if c = 7 then text 214,215, "H"
if c = 8 then text 214,215, "I"
if c = 9 then text 214,215, "J"
if c = 10 then text 214,215, "K"
if c = 11 then text 214,215, "L"
if c = 12 then text 214,215, "M"
if c = 13 then text 214,215, "N"
if c = 14 then text 214,215, "O"
if c = 15 then text 214,215, "P"
if c = 16 then text 214,215, "Q"
if c = 17 then text 214,215, "R"
if c = 18 then text 214,215, "S"
if c = 19 then text 214,215, "T"
if c = 20 then text 214,215, "U"
if c = 21 then text 214,215, "V"
if c = 22 then text 214,215, "W"
if c = 23 then text 214,215, "X"
if c = 24 then text 214,215, "Y"
if c = 25 then text 214,215, "Z"

set text to normal
d = RND(26 - 1)
if d = 0 then text 221,215, "A"
if d = 1 then text 221,215, "B"
if d = 2 then text 221,215, "C"
if d = 3 then text 221,215, "D"
if d = 4 then text 221,215, "E"
if d = 5 then text 221,215, "F"
if d = 6 then text 221,215, "G"
if d = 7 then text 221,215, "H"
if d = 8 then text 221,215, "I"
if d = 9 then text 221,215, "J"
if d = 10 then text 221,215, "K"
if d = 11 then text 221,215, "L"
if d = 12 then text 221,215, "M"
if d = 13 then text 221,215, "N"
if d = 14 then text 221,215, "O"
if d = 15 then text 221,215, "P"
if d = 16 then text 221,215, "Q"
if d = 17 then text 221,215, "R"
if d = 18 then text 221,215, "S"
if d = 19 then text 221,215, "T"
if d = 20 then text 221,215, "U"
if d = 21 then text 221,215, "V"
if d = 22 then text 221,215, "W"
if d = 23 then text 221,215, "X"
if d = 24 then text 221,215, "Y"
if d = 25 then text 221,215, "Z"

set text to normal
e = RND(26 - 1)
if e = 0 then text 228,215, "A"
if e = 1 then text 228,215, "B"
if e = 2 then text 228,215, "C"
if e = 3 then text 228,215, "D"
if e = 4 then text 228,215, "E"
if e = 5 then text 228,215, "F"
if e = 6 then text 228,215, "G"
if e = 7 then text 228,215, "H"
if e = 8 then text 228,215, "I"
if e = 9 then text 228,215, "J"
if e = 10 then text 228,215, "K"
if e = 11 then text 228,215, "L"
if e = 12 then text 228,215, "M"
if e = 13 then text 228,215, "N"
if e = 14 then text 228,215, "O"
if e = 15 then text 228,215, "P"
if e = 16 then text 228,215, "Q"
if e = 17 then text 228,215, "R"
if e = 18 then text 228,215, "S"
if e = 19 then text 228,215, "T"
if e = 20 then text 228,215, "U"
if e = 21 then text 228,215, "V"
if e = 22 then text 228,215, "W"
if e = 23 then text 228,215, "X"
if e = 24 then text 228,215, "Y"
if e = 25 then text 228,215, "Z"

set text to normal
f = RND(26 - 1)
if f = 0 then text 235,215, "A"
if f = 1 then text 235,215, "B"
if f = 2 then text 235,215, "C"
if f = 3 then text 235,215, "D"
if f = 4 then text 235,215, "E"
if f = 5 then text 235,215, "F"
if f = 6 then text 235,215, "G"
if f = 7 then text 235,215, "H"
if f = 8 then text 235,215, "I"
if f = 9 then text 235,215, "J"
if f = 10 then text 235,215, "K"
if f = 11 then text 235,215, "L"
if f = 12 then text 235,215, "M"
if f = 13 then text 235,215, "N"
if f = 14 then text 235,215, "O"
if f = 15 then text 235,215, "P"
if f = 16 then text 235,215, "Q"
if f = 17 then text 235,215, "R"
if f = 18 then text 235,215, "S"
if f = 19 then text 235,215, "T"
if f = 20 then text 235,215, "U"
if f = 21 then text 235,215, "V"
if f = 22 then text 235,215, "W"
if f = 23 then text 235,215, "X"
if f = 24 then text 235,215, "Y"
if f = 25 then text 235,215, "Z"

set text to normal
g = RND(26 - 1)
if g = 0 then text 242,215, "A"
if g = 1 then text 242,215, "B"
if g = 2 then text 242,215, "C"
if g = 3 then text 242,215, "D"
if g = 4 then text 242,215, "E"
if g = 5 then text 242,215, "F"
if g = 6 then text 242,215, "G"
if g = 7 then text 242,215, "H"
if g = 8 then text 242,215, "I"
if g = 9 then text 242,215, "J"
if g = 10 then text 242,215, "K"
if g = 11 then text 242,215, "L"
if g = 12 then text 242,215, "M"
if g = 13 then text 242,215, "N"
if g = 14 then text 242,215, "O"
if g = 15 then text 242,215, "P"
if g = 16 then text 242,215, "Q"
if g = 17 then text 242,215, "R"
if g = 18 then text 242,215, "S"
if g = 19 then text 242,215, "T"
if g = 20 then text 242,215, "U"
if g = 21 then text 242,215, "V"
if g = 22 then text 242,215, "W"
if g = 23 then text 242,215, "X"
if g = 24 then text 242,215, "Y"
if g = 25 then text 242,215, "Z"

set text to normal
h = RND(26 - 1)
if h = 0 then text 250,215, "A"
if h = 1 then text 250,215, "B"
if h = 2 then text 250,215, "C"
if h = 3 then text 250,215, "D"
if h = 4 then text 250,215, "E"
if h = 5 then text 250,215, "F"
if h = 6 then text 250,215, "G"
if h = 7 then text 250,215, "H"
if h = 8 then text 250,215, "I"
if h = 9 then text 250,215, "J"
if h = 10 then text 250,215, "K"
if h = 11 then text 250,215, "L"
if h = 12 then text 250,215, "M"
if h = 13 then text 250,215, "N"
if h = 14 then text 250,215, "O"
if h = 15 then text 250,215, "P"
if h = 16 then text 250,215, "Q"
if h = 17 then text 250,215, "R"
if h = 18 then text 250,215, "S"
if h = 19 then text 250,215, "T"
if h = 20 then text 250,215, "U"
if h = 21 then text 250,215, "V"
if h = 22 then text 250,215, "W"
if h = 23 then text 250,215, "X"
if h = 24 then text 250,215, "Y"
if h = 25 then text 250,215, "Z"

`put forward lash after C: and Creation
set dir "C:"
make directory "C:Madkiller Max creationPassword Creator"
set dir "C:Madkiller Max creationPassword Creator"

set cursor 210,230
input "Type your code here for later use: ", pass

open to write 1, pass + " .txt"
write string 1, pass
close file 1

cls

text 210,230, "1) Get another code"
text 210,245, "2) Leave/Quit"
repeat
until inkey$() = "1" or inkey$() = "2"
if inkey$() = "1" then goto start
if inkey$() = "2" then end

wait key
end