Gibberish generator

[Laskiapina]

This is nothing special but I think it can be useful.
It's a simple program that produces readable gibberish which can be used as passwords (remember to add numbers) for example. This way you're not using real words as passwords but that you can remember more easily than just "oibjsdrg632".

Sorry the variables are in Finnish. "vokaali"="vowel" and "konsonantti"="consonant".

PlayBASIC Code: [Select]

; PROJECT : Siansaksa
; AUTHOR  : Iiro
; CREATED : 7.7.2011
; EDITED  : 8.7.2011
; ---------------------------------------------------------------------
#include "input"
loadfont "arial",1,40

dim vokaaliVaiKonsonantti$(10)
vokaalit$ = "AEIOUY"
konsonantit$ = "BCDFGHJKLMNPQRSTVWXZ"
vokaaleja = 0
konsonantteja = 0



Alkuun:
sana$ = ""
for a = 1 to 10
vokaaliVaiKonsonantti$(a) = ""
next a
cls

setcursor 150,100: kirjaintenMaara$ = staticinput("Number of letters > "): flushkeys
if kirjaintenMaara$ = "" then goto Alkuun
kirjaintenMaara = val(kirjaintenMaara$)
if kirjaintenMaara > 10 or kirjaintenMaara < 2 then goto Alkuun

onkoLopussaVokaali = rnd(1)
if onkoLopussaVokaali = 0 then vokaaliVaiKonsonantti$(kirjaintenMaara) = "konsonantti": vokaaliVaiKonsonantti$(kirjaintenMaara - 1) = "vokaali"
if onkoLopussaVokaali = 1 then vokaaliVaiKonsonantti$(kirjaintenMaara) = "vokaali" rem : vokaaliVaiKonsonantti$(kirjaintenMaara - 1) = "konsonantti"

onkoAlussaVokaali = rnd(1)
if onkoAlussaVokaali = 0 then vokaaliVaiKonsonantti$(1) = "konsonantti": vokaaliVaiKonsonantti$(2) = "vokaali"
if onkoAlussaVokaali = 1 then vokaaliVaiKonsonantti$(1) = "vokaali"



for kohta = 1 to kirjaintenMaara
kirjain$ = ""

if vokaaleja > 1 and vokaaliVaiKonsonantti$(kohta) = "" then vokaaliVaiKonsonantti$(kohta) = "konsonantti": vokaaleja = 0
if konsonantteja > 1 and vokaaliVaiKonsonantti$(kohta) = "" then vokaaliVaiKonsonantti$(kohta) = "vokaali": konsonantteja = 0

   if vokaaliVaiKonsonantti$(kohta) = "vokaali"
   vokaaleja = vokaaleja + 1: konsonantteja = 0
   kirjaimenKohta = rnd(len(vokaalit$))
   kirjain$ = mid$(vokaalit$,kirjaimenKohta)
   endif

   if vokaaliVaiKonsonantti$(kohta) = "konsonantti"
   konsonantteja = konsonantteja + 1: vokaaleja = 0
   kirjaimenKohta = rnd(len(konsonantit$))
   kirjain$ = mid$(konsonantit$,kirjaimenKohta)
   endif

if kirjain$ = ""
   kumpi = rnd(1)
   
   if kumpi = 0
   vokaaleja = vokaaleja + 1: konsonantteja = 0
   kirjaimenKohta = rnd(len(vokaalit$))
   kirjain$ = mid$(vokaalit$,kirjaimenKohta)
   endif

   if kumpi = 1
   konsonantteja = konsonantteja + 1: vokaaleja = 0
   kirjaimenKohta = rnd(len(konsonantit$))
   kirjain$ = mid$(konsonantit$,kirjaimenKohta)
   endif
endif

sana$ = sana$ + kirjain$
rem print "" +str$(vokaaleja) + " " + str$(konsonantteja) + " " + kirjain$: sync: waitkey: flushkeys
next kohta



centertext 320,150,sana$
centertext 320,220,"New word? ENTER yes, ESC no"

sync
waitkey
if enterkey() = 1 then goto Alkuun