; *****************************************************************
Download
1 / 233

; ***************************************************************** - PowerPoint PPT Presentation


  • 83 Views
  • Uploaded on

; *****************************************************************. ; * *. ; * CID.PPE V 1.50 *. ; * *.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' ; *****************************************************************' - aadi


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
; *****************************************************************











; *****************************************************************


; *****************************************************************





; a number is


Usage
; Usage: a number is


; a number is



; a number is



As cid ppe will be used
; as CID.PPE will be used. the same directory


; the same directory









Filter
Filter = " -()+" HexFormat, CIDTest, Done



Gettoken configfile
GETTOKEN ConfigFile HexFormat, CIDTest, Done


If not present use ppe info
;If not present use PPE info HexFormat, CIDTest, Done






Fdefin 1
FDEFIN 1 + ".CFG"


Fdget temp
FDGET Temp + ".CFG"



Fdget temp1
FDGET Temp + ".CFG"



Fdget temp2
FDGET Temp + ".CFG"


Tokenize temp
TOKENIZE Temp + ".CFG"




Gettoken outside
GETTOKEN Outside PRIVATE number



Gettoken seclow
GETTOKEN SecLow OUTSIDE AREA number


Gettoken sechigh
GETTOKEN SecHigh OUTSIDE AREA number


Gettoken logname
GETTOKEN LogName OUTSIDE AREA number


Gettoken lognomatch
GETTOKEN LogNoMatch OUTSIDE AREA number


Gettoken loglockout
GETTOKEN LogLockout OUTSIDE AREA number


Gettoken logpcpursuit
GETTOKEN LogPCPursuit OUTSIDE AREA number


Gettoken hexformat
GETTOKEN HexFormat OUTSIDE AREA number


Gettoken cidtest
GETTOKEN CIDTest OUTSIDE AREA number


Fdget temp3
FDGET Temp OUTSIDE AREA number




Fdget cidfile
FDGET CIDFile OUTSIDE AREA number


Fdget privatefile
FDGET PrivateFile OUTSIDE AREA number


Fdget outsidefile
FDGET OutsideFile OUTSIDE AREA number


Fdget nomatchfile
FDGET NoMatchFile OUTSIDE AREA number


Fdget lockoutfile
FDGET LockoutFile OUTSIDE AREA number


Fdget badnumfile
FDGET BadNumFile OUTSIDE AREA number


Fdget pcpnumfile
FDGET PCPNumFile OUTSIDE AREA number


Fdget pcpuserfile
FDGET PCPUserFile OUTSIDE AREA number


Fclose 1
FCLOSE 1 OUTSIDE AREA number


ELSE OUTSIDE AREA number



STOP OUTSIDE AREA number


End if
END IF OUTSIDE AREA number


Convert to numeric if possible
;Convert to Numeric if possible OUTSIDE AREA number


Pos tobyte search
Pos = TOBYTE(Search) OUTSIDE AREA number


Offset 0
Offset = 0 OUTSIDE AREA number


Namepos tobyte namesearch
NamePos = TOBYTE(NameSearch) OUTSIDE AREA number


Nameoffset 0
NameOffset = 0 OUTSIDE AREA number



Gosub killfile
GOSUB KillFile OUTSIDE AREA number



Cid callid
CID = CALLID() to U_SEC and such



Cid date 0101 time 0103 nmbr 030a34303439393532363939 name 030b47415259204d45454b4552
;CID = "DATE = 0101 TIME = 0103 NMBR = 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


If cidtest then
IF (CIDTest) THEN 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


Fappend 1 cid text o rw s dn
FAPPEND 1, "CID_TEXT", O_RW, S_DN 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


Fputln 1 cidtext cid
FPUTLN 1, "CIDText:<", CID, ">" 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


Fclose 11
FCLOSE 1 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


End if1
END IF 030A34303439393532363939 NAME = 030B47415259204D45454B4552"


Getuser
GETUSER 030A34303439393532363939 NAME = 030B47415259204D45454B4552"









STOP string


End if2
END IF string





End if3
END IF string






ELSE string



End if4
END IF string









Next pos
NEXT Pos GOTO SkipCID



Fputln 1 formatted
FPUTLN 1, Formatted GOTO SkipCID


Fclose 12
FCLOSE 1 GOTO SkipCID


Skipcid
:SkipCID GOTO SkipCID


End if5
END IF GOTO SkipCID






If hexformat then1
IF (HexFormat) THEN GOTO SkipCID


Gosub readhex1
GOSUB ReadHex GOTO SkipCID


ELSE GOTO SkipCID



End if6
END IF GOTO SkipCID



End if7
END IF GOTO SkipCID






End if8
END IF LANG+SEC+GRAPH






End if9
END IF LANG+SEC+GRAPH






Temp u hvphone
TEMP = U_HVPHONE if specified


Gosub dofilter
GOSUB DoFilter if specified


Hvphone temp
HVPHONE = TEMP if specified



Temp u bdphone
TEMP = U_BDPHONE if specified


Gosub dofilter1
GOSUB DoFilter if specified


Bdphone temp
BDPHONE = TEMP if specified


If right phonenumber len hvphone hvphone right phonenumber len bdphone bdphone then
IF (RIGHT(PhoneNumber, LEN(HVPHONE)) <> HVPHONE & RIGHT(PhoneNumber, LEN(BDPHONE)) <> BDPHONE) THEN


If lognomatch log caller id not home u hvphone or bus u bdphone 0
IF (LogNoMatch) LOG "Caller ID: Not Home: "+U_HVPHONE+" or Bus: "+U_BDPHONE, 0



End if10
END IF LANG+SEC+GRAPH


End if11
END IF LANG+SEC+GRAPH



Filename badnumfile
FileName = BadNumFile display the LockoutFile


Search formatted
Search=Formatted display the LockoutFile


Gosub scanfile
GOSUB ScanFile display the LockoutFile


If done then
IF (Done) THEN display the LockoutFile




STOP LANG+SEC+GRAPH


End if12
END IF LANG+SEC+GRAPH


Filename pcpnumfile
FileName = PCPNumFile LANG+SEC+GRAPH


Gosub scanfile1
GOSUB ScanFile LANG+SEC+GRAPH


If done then1
IF (Done) THEN LANG+SEC+GRAPH


Filename pcpuserfile
FileName = PCPUserFile LANG+SEC+GRAPH


Search u name
Search = U_NAME() LANG+SEC+GRAPH


Gosub scanfile2
GOSUB ScanFile LANG+SEC+GRAPH


Temp user added
Temp = "user added." LANG+SEC+GRAPH



End if13
END IF LANG+SEC+GRAPH


Filename pcpuserfile1
FileName = PCPUserFile LANG+SEC+GRAPH


Search u name1
Search = U_Name() LANG+SEC+GRAPH


Gosub scanfile3
GOSUB ScanFile LANG+SEC+GRAPH


If done then2
IF (Done) THEN LANG+SEC+GRAPH


Filename pcpnumfile1
FileName = PCPNumFile LANG+SEC+GRAPH


Search formatted1
Search = Formatted LANG+SEC+GRAPH


Gosub scanfile4
GOSUB ScanFile LANG+SEC+GRAPH




End if14
END IF LANG+SEC+GRAPH


END LANG+SEC+GRAPH


Readhex
:ReadHex LANG+SEC+GRAPH


Temp = "" LANG+SEC+GRAPH


X x 2
X = X + 2 LANG+SEC+GRAPH



While length 0 do
WHILE (Length > 0) DO LANG+SEC+GRAPH


X x 21
X = X + 2 LANG+SEC+GRAPH



Dec length
DEC Length LANG+SEC+GRAPH


End while
END WHILE LANG+SEC+GRAPH


Return
RETURN LANG+SEC+GRAPH


Scanfile
:ScanFile LANG+SEC+GRAPH


Done false
Done = False LANG+SEC+GRAPH




Fdefin 11
FDEFIN 1 LANG+SEC+GRAPH


While done do
WHILE (!Done) DO LANG+SEC+GRAPH


Fdget temp4
FDGET Temp LANG+SEC+GRAPH




End while1
END WHILE blank


Fclose 13
FCLOSE 1 blank


End if15
END IF blank


Return1
RETURN blank


Addtofile
:AddtoFile blank




Fclose 14
FCLOSE 1 blank




STOP blank


Return2
RETURN blank


Killfile
:KillFile blank



Return3
RETURN blank


Dofilter
:DoFilter blank




Next x
NEXT X blank






End if16
END IF blank


Return4
RETURN blank


ad