=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== imapcopy-1.04/inet.pp-142-function HostAddrToStr (Entry : THostAddr) : String; imapcopy-1.04/inet.pp:143:function StrToHostAddr (IP : String) : THostAddr; imapcopy-1.04/inet.pp-144-function NetAddrToStr (Entry : Longint) : String; imapcopy-1.04/inet.pp:145:function StrToNetAddr (IP : String) : Longint; imapcopy-1.04/inet.pp-146-Function HostToNet (Host : Longint) : Longint; ############################################## imapcopy-1.04/inet.pp-154-function gethostbyname ( Name : Pchar) : PHostEnt; cdecl; external; imapcopy-1.04/inet.pp:155:function gethostbyaddr ( Addr : PHostAddr; Len : Longint; HType : Longint) : PHostent ; cdecl; external; imapcopy-1.04/inet.pp-156-procedure sethostent (stayopen : longint); cdecl; external; ############################################## imapcopy-1.04/inet.pp-160-function getnetbyname ( Name : pchar) : PNetEnt; cdecl; external; imapcopy-1.04/inet.pp:161:function getnetbyaddr ( Net : Longint; nettype : Longint) : PNetEnt; cdecl; external; imapcopy-1.04/inet.pp-162-procedure setnetent ( Stayopen : Longint); cdecl; external; ############################################## imapcopy-1.04/inet.pp-198- imapcopy-1.04/inet.pp:199:function StrToHostAddr(IP : String) : THostAddr ; imapcopy-1.04/inet.pp-200- ############################################## imapcopy-1.04/inet.pp-233- begin imapcopy-1.04/inet.pp:234: Str(THostAddr(Entry)[I],Dummy); imapcopy-1.04/inet.pp-235- NetAddrToStr:=NetAddrToStr+Dummy; ############################################## imapcopy-1.04/inet.pp-239- imapcopy-1.04/inet.pp:240:function StrToNetAddr(IP : String) : Longint; imapcopy-1.04/inet.pp-241- imapcopy-1.04/inet.pp-242-begin imapcopy-1.04/inet.pp:243: StrToNetAddr:=Longint(StrToHostAddr(IP)); imapcopy-1.04/inet.pp-244-end; ############################################## imapcopy-1.04/inet.pp-264-begin imapcopy-1.04/inet.pp:265: FHostEntry:=GetHostByAddr(PHostAddr(@Address),SizeOf(Address),AF_INET); imapcopy-1.04/inet.pp-266- If FHostEntry=Nil then ############################################## imapcopy-1.04/inet.pp-311- If FHostEntry^.AddrList[FAddr]<>Nil then imapcopy-1.04/inet.pp:312: GetAddress:=HostAddrToStr(PHostAddr(FHostEntry^.AddrList[FAddr])^); imapcopy-1.04/inet.pp-313-end; ############################################## imapcopy-1.04/inet.pp-320- If FHostEntry^.AddrList[0]<>Nil then imapcopy-1.04/inet.pp:321: IPString:=HostAddrToStr(PHostAddr(FHostEntry^.AddrList[0])^); imapcopy-1.04/inet.pp-322-end; ############################################## imapcopy-1.04/inet.pp-328- If (FHostEntry=Nil) or (FError<>0) then exit; imapcopy-1.04/inet.pp:329: IPAddress:=PHostAddr(FHostEntry^.AddrList[0])^; imapcopy-1.04/inet.pp-330-end; ############################################## imapcopy-1.04/inet.pp-359-begin imapcopy-1.04/inet.pp:360: FNetEntry:=GetNetByAddr(Address,AF_INET); imapcopy-1.04/inet.pp-361- If FNetEntry=Nil then ############################################## imapcopy-1.04/inet.pp-503-begin imapcopy-1.04/inet.pp:504: HostToNet:=THostAddr(host)[1]; imapcopy-1.04/inet.pp:505: HostToNEt:=HostTONet or ( (THostAddr(host)[2]) shl 8); imapcopy-1.04/inet.pp:506: HostToNEt:=HostToNet or ( (THostAddr(host)[3]) shl 16); imapcopy-1.04/inet.pp:507: HostToNEt:=HostToNet or ( (THostAddr(host)[4]) shl 24); imapcopy-1.04/inet.pp-508-end; ############################################## imapcopy-1.04/inet.pp-512-begin imapcopy-1.04/inet.pp:513: NetToHost:=THostAddr(Net)[1]; imapcopy-1.04/inet.pp:514: NetToHost:=NetToHost or ( (THostAddr(Net)[2]) shl 8); imapcopy-1.04/inet.pp:515: NetToHost:=NetToHost or ( (THostAddr(Net)[3]) shl 16); imapcopy-1.04/inet.pp:516: NetToHost:=NetToHost or ( (THostAddr(Net)[4]) shl 24); imapcopy-1.04/inet.pp-517-end; ############################################## imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas-262- // try to convert to address imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas:263: u_long (A) := inet_addr (AdressOrName); imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas-264- IF u_long (A) = u_long (INADDR_NONE) THEN ############################################## imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas-269- BEGIN imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas:270: Remote_Addr.sin_addr := PInAddr(Remote_Host^.h_addr_list^)^; imapcopy-1.04/.pc/0003-Make-it-compile-with-FP-2.4-or-newer.patch/imaptools.pas-271- END; ############################################## imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas-262- // try to convert to address imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas:263: u_long (A) := inet_addr (AdressOrName); imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas-264- IF u_long (A) = u_long (INADDR_NONE) THEN ############################################## imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas-269- BEGIN imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas:270: Remote_Addr.sin_addr := PInAddr(Remote_Host^.h_addr_list^)^; imapcopy-1.04/.pc/0004-fpc-3.0.0.patch/imaptools.pas-271- END; ############################################## imapcopy-1.04/imaptools.pas-262- // try to convert to address imapcopy-1.04/imaptools.pas:263: u_long (A) := inet_addr (AdressOrName); imapcopy-1.04/imaptools.pas-264- IF u_long (A) = u_long (INADDR_NONE) THEN ############################################## imapcopy-1.04/imaptools.pas-269- BEGIN imapcopy-1.04/imaptools.pas:270: Remote_Addr.sin_addr := PInAddr(Remote_Host^.h_addr_list^)^; imapcopy-1.04/imaptools.pas-271- END;