Rick’s Password Generator Source Code

! This is a version v 0.2 of an RFO-BASIC
! for Android OS
! password generator app I wrote
! some time ago. Just enter the character
! length of the password that you want to
! generate and after it is generated, you
! will see it in a user input message box,
! the password can be copied to clipboard
! by pressing, highliting and holding the
! password, then either tap select all, if
! shown, then tap copy or you can find the
! generated password in the data folder.
! The name of the file will be
! AAAWhatu.txt
!
!

! Version 1.0 is better
! If you want a menu and
! copy to clipboard feature, just let me
! know.
! You’ll may edit this code if you want to.
!
! If you want a compiled .apk
! just let me know.
!
! You may download the free RFO-BASIC!
! interpreter from Google Play that I use,
! the link is below.
!

AAAAGENERATOR333Q:
CONSOLE.TITLE “Genarating…”
LET CTRXXXZZZ = 0
PPWP1$ = “”
CHAAR$ = “”
INPUT “How many characters?”, CHAAR$

TUPY1:
LET ABI2 = VAL(CHAAR$)
LET KHABSB = 0

TUPY2:
FOR ABI = 1 TO ABI2 STEP 1

TOP:
PAUSE 50
LET H = 0
LET CTRXXXZZZ += 1
CTRT$ = STR$(CTRXXXZZZ)
LET NM = LEN(CTRT$)
CTRT$ = LEFT$(CTRT$, NM – 2)

CLS
PRINT “-> “;
PRINT CTRT$;
PRINT ” <-”

LET H = 62

LET MOPN = ROUND(RND() * H)
IF MOPN = 0 THEN LET MOPN = 1
IF MOPN = 1 THEN PA1$ = “a”
IF MOPN = 2 THEN PA1$ = “b”
IF MOPN = 3 THEN PA1$ = “c”
IF MOPN = 4 THEN PA1$ = “d”
IF MOPN = 5 THEN PA1$ = “e”
IF MOPN = 6 THEN PA1$ = “f”
IF MOPN = 7 THEN PA1$ = “g”
IF MOPN = 8 THEN PA1$ = “h”
IF MOPN = 9 THEN PA1$ = “i”
IF MOPN = 10 THEN PA1$ = “j”
IF MOPN = 11 THEN PA1$ = “k”
IF MOPN = 12 THEN PA1$ = “l”
IF MOPN = 13 THEN PA1$ = “m”
IF MOPN = 14 THEN PA1$ = “n”
IF MOPN = 15 THEN PA1$ = “o”
IF MOPN = 16 THEN PA1$ = “p”
IF MOPN = 17 THEN PA1$ = “q”
IF MOPN = 18 THEN PA1$ = “r”
IF MOPN = 19 THEN PA1$ = “s”
IF MOPN = 20 THEN PA1$ = “t”
IF MOPN = 21 THEN PA1$ = “u”
IF MOPN = 22 THEN PA1$ = “v”
IF MOPN = 23 THEN PA1$ = “w”
IF MOPN = 24 THEN PA1$ = “x”
IF MOPN = 25 THEN PA1$ = “y”
IF MOPN = 26 THEN PA1$ = “z”
IF MOPN = 27 THEN PA1$ = “A”
IF MOPN = 28 THEN PA1$ = “B”
IF MOPN = 29 THEN PA1$ = “C”
IF MOPN = 30 THEN PA1$ = “D”
IF MOPN = 31 THEN PA1$ = “E”
IF MOPN = 32 THEN PA1$ = “F”
IF MOPN = 33 THEN PA1$ = “G”
IF MOPN = 34 THEN PA1$ = “H”
IF MOPN = 35 THEN PA1$ = “I”
IF MOPN = 36 THEN PA1$ = “J”
IF MOPN = 37 THEN PA1$ = “K”
IF MOPN = 38 THEN PA1$ = “L”
IF MOPN = 39 THEN PA1$ = “M”
IF MOPN = 40 THEN PA1$ = “N”
IF MOPN = 41 THEN PA1$ = “O”
IF MOPN = 42 THEN PA1$ = “P”
IF MOPN = 43 THEN PA1$ = “Q”
IF MOPN = 44 THEN PA1$ = “R”
IF MOPN = 45 THEN PA1$ = “S”
IF MOPN = 46 THEN PA1$ = “T”
IF MOPN = 47 THEN PA1$ = “U”
IF MOPN = 48 THEN PA1$ = “V”
IF MOPN = 49 THEN PA1$ = “W”
IF MOPN = 50 THEN PA1$ = “X”
IF MOPN = 51 THEN PA1$ = “Y”
IF MOPN = 52 THEN PA1$ = “Z”
IF MOPN = 53 THEN PA1$ = “0”
IF MOPN = 54 THEN PA1$ = “1”
IF MOPN = 55 THEN PA1$ = “2”
IF MOPN = 56 THEN PA1$ = “3”
IF MOPN = 57 THEN PA1$ = “4”
IF MOPN = 58 THEN PA1$ = “5”
IF MOPN = 59 THEN PA1$ = “6”
IF MOPN = 60 THEN PA1$ = “7”
IF MOPN = 61 THEN PA1$ = “8”
IF MOPN = 62 THEN PA1$ = “9”
PAUSE 20
IF ABI > ABI2 THEN F_N.BREAK
PPWP1$ = PPWP1$ + PA1$
NEXT ABI

LET KHABSB += 1
IF KHABSB = 1 THEN PPJH1$ = PPWP1$
IF KHABSB = 1 THEN GOTO TUPY2
IF KHABSB = 2 THEN PPJH2$ = PPWP1$

!THEN GOTO TUPY2

CLS
CONSOLE.TITLE “Finished”

LET AIPWLENGTH = LEN(PPWP1$)
IF AIPWLENGTH > ABI2 THEN PPWP1$ = RIGHT$(PPWP1$, ABI2)
LET AIPWLENGTH = LEN(PPWP1$)
INPUT “”, PPWP1$, PPWP1$
PRINT AIPWLENGTH
END

!!
FOR I = 1 TO 3
IF I = 1 THEN MSVHHV$ = “AIMAINFILE.log”
IF I = 2 THEN MSVHHV$ = “Password: ”
IF I = 3 THEN MSVHHV$ = “Enter the password: ”

ENCRYPT PPJH1$, MSVHHV$, AIMESSVG$
!!

INPUT “”,AIMESSVG$,AIMESSVG$
PRINT “MSVHHV1$ = ” + CHR$(34) + AIMESSVG$ + CHR$(34)

!NEXT I

PRINT “”
PRINT “PPJH1$ = ” + CHR$(34) + PPJH1$ + CHR$(34)

PRINT “”
CONSOLE.SAVE “.AAAWhatu.txt”

END

ONERROR:
MMMM$ = GETERROR$()
PRINT MMMM$

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s