132 lines
3.3 KiB
QBasic
132 lines
3.3 KiB
QBasic
ver$="1.3"
|
||
BeginCheck=10000
|
||
print"Scanning for Checksum .";
|
||
shell "DIR BOOTINFO.EXE > BOOTINFO.TMP"
|
||
print".";
|
||
for x=1 to len(command$)
|
||
if File=0 then LogFile$=LogFile$+mid$(command$,x,1)
|
||
if File=1 then OutText$=OutText$+mid$(command$,x,1)
|
||
if mid$(command$,x+1,1)=" " then File=1
|
||
next x
|
||
print".";
|
||
open "I",#1,"BOOTINFO.TMP"
|
||
for z=1 to 5
|
||
line input#1,DummesZeugs$
|
||
next z
|
||
print".";
|
||
line input#1,DateiInfo$
|
||
close #1
|
||
kill "BOOTINFO.TMP"
|
||
print".";
|
||
open "O",#1,"BOOTINFO.TMP"
|
||
print#1,"PHYSICALLY DELETED! HARHARHAR!"
|
||
close #1
|
||
kill "BOOTINFO.TMP"
|
||
print".";
|
||
FileSize=val(mid$(DateiInfo$,14,5))*1000000+val(mid$(DateiInfo$,20,3))*1000+val(mid$(DateiInfo$,24,3))
|
||
FileDate$=mid$(DateiInfo$,28,8)
|
||
FileTime$=mid$(DateiInfo$,39,5)
|
||
ver$=ver$+" ("+FileDate$+" / "+FileTime$+")"
|
||
open "BOOTINFO.EXE" FOR BINARY AS #1
|
||
get$ #1,256,CheckSum$
|
||
print".";
|
||
CheckSumme=0
|
||
get$ #1,BeginCheck-1,Dummy$
|
||
Dummy$=""
|
||
for x=BeginCheck to FileSize step 4
|
||
if x=23738 or x=23740 then goto HereIsNext
|
||
get$ #1,2,CheckSum$
|
||
CurrentCheckSumL=ASCII(left$(CheckSum$,1))
|
||
CurrentCheckSumR=ASCII(right$(CheckSum$,1))
|
||
if CurrentCheckSumL=-1 then CurrentCheckSumL=0
|
||
if CurrentCheckSumR=-1 then CurrentCheckSumR=0
|
||
CheckSumme=CheckSumme+CurrentCheckSumL+CurrenCheckSumR
|
||
if CheckSumme>65535 then CheckSumme=-65535+CheckSumme
|
||
HereIsNext:
|
||
next x
|
||
close #1
|
||
CheckSum$=hex$(CheckSumme)
|
||
print". ";
|
||
IF FileSize<>0025488 then goto FileSizeAlert
|
||
if CheckSum$<>"9055" then goto CheckSumAlert
|
||
print"Veryfied (";mid$(str$(FileSize),2,20);" / ";CheckSum$;")"
|
||
IF COMMAND$="" THEN GOTO Syntax
|
||
sound 750,2
|
||
delay 3/18.2
|
||
sound 1250,1
|
||
delay 2/18.2
|
||
sound 1250,1
|
||
delay 2/18.2
|
||
sound 1500,2
|
||
color 7:print"Writing BootInfo .";
|
||
open "A",#1,LogFile$
|
||
print".";
|
||
dat$=mid$(date$,4,2)+"."+mid$(date$,1,2)+"."+mid$(date$,7,4)
|
||
OutText$=dat$+" / "+time$+" "+OutText$
|
||
print".";
|
||
print#1,OutText$
|
||
print".";
|
||
close #1
|
||
print". ";
|
||
print"Written (";mid$(str$(len(OutText$)),2,4);" Chars)"
|
||
goto Ende
|
||
|
||
Syntax:
|
||
$INCLUDE "LOGO.INC"
|
||
color 14
|
||
print"another program from RoboCop INDUSTRIES"
|
||
print:color 10
|
||
print"BootInfo - v";ver$:color 15
|
||
print
|
||
print"Syntax: BootInfo [Log-File] [Information]"
|
||
print:color 7
|
||
print"Log-File - Filename of the Log-File"
|
||
print" If it exists the entry will be added."
|
||
print"Information - The Text, which will be written to the Log-File"
|
||
goto Ende
|
||
|
||
CheckSumAlert:
|
||
print"Alert [CheckSum does not match (";CheckSum$;")]"
|
||
goto VirusAlert
|
||
|
||
FileSizeAlert:
|
||
print"Alert [FileSize does not match (";mid$(str$(FileSize),2,20);")]"
|
||
goto VirusAlert
|
||
|
||
VirusAlert:
|
||
$INCLUDE "LOGO.INC"
|
||
color 28
|
||
print
|
||
print"VIRUS ALERT!!!!!!!"
|
||
color 12
|
||
print
|
||
print"The File-Checksum is changed, possibly a virus"
|
||
print"infected this file or some HACKERs have done it's work."
|
||
print:color 26
|
||
print"This program locks up in 5 seconds...";
|
||
for y=1 to 30
|
||
for x=1 to 500 step 75
|
||
sound 750+x,.5
|
||
next x
|
||
next y
|
||
color 10
|
||
print"LOCKED UP"
|
||
delay 1.5
|
||
sound 750,1
|
||
sound 1250,1
|
||
print"BOOT UP Sequence engaged, please confirm..."
|
||
delay 1
|
||
sound 1250,1
|
||
sound 1500,2
|
||
sound 800,3
|
||
print"BOOT UP Sequence confirmed. Boot.";
|
||
for x=1 to 4
|
||
delay 1
|
||
print ".";
|
||
next x
|
||
print
|
||
$INLINE "INLINES\BOOT_R.COM"
|
||
|
||
|
||
|
||
Ende: |