=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libnet-rawip-perl-0.25/eth.c-56-static int libnet-rawip-perl-0.25/eth.c:57:get_ether_addr(u_long ipaddr, u_char *hwaddr) libnet-rawip-perl-0.25/eth.c-58-{ ############################################## libnet-rawip-perl-0.25/eth.c-112- dla = (struct sockaddr_dl *) &ifr->ifr_addr; libnet-rawip-perl-0.25/eth.c:113: memcpy(hwaddr,LLADDR(dla),dla->sdl_alen); libnet-rawip-perl-0.25/eth.c-114- close (s); ############################################## libnet-rawip-perl-0.25/eth.c-226- } else { libnet-rawip-perl-0.25/eth.c:227: memcpy(eth_mac,LLADDR(sdl),sdl->sdl_alen); libnet-rawip-perl-0.25/eth.c-228- return 1; ############################################## libnet-rawip-perl-0.25/eth.c-279- close(s); libnet-rawip-perl-0.25/eth.c:280: if (!get_ether_addr(((struct sockaddr_in*)&ifr.ifr_addr)->sin_addr.s_addr, libnet-rawip-perl-0.25/eth.c-281- my_eth_mac)) { ############################################## libnet-rawip-perl-0.25/examples/traceroute-107- my $addr = shift; libnet-rawip-perl-0.25/examples/traceroute:108: (gethostbyaddr(pack("N",$addr),AF_INET))[0] || ip2dot($addr); libnet-rawip-perl-0.25/examples/traceroute-109-} ############################################## libnet-rawip-perl-0.25/lib/Net/RawIP.pm-479- my $daddr = $self->{iphdr}->daddr; libnet-rawip-perl-0.25/lib/Net/RawIP.pm:480: $self->{iphdr}->saddr(host_to_ip($saddr)) if ($saddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/lib/Net/RawIP.pm:481: $self->{iphdr}->daddr(host_to_ip($daddr)) if ($daddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/lib/Net/RawIP.pm-482- return $self->_pack(1); ############################################## libnet-rawip-perl-0.25/lib/Net/RawIP.pm-622- if ($self->{proto} eq 'icmp' || $self->{proto} eq 'generic') { libnet-rawip-perl-0.25/lib/Net/RawIP.pm:623: $self->{sock} = set_sockaddr($self->{iphdr}->daddr,0); libnet-rawip-perl-0.25/lib/Net/RawIP.pm-624- } libnet-rawip-perl-0.25/lib/Net/RawIP.pm-625- else { libnet-rawip-perl-0.25/lib/Net/RawIP.pm:626: $self->{sock} = set_sockaddr($self->{iphdr}->daddr, libnet-rawip-perl-0.25/lib/Net/RawIP.pm-627- $self->{"$self->{proto}hdr"}->dest); ############################################## libnet-rawip-perl-0.25/RawIP.xs-717-SV * libnet-rawip-perl-0.25/RawIP.xs:718:set_sockaddr (daddr,port) libnet-rawip-perl-0.25/RawIP.xs-719- unsigned int daddr ############################################## libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-479- my $daddr = $self->{iphdr}->daddr; libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm:480: $self->{iphdr}->saddr(host_to_ip($saddr)) if ($saddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm:481: $self->{iphdr}->daddr(host_to_ip($daddr)) if ($daddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-482- return $self->_pack(1); ############################################## libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-622- if ($self->{proto} eq 'icmp' || $self->{proto} eq 'generic') { libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm:623: $self->{sock} = set_sockaddr($self->{iphdr}->daddr,0); libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-624- } libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-625- else { libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm:626: $self->{sock} = set_sockaddr($self->{iphdr}->daddr, libnet-rawip-perl-0.25/.pc/fix_pod.patch/lib/Net/RawIP.pm-627- $self->{"$self->{proto}hdr"}->dest); ############################################## libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-479- my $daddr = $self->{iphdr}->daddr; libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm:480: $self->{iphdr}->saddr(host_to_ip($saddr)) if ($saddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm:481: $self->{iphdr}->daddr(host_to_ip($daddr)) if ($daddr !~ /^-?\d*$/); libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-482- return $self->_pack(1); ############################################## libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-622- if ($self->{proto} eq 'icmp' || $self->{proto} eq 'generic') { libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm:623: $self->{sock} = set_sockaddr($self->{iphdr}->daddr,0); libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-624- } libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-625- else { libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm:626: $self->{sock} = set_sockaddr($self->{iphdr}->daddr, libnet-rawip-perl-0.25/.pc/spelling.patch/lib/Net/RawIP.pm-627- $self->{"$self->{proto}hdr"}->dest);