76 lines
3.3 KiB
QBasic
76 lines
3.3 KiB
QBasic
$COMPILE EXE
|
||
on error goto 4
|
||
comm$=command$
|
||
msg$="Befehl oder Dateiname nicht gefunden "+chr$(13)
|
||
wdi$="Ung<6E>ltiges Verzeichnis "+chr$(13)
|
||
x=1
|
||
1 x$=mid$(comm$,x,1)
|
||
if x$=chr$(32) or x$="" then x=x+1:goto 2
|
||
c1$=c1$+x$
|
||
x=x+1
|
||
goto 1
|
||
2 x$=mid$(comm$,x,1)
|
||
if x$=chr$(32) or x$="" then x=x+1:goto 3
|
||
c2$=c2$+x$
|
||
x=x+1
|
||
goto 2
|
||
3 if c1$="" then goto Syntax
|
||
pass$=c1$
|
||
if c2$="" then LogIt=0 else LogIt=1:file$=c2$
|
||
if LogIt=1 then open "A",#1,file$
|
||
if LogIt=1 then print#1,""
|
||
if LogIt=1 then print#1,"ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²²²²²²²²±±±±±±±±±±±±±±±±±±±±²²²²²²²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±±±±±±±±°°°°°°°°°°°°°°°°°°±±±±±±±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°°°°°°°°° CSAFE-LOG-FILE °°°°°°°°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°° (C)1995 by RoboCop INDUSTRIES °°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ²²±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±²²ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
|
||
if LogIt=1 then print#1,"ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß"
|
||
if LogIt=1 then print#1,"Datum: ";date$;" Uhrzeit: ";time$;" Passwort: ";pass$
|
||
if LogIt=1 then print#1,""
|
||
if LogIt=1 then print#1,"Datum Uhrzeit Eingabe getan?"
|
||
if LogIt=1 then print#1,"ðððððððððð ðððððððð ððððððððððððððððððððððððððððððððððððððððððððððððð ðððððð"
|
||
color 7
|
||
4 print curdir$;:input ">",eingabe$(1),eingabe$(2),eingabe$(3),eingabe$(4),eingabe$(5),eingabe$(6)
|
||
if eingabe$(6)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4)+","+eingabe$(5)+","+eingabe$(6):goto 5
|
||
if eingabe$(5)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4)+","+eingabe$(5):goto 5
|
||
if eingabe$(4)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3)+","+eingabe$(4):goto 5
|
||
if eingabe$(3)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2)+","+eingabe$(3):goto 5
|
||
if eingabe$(2)<>"" then eingabe$=eingabe$(1)+","+eingabe$(2):goto 5
|
||
if eingabe$(1)<>"" then eingabe$=eingabe$(1):goto 5
|
||
5 if eingabe$=pass$ then goto OKEnde
|
||
if lcase$(eingabe$)="cls" then goto ClearScreen
|
||
if LogIt=1 then stat$="NEIN":gosub WriteLog
|
||
print msg$
|
||
goto 4
|
||
|
||
ClearScreen:
|
||
if LogIt=1 then stat$="JA":gosub WriteLog
|
||
cls
|
||
goto 4
|
||
|
||
WriteLog:
|
||
if len(eingabe$)>49 then eingabe$=left$(eingabe$,46)+"..."
|
||
if LogIt=1 then print#1,using "\ \ \ \ \ \ \ \";date$;time$;eingabe$;stat$
|
||
return
|
||
|
||
Syntax:
|
||
color 10:print"-=ð CSAFE v2.00 ð=-":color 15
|
||
print
|
||
print"Syntax: ";:color 14:?"CSAFE Passwort [Log-Datei]":color 7
|
||
print
|
||
print"ùPasswort - Das Passwort, das eingegeben werden muá"
|
||
print"ùLog-Datei - Die Datei, in die die Eingaben geschrieben werden sollen"
|
||
print:color 12
|
||
print"(C)1995 by Markus Birth":color 7
|
||
goto Ende
|
||
|
||
OKEnde:
|
||
stat$="ENDE"
|
||
if LogIt=1 then gosub WriteLog
|
||
print"Befehl oder Dateiname nicht gefunden"
|
||
goto Ende
|
||
|
||
Ende:
|
||
|