Keskustelu: Koodit: QB: ERITTÄIN yksin kertainen CD-KEY generaattori

olen tehnyt tämän niille, jotka haluavat kokeilla tätä...

eli siis ohjelma tallentaa CD-keyitä niin paljon kun käyttäjä pyytää tiedostoon "keyt.txt" (nimeä voit itse muuttaa...
keyt ovat muotoa "XXXX-XXXX-XXXX-XXXX" (numeroita kaikki)

kommentteja kiitos

DECLARE SUB gen ()
COMMON SHARED luku AS LONG
CLS
RANDOMIZE TIMER
INPUT "monta kiitä halluut??"; k%
OPEN "keyt.txt" FOR OUTPUT AS #1
FOR r = 1 TO k% ' kuis monta herra halluu??
FOR s = 1 TO 4 ' nyt tulee 4 kertaa 4 numeron sarja
99 CALL gen
PRINT #1, luku; "-";
NEXT s
PRINT #1, luku
NEXT r
CLOSE #1

SUB gen
RANDOMIZE TIMER
100 luku = INT(RND * 9999) + 1
IF luku < 1000 THEN GOTO 100

END SUB

Ois paljo hyödyllisempi, jos ne oikeesti kelpais johonki :P