One Hat Cyber Team

Your IP: 216.73.216.93
Server IP: 65.108.141.171
Server: Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software: Apache
PHP Version: 7.4.33
Buat File | Buat Folder

View File Name : squid-auth.pl

#!/usr/bin/perl
# squid-auth.pl
# A basic squid authentication program

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';

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";
	}