Jpseph
An S/N gen. for RC
Thu Dec 10 03:50:46 1998


Greetings everybody,

Following is a quick and dirty basic program which, I think, will generale serial numbers to register Rcrawler. This program is based on my understanding of how Rcrawler generale valid serial numbers from the user name. There is no guaranty that all serial numbers generated by this program will work since my understanding of the procedure my be faulty. I place it at your disposal to experiment with it and help me determine whether my understanding of the procedure is correct or faulty.
The program was written using Quick basic. If you don't have that program and you like to play with the program below, I will be glad to send you a compiled version which will run in a Dos window.

Best regards,

Joseph
----------------------Cut here--------------
CLS
INPUT "Enter a user name of 8 or more chanters"; name$
length = LEN(name$)
IF length < 8 THEN
PRINT "The name you entered is too short. Try agin."
RUN
END IF
funny$ = "YMA19X@24$Z%"
serial$ = "8267-"
temp$ = name$
GOSUB funny
serial$ = serial$ + temp$
GOSUB process
temp$ = serial$
GOSUB funny
serial$ = serial$ + temp$
PRINT serial$
END
process:
FOR counter = 0 TO length - 1
edx = counter MOD 3
IF edx = 0 THEN
al = ASC(MID$(name$, counter + 1, 1))
IF al > &H20 OR al < &H7F THEN
al = INT(al / 2) + &H22
IF al > &H5A AND al < &H61 THEN al = al + 6 ;Only Letters A to Z and a to z
IF al > &H39 AND al <&H41 THEN al = al + 8 ;and numbers are acceptable.

serial$ = serial$ + CHR$(al)
ELSE
PRINT "You used illegal characters in the user name"
RUN
END IF
END IF
NEXT
RETURN
funny:
funnyl = LEN(temp$)
funnyl = funnyl MOD 12
temp$ = MID$(funny$, funnyl + 1, 1)
RETURN