! 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$