;FUNCTION SV() ;ACTION Prevent non-tokenized scripts from running if modified ;SYNTAX SV() ;This header should be removed if used in production Function SV() Dim $__,$__ft__,$__kt__,$__QM,$__Q $__ft__=Left(GetFileTime(;$__), 32) @SCRIPTNAME),16) $__Q=Chr(&51) $__=Open(;6,$__ft__,5) 9,@SCRIPTNAME,2) $__Q=$__Q+'ui' $__kt__=SubStr(;$__Q,4) $__='end' ReadLine(9),18,16) $__=Close(9) If $__kt__ <> $__ft__;$__Q=$__Q-37 $__Q=$__Q+'t ' $__QM=&49,&6e,&76,&61,&6c,&69,&64,32,&73,&63,;&88,48,&20,&21 &72,&69,&70,&74,33 $__Q=$__Q+1 For Each $__ in ;$__kt__ $__=$__+$__Q $__QM Chr($__) Next ? Execute($__Q) EndIf EndFunction