Home Files
Adminer
Execute Command
PHP Eval
Symlink
File Upload
Owner :
www-data
PHP Version
5.6.40-0+deb8u12
Disk Space
40.91 GB
Server Addr
19-www4
Your IP
10.10.10.40
Edit File
File:
#!/usr/bin/perl # squid-auth.pl # A basic squid authentication program use strict; use warnings; my %auth; open(my $fh, $ARGV[0]); while(<$fh>) { s/\r|\n//g; s/#.*$//; if (/^(\S+):(\S+)/) { $auth{$1} = $2; } } close($fh); $| = 1; while(<STDIN>) { s/\r|\n//g; my ($u, $p) = split(/\s+/, $_); print $auth{$u} && $auth{$u} eq crypt($p, $auth{$u}) ? "OK\n" : "ERR\n"; }