;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