=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Lookup.pm-303- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Lookup.pm:304: if (validaddr($ip)) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Lookup.pm-305- $uri = URI->new($escape); ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-478- my @list = (); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:479:# my $rows = $self->{dbh}->selectall_arrayref("SELECT * FROM a_chunks WHERE hostkey = ? AND list = ?", { Slice => {} }, $hostkey, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:480: my $rows = $self->{dbh}->selectall_arrayref("SELECT * FROM a_chunks WHERE hostkey = ?", { Slice => {} }, $hostkey); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-481- ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-494- my @list = (); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:495:# my $rows = $self->{dbh}->selectall_arrayref("SELECT * FROM s_chunks WHERE hostkey = ? AND list = ?", { Slice => {} }, $hostkey, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:496: my $rows = $self->{dbh}->selectall_arrayref("SELECT * FROM s_chunks WHERE hostkey = ?", { Slice => {} }, $hostkey); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-497- ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-509- my @list = (); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:510: my $rows = $self->{dbh}->selectall_arrayref("SELECT DISTINCT(num) FROM a_chunks WHERE list = ? ORDER BY num ASC", { Slice => {} }, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-511- foreach my $row (@$rows) { ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-522- my @list = (); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:523: my $rows = $self->{dbh}->selectall_arrayref("SELECT DISTINCT(num) FROM s_chunks WHERE list = ? ORDER BY num ASC", { Slice => {} }, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-524- foreach my $row (@$rows) { ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-566- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:567: my $rows = $self->{dbh}->selectall_arrayref("SELECT hash FROM full_hashes WHERE timestamp >= ? AND num = ? AND list = ?", { Slice => {} }, $timestamp, $chunknum, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-568- foreach my $row (@$rows) { ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-585- else { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:586: $self->{dbh}->do("UPDATE updates SET last = ?, wait = ?, errors = 0 WHERE list = ?", undef, $time, $wait, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-587- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-608- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:609: my $rows = $self->{dbh}->selectall_arrayref("SELECT last, wait, errors FROM updates WHERE list = ? LIMIT 1", { Slice => {} }, $list); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-610- ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-624-# $self->{dbh}->do("INSERT OR REPLACE INTO full_hashes (num, hash, list, timestamp) VALUES (?, ?, ?, ?)", { }, $hash->{chunknum}, $hash->{hash}, $hash->{list}, $timestamp); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:625: $self->{dbh}->do("DELETE FROM full_hashes WHERE num = ? AND hash = ? AND list = ?", { }, $hash->{chunknum}, $hash->{hash}, $hash->{list}); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-626- $self->{dbh}->do("INSERT INTO full_hashes (num, hash, list, timestamp) VALUES (?, ?, ?, ?)", { }, $hash->{chunknum}, $hash->{hash}, $hash->{list}, $timestamp); ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-646- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:647: my $rows = $self->{dbh}->selectall_arrayref("SELECT id, errors FROM full_hashes_errors WHERE prefix = ? LIMIT 1", { Slice => {} }, $prefix); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-648- ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-653- my $errors = $rows->[0]->{errors} + 1; libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:654: $self->{dbh}->do("UPDATE full_hashes_errors SET errors = ?, timestamp = ? WHERE id = ?", $errors, $timestamp, $rows->[0]->{id}); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-655- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-662- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:663: my $rows = $self->{dbh}->selectall_arrayref("SELECT id, errors FROM full_hashes_errors WHERE prefix = ? AND errors > 0 LIMIT 1", { Slice => {} }, $prefix); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-664- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-665- if (scalar @$rows > 0) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:666: $self->{dbh}->do("UPDATE full_hashes_errors SET errors = 0, timestamp = ? WHERE id = ?", $timestamp, $rows->[0]->{id}); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:667: $self->{dbh}->do("DELETE FROM full_hashes_errors WHERE id = ?", $rows->[0]->{id}); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-668- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-674- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm:675: my $rows = $self->{dbh}->selectall_arrayref("SELECT timestamp, errors FROM full_hashes_errors WHERE prefix = ? LIMIT 1", { Slice => {} }, $prefix); libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/DBI.pm-676- ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-359- foreach my $num (@$chunknums) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:360: # DELETE FROM [...] WHERE chunknumber = $num AND list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-361- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-396- foreach my $num (@$chunknums) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:397: # DELETE FROM [...] WHERE chunknumber = $num AND list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-398- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-650- foreach my $num (@$chunknums) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:651: # "DELETE FROM [...] WHERE num = $num AND list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-652- } ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-721- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:722: # UPDATE full_hashes_errors SET errors = 0, timestamp = $timestamp WHERE prefix = $prefix libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-723-} ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-884- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:885: # DELETE FROM s_chunks WHERE list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:886: # DELETE FROM a_chunks WHERE list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:887: # DELETE FROM full_hashes WHERE list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:888: # DELETE FROM full_hashes_errors WHERE list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm:889: # DELETE FROM updates WHERE list = $list libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2/Storage.pm-890-} ############################################## libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2.pm-1420- libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2.pm:1421: if (validaddr($ip)) { libnet-google-safebrowsing2-perl-1.07/lib/Net/Google/SafeBrowsing2.pm-1422- $uri = URI->new($escape);