|
Home
Scripts
Malicious Scripts
DSINs
Help
About
Employment
Employees
Contact Us
Links
| |
IF Checker 2003 V1.1
//////////////////////////////////////
//OmniSoft IF Checker //
// Inspired by a script by Mr.Vulcan//
//////////////////////////////////////
// Needed to restore original settings
getcolor
getbgcolor
//OmniSoft Color Setter
color 4
bgcolor 5
var menuchoice
var numberofifs
var numberofendifs
var counter
var file
var finalcount
var blankcounter
var ifvar
var endifvar
var iffound
@menu
cls
color blue
say 10 /\/\/\/\/\/\/\/\/\/\/\/\/\
color orange
say 10 IF Checker 2003
color blue
say 10 \/\/\/\/\/\/\/\/\/\/\/\/\/
color orange
say 10 By Omnicron Software
skipline
SAY 10 Inspired by a script by Mr.Vulcan
color blue
skipline
say 10 1. Check a Script
say 10 2. Quit
skipline
color white
INPUT menuchoice Please choose a number.
IF menuchoice = 1
goto ifcheck
ENDIF
IF menuchoice = 2
goto quit
ENDIF
@ifcheck
color white
skipline
INPUT file Which file do you want to scan (Type QUIT to exit)?
IF file = QUIT
goto quit
ENDIF
exists %file%
IF exists = false
color red
skipline
SAY 10 Sorry, %file% does not exist.
goto ifcheck
ENDIF
! counter = 0
! ifvar = IF
! endifvar = ENDIF
UCASE ifvar
! ifvar = %ucase%
UCASE endifvar
! endifvar = %ucase%
@loop
! counter = %counter% + 1
strline %file% %counter%
//Blank check
IF blankcounter = 10
goto checker
ENDIF
IF strline =
! blankcounter = %blankcounter% + 1
goto loop
ENDIF
/////
! blankcounter = 0
instr strline ifvar
say 10 %instr%
//Check for ANY IFs
IF instr = 0
! iffound = 0
SAY 10 No ifs
goto loop
ENDIF
//Check for AND IFs
IF instr = 1
IF iffound = 1
SAY 10 Found an AND IF
goto loop
ENDIF
//Check for IFs
IF instr = 1
SAY 10 Found an IF
! numberofifs = %numberofifs% + 1
! iffound = 1
ENDIF
//Check for ENDIFs
IF instr = 4
SAY 10 Found an ENDIF
! numberofendifs = %numberofendifs% + 1
! iffound = 0
ENDIF
goto loop
@checker
//remove the if out of ENDIF :D
! finalcount = %numberofifs% - %numberofendifs%
skipline
SAY 10 There are %numberofifs% IFs
skipline
SAY 10 There are %numberofendifs% ENDIFs
skipline
pause
skipline
SAY 10 There were %finalcount% IF statements still open.
@quit
CLS
color blue
say 10 Thank you for using
color orange
say 10 OmniSoft IF Checker 2003
skipline
color blue
say 10 Visit us on the web at
color green
say 10 http://clix.to/omnisoft
skipline
color White
SAY 10 Please tell all your friends about us!
skipline
SAY 10 This script is freeware, feel free to post
SAY 10 an un-edited version of it on any form of
SAY 10 electronic distribution system (BBS, FIDO,
SAY 10 e-mail etc.)
skipline
free numberofifs
free numberofendifs
free counter
free file
free finalcount
free blankcounter
free ifvar
free endifvar
free iffound
END |
|