AnonSec Shell

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . AnonSec Shell AnonSec Shell

Server IP : 20.75.53.88 / Your IP : 216.73.217.165 [ Reverse IP ]
Web Server : Apache
System : Linux VMRALP-3 4.4.0-256-generic #290~14.04.1-Ubuntu SMP Thu Jun 20 09:24:50 UTC 2024 x86_64
User : www-data ( 33)
PHP Version : 5.5.9-1ubuntu4.29+esm15
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
Domains : 3 Domains
MySQL : ON | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON
Directory : /usr/lib/w3m/

Upload File :

[ HOME ] [ BACKUP SHELL ] [ JUMPING ] [ MASS DEFACE ] [ SCAN ROOT ] [ SYMLINK ]

Current File : /usr/lib/w3m/xface2xpm

#!/usr/bin/perl

$USAGE = "xface2xpm [-t] [-fg <color>] [-bg <color>] [<file>]";

# compface/uncompface
#   ftp://metalab.unc.edu/pub/Linux/apps/graphics/convert/
$UNCOMPFACE = "uncompface";

$T = "c";
$BG = "white";
$FG = "black";
while (@ARGV) {
	$_ = shift @ARGV;
	if (/^-h/) {
		&usage(0);
	} elsif (/^-t/) {
		$T = "s";
		$BG = "none";
	} elsif (/^-bg/) {
		@ARGV || &usage(1);
		$BG = shift @ARGV;
	} elsif (/^-fg/) {
		@ARGV || &usage(1);
		$FG = shift @ARGV;
	} elsif (/^-./) {
		&usage(1);
	} else {
		unshift(@ARGV, $_);
		last;
	}
}

$xf = "";
while(<>) {
#	s/^X-Face://i if ($xf eq "");
	$xf .= $_;
}

pipe(R, W2);
pipe(R2, W);
if (! fork()) {
	close(R);
	close(W);
	open(STDIN, "<&R2");
	open(STDOUT, ">&W2");
	exec $UNCOMPFACE;
	exit 1;
}
close(R2);
close(W2);
print W $xf;
close(W);
while(<R>) {
	while(s/0x(..)(..)//) {
		push(@bm, hex($1), hex($2));
	}
}
close(R);
@bm || exit 1;

$W = 48;
$H = @bm * 8 / $W;	# must be 48
print <<EOF;
/* XPM */
static char *xf[] = {
/* columns rows colors chars-per-pixel */
"$W $H 2 1",
"  $T $BG",
". c $FG",
/* pixels */
EOF
while (@bm) {
	print "\"";
	for (1..6) {
		$x = shift @bm;
		for $i (1 .. 8) {
			print ((($x >> (8-$i)) & 1) ? "." : " ");
		}
	}
	print (@bm ? "\",\n" : "\"\n");
}
print <<EOF;
};
EOF

sub usage {
	local($err) = @_;
	if ($err) {
		print STDERR "$USAGE\n";
	} else {
		print "$USAGE\n";
	}
	exit $err;
}

Anon7 - 2022
AnonSec Team