'File encrypter Copyright Daniel Bolger 1998 DECLARE FUNCTION Encrypt$ (strenc AS STRING, pass AS STRING) DIM tenner AS STRING * 10 DIM oneer AS STRING * 1 DIM hundreder AS STRING * 100 DIM thousander AS STRING * 1000 CLS INPUT "Which file do you want to do today"; InFile$ INPUT "As what"; OutFile$ INPUT "Password"; pass$ OPEN InFile$ FOR BINARY AS #1 OPEN OutFile$ FOR BINARY AS #2 TotalSize = LOF(1) RemainingSize = TotalSize counter = 1 DO UNTIL RemainingSize = 0 buffer$ = "" SELECT CASE RemainingSize CASE IS >= 1000 choice$ = "thousander" RemainingSize = RemainingSize - 1000 CASE IS >= 100 choice$ = "hundreder" RemainingSize = RemainingSize - 100 CASE IS >= 10 choice$ = "tenner" RemainingSize = RemainingSize - 10 CASE ELSE choice$ = "oneer" RemainingSize = RemainingSize - 1 END SELECT IF choice$ = "oneer" THEN GET #1, , oneer oneer = Encrypt(oneer, pass$) PUT #2, , oneer ELSEIF choice$ = "tenner" THEN GET #1, , tenner tenner = Encrypt(tenner, pass$) PUT #2, , tenner ELSEIF choice$ = "hundreder" THEN GET #1, , hundreder hundreder = Encrypt(hundreder, pass$) PUT #2, , hundreder ELSEIF choice$ = "thousander" THEN GET #1, , thousander thousander = Encrypt(thousander, pass$) PUT #2, , thousander END IF LOOP PRINT PRINT "Finished (wasn't that quick?)" CLOSE SYSTEM FUNCTION Encrypt$ (strenc AS STRING, pass AS STRING) FOR i = 1 TO LEN(pass) cstring$ = MID$(pass, i, 1) casc = ASC(cstring$) tasc = tasc + casc NEXT i tasc = tasc / LEN(pass) FOR i = 1 TO LEN(strenc) cstring$ = MID$(strenc, i, 1) casc = ASC(cstring$) casc = casc XOR tasc cstring$ = CHR$(casc) MID$(strenc, i, 1) = cstring$ NEXT i Encrypt$ = strenc END FUNCTION