38 lines
1.1 KiB
QBasic
38 lines
1.1 KiB
QBasic
cls
|
||
open "I",#1,"TRICK.DAT"
|
||
dim l$(80)
|
||
line input#1,line1$
|
||
close #1
|
||
locate 1,1:color 15:print"Original: ";line1$
|
||
for x=1 to len(line1$)
|
||
l$(x)=mid$(line1$,x,1)
|
||
next x
|
||
locate 2,1:color 15:print"Crypted : ";:color 7
|
||
for x=1 to len(line1$)
|
||
print l$(x);
|
||
next x
|
||
x=1
|
||
2 locate 2,11+x:color 14:print l$(x)
|
||
1 a$=inkey$: if a$="" then 1
|
||
if a$="+" then l$(x)=chr$(asc(l$(x))+1):goto 2
|
||
if a$="-" then l$(x)=chr$(asc(l$(x))-1):goto 2
|
||
if a$=chr$(27) then 3
|
||
if a$=chr$(8) then locate 2,11+x:color 7:print l$(x):x=x-1:goto 2
|
||
if a$=chr$(13) then color 15:locate 2,11+x:print l$(x):x=x+1:if x>len(line1$) then 3 else goto 2
|
||
3 print:color 15
|
||
print"ASCII-Werte:"
|
||
for x=1 to len(line1$)
|
||
print asc(l$(x));
|
||
next x
|
||
print
|
||
print"Schreibe Daten in DECRYPT.OUT ... ";
|
||
open "o",#1,"decrypt.out"
|
||
print#1,"No C O ASC ASO Diff"
|
||
for x=1 to len(line1$)
|
||
unt=asc(l$(x))-asc(mid$(line1$,x,1))
|
||
print #1, using "## ! ! ### ### +###";x;mid$(line1$,x,1);l$(x);asc(mid$(line1$,x,1));asc(l$(x));unt
|
||
next x
|
||
print"OK"
|
||
close #1
|
||
|
||
|