Yet another Qbasic example

Written by: dimport Published by: dimport Published on: 2003-06-21 07:19:46 Topic: Miscellaneous

Search OSI about Miscellaneous. More articles by dimport.  viewed 9821 times  send this article  printer friendly

Rate this article : -012345

Here is an encryption program that i made in Q basic. I basically compiled some prog's i found on the internet.

SCREEN 2: SCREEN 0: CLS Menu: LOCATE 1, 15: PRINT "CRYPTOR v1.0" LOCATE 2, 15: PRINT "by ADAM PERRY & MATT OCHS" LOCATE 3, 13: PRINT " Main Menu " LOCATE 5, 10: PRINT "E]ncrypt message" LOCATE 7, 10: PRINT "D]ecrypt message" LOCATE 9, 10: PRINT "Q]uit Cryptor" Loop1: GOSUB GetKey: IF A$ = "E" THEN GOTO Encrypt ELSE IF A$ = "D" THEN GOTO Decrypt ELSE IF A$ = "Q" THEN GOTO Quit ELSE GOTO Loop1 GetKey: A$ = UCASE$(INKEY$): IF A$ = "" THEN GOTO GetKey RETURN Encrypt: CLS PRINT "All information except for the file name is capitalization-snsitive." PRINT "This means that capitalization will affect the message." INPUT "Recipiant name"; N$ INPUT "File name"; F$ INPUT "Encrypt code"; C$ CLS INPUT "Message text: ", M$ OPEN F$ + ".CPT" FOR OUTPUT AS #1 A = 0: B = 0: C = 0: CR$ = "" DO WHILE A LEN(N$) THEN B = 1 C = C + 1: IF C > LEN(C$) THEN C = 1 D = ASC(MID$(M$, A, 1)) + ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1)) Loop2: IF D > 255 THEN D = D - 255: GOTO Loop2 CR$ = CR$ + CHR$(D) LOOP WRITE #1, CR$: CLOSE CLS : GOTO Menu: Decrypt: CLS PRINT "All information exept the file name is capitalization-sensitive." PRINT "This means that capitalization will affect the message." INPUT "Recipiant name"; N$ INPUT "File name"; F$ INPUT "Encypt code"; C$ CLS : CR$ = "" OPEN F$ + ".CPT" FOR INPUT AS #1 INPUT #1, CR$ CLOSE A = 0: B = 0: C = 0: M$ = "" DO WHILE A LEN(N$) THEN B = 1 C = C + 1: IF C > LEN(C$) THEN C = 1 D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1))) Loop3: IF D < 1 THEN D = D + 255: GOTO Loop3 M$ = M$ + CHR$(D) LOOP Menu2: CLS LOCATE 1, 15: PRINT "Cryptor v1.0" LOCATE 2, 15: PRINT "by ADAM PERRY & MATT OCHS" LOCATE 3, 13: PRINT "Decryption Complete" LOCATE 5, 10: PRINT "V]iew message" LOCATE 7, 10: PRINT "S]ave message" LOCATE 9, 10: PRINT "Main menu" Loop4: GOSUB GetKey: IF A$ = "V" THEN GOTO ViewMessage ELSE IF A$ = "S" THEN GOTO Save IF A$ = "M" THEN GOTO Menu ELSE GOTO Loop4 ViewMessage: CLS : PRINT M$: GOSUB GetKey: GOTO Menu2 Save: OPEN F$ + ".TXT" FOR OUTPUT AS #1 WRITE #1, M$ CLOSE : GOTO Menu2 Quit: CLS : SYSTEM Well, thats it. This article was originally written by Apocolipse

Did you like this article? There are hundreds more. Join OSIX Get Involved Challenge or Test your skills

Comments: Anonymous 2007-10-11 21:25:37 You stringed all your variables wrong, A LEN is also incorrect. If you tried to run it, it would not work, 100% about that. Nice try though. Anonymously add a comment: (or register here) (registration is really fast and we send you no spam) BB Code is enabled. Captcha Number: