SaijinBlood
Feb 28th, 2001, 11:11 PM
Im trying to convert a Qbasic program to Visual Basics. I want the program to be changed a little. I want the program to decrypt the password when a button is clicked, instead of having to run the program with a command line..... Please help me convert it.. Heres the code I need converted...
IF COMMAND$ = "" THEN PRINT "You must specify a filename": PRINT "(ex. 'neo appmgr.set')": END
ON ERROR GOTO nono
OPEN COMMAND$ FOR BINARY AS #1
edx$ = "."
edi$ = "."
q = 5
DO
GET #1, q, edi$
GET #1, 455 - a, edx$
a = a + 1
q = q + 18
cx = (a - 1)
ax = ASC(edi$)
ax = (cx * 3) MOD 256
ax = ax - ASC(edx$)
IF ax < o THEN ax = 256 + ax
ax = (ax + ASC(edi$)) MOD 256
t = t + 1
IF ax <= 13 THEN GOTO nada
IF ax >= 128 THEN GOTO nada
IF CHR$(ax) <> UCASE$(CHR$(ax)) THEN GOTO nada
code$ = code$ + CHR$(ax)
LOOP UNTIL t >= 25
nada:
PRINT "Dont distribute this! -> "; code$
nono:
END
IF COMMAND$ = "" THEN PRINT "You must specify a filename": PRINT "(ex. 'neo appmgr.set')": END
ON ERROR GOTO nono
OPEN COMMAND$ FOR BINARY AS #1
edx$ = "."
edi$ = "."
q = 5
DO
GET #1, q, edi$
GET #1, 455 - a, edx$
a = a + 1
q = q + 18
cx = (a - 1)
ax = ASC(edi$)
ax = (cx * 3) MOD 256
ax = ax - ASC(edx$)
IF ax < o THEN ax = 256 + ax
ax = (ax + ASC(edi$)) MOD 256
t = t + 1
IF ax <= 13 THEN GOTO nada
IF ax >= 128 THEN GOTO nada
IF CHR$(ax) <> UCASE$(CHR$(ax)) THEN GOTO nada
code$ = code$ + CHR$(ax)
LOOP UNTIL t >= 25
nada:
PRINT "Dont distribute this! -> "; code$
nono:
END