Archived
132 lines
3.3 KiB
VB.net
132 lines
3.3 KiB
VB.net
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: |