===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libio-interface-perl-1.09/t/basic.t-35-print @loopback ? 'ok ':'not ok ',4,"\n";
libio-interface-perl-1.09/t/basic.t:36:my @local = grep {$s->if_addr($_) eq '127.0.0.1'} @loopback;
libio-interface-perl-1.09/t/basic.t-37-
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-357-#ifdef IFHWADDRLEN
libio-interface-perl-1.09/lib/IO/Interface.xs:358:char* parse_hwaddr (char *string, struct sockaddr* hwaddr) {
libio-interface-perl-1.09/lib/IO/Interface.xs-359- int len,i,consumed;
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-378- 3*4 + 3 + 1 = 16 bytes long */
libio-interface-perl-1.09/lib/IO/Interface.xs:379:char* format_hwaddr (char *string, struct sockaddr* hwaddr) {
libio-interface-perl-1.09/lib/IO/Interface.xs-380- int i,len;
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-411-char*
libio-interface-perl-1.09/lib/IO/Interface.xs:412:if_addr(sock, name, ...)
libio-interface-perl-1.09/lib/IO/Interface.xs-413- InputStream sock
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-532-char*
libio-interface-perl-1.09/lib/IO/Interface.xs:533:if_dstaddr(sock, name, ...)
libio-interface-perl-1.09/lib/IO/Interface.xs-534- InputStream sock
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-570-char*
libio-interface-perl-1.09/lib/IO/Interface.xs:571:if_hwaddr(sock, name, ...)
libio-interface-perl-1.09/lib/IO/Interface.xs-572- InputStream sock
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-628- newaddr = SvPV(ST(2),len);
libio-interface-perl-1.09/lib/IO/Interface.xs:629: if (parse_hwaddr(newaddr,&ifr.ifr_hwaddr) == NULL)
libio-interface-perl-1.09/lib/IO/Interface.xs-630- croak("Invalid hardware address");
##############################################
libio-interface-perl-1.09/lib/IO/Interface.xs-639- if (!Ioctl(sock,operation,&ifr)) XSRETURN_UNDEF;
libio-interface-perl-1.09/lib/IO/Interface.xs:640: RETVAL = format_hwaddr(hwaddr,&ifr.ifr_hwaddr);
libio-interface-perl-1.09/lib/IO/Interface.xs-641-#endif
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-76- foreach (@interfaces) {
libio-interface-perl-1.09/lib/IO/Interface.pm:77: my $if_addr = $sock->if_addr($_) or next;
libio-interface-perl-1.09/lib/IO/Interface.pm-78- return $_ if $if_addr eq $addr;
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-139- my $flags = $s->if_flags($if);
libio-interface-perl-1.09/lib/IO/Interface.pm:140: print "addr = ",$s->if_addr($if),"\n",
libio-interface-perl-1.09/lib/IO/Interface.pm-141- "broadcast = ",$s->if_broadcast($if),"\n",
libio-interface-perl-1.09/lib/IO/Interface.pm-142- "netmask = ",$s->if_netmask($if),"\n",
libio-interface-perl-1.09/lib/IO/Interface.pm:143: "dstaddr = ",$s->if_dstaddr($if),"\n",
libio-interface-perl-1.09/lib/IO/Interface.pm:144: "hwaddr = ",$s->if_hwaddr($if),"\n";
libio-interface-perl-1.09/lib/IO/Interface.pm-145-
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-190-
libio-interface-perl-1.09/lib/IO/Interface.pm:191:=item $addr = $s->if_addr($ifname [,$newaddr])
libio-interface-perl-1.09/lib/IO/Interface.pm-192-
libio-interface-perl-1.09/lib/IO/Interface.pm:193:if_addr() gets or sets the interface address. Call with the interface
libio-interface-perl-1.09/lib/IO/Interface.pm-194-name to retrieve the address (in dotted decimal format). Call with a
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-197-
libio-interface-perl-1.09/lib/IO/Interface.pm:198: my $oldaddr = $s->if_addr('eth0');
libio-interface-perl-1.09/lib/IO/Interface.pm:199: $s->if_addr('eth0','192.168.8.10') || die "couldn't set address: $!";
libio-interface-perl-1.09/lib/IO/Interface.pm-200-
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-212-
libio-interface-perl-1.09/lib/IO/Interface.pm:213:=item $dstaddr = $s->if_dstaddr($ifname [,$newdest])
libio-interface-perl-1.09/lib/IO/Interface.pm-214-
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-216-
libio-interface-perl-1.09/lib/IO/Interface.pm:217:=item $hwaddr = $s->if_hwaddr($ifname [,$newhwaddr])
libio-interface-perl-1.09/lib/IO/Interface.pm-218-
##############################################
libio-interface-perl-1.09/lib/IO/Interface.pm-254- my @interfaces = if_list($sock);
libio-interface-perl-1.09/lib/IO/Interface.pm:255: print "address = ",if_addr($sock,$interfaces[0]);
libio-interface-perl-1.09/lib/IO/Interface.pm-256-
##############################################
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-67- my $self = shift;
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm:68: $self->sock->if_addr($self->name,@_);
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-69-}
##############################################
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-82- my $self = shift;
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm:83: $self->sock->if_dstaddr($self->name,@_);
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-84-}
##############################################
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-87- my $self = shift;
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm:88: $self->sock->if_hwaddr($self->name,@_);
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-89-}
##############################################
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-226-
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm:227:=item $addr = $interface->hwaddr([$newaddr])
libio-interface-perl-1.09/lib/IO/Interface/Simple.pm-228-