#!/usr/bin/perl
#int2hex & int2asc
#codz by superhei 

#Team
#Security Angel
#Bugkidz Security Team

#Homepage
#http://www.4ngel.net
#http://www.darkne2s.org

# C:\tools>aschex.pl
# Usage: C:\tools\aschex.pl <option> <string>
#  1£º2hex
#  2£º2asc

# C:\tools>aschex.pl 2 www.4ngel.net
# 119,119,119,46,52,110,103,101,108,46,110,101,116
# C:\tools>aschex.pl 1 www.4ngel.net
# 0x7777772E346E67656C2E6E6574
# C:\tools>

$ARGC = @ARGV;
if ($ARGC != 2) {
	print "Usage: $0 <option> <string>\n";
	print " 1£º2hex \n";
	print " 2£º2asc \n"; 
	exit;
}

$option = shift;
$string = shift;

if ($option == 1) {
	@todo = split("",$string);
	@todo2 = map(ord($_),@todo);
	@todo3 = map(&int2hex($_),@todo2);
	print "0x";
	print @todo3;
}elsif ($option == 2) {
	@char = unpack('C*', $string);
	$asc=join(",",@char);
	print $asc;
}else {
	print "Invalid option!\n";
	exit;
}
 
#codz by analysist
sub int2hex {
	my ($int) = @_;
	push(@int,int($int/16));
	push(@int,int($int%16));
	@xxx = (10,11,12,13,14,15);
	@yyy = (A,B,C,D,E,F);
	$x = 0;
	while ($x < @int) {
		$y = 0;
		while ($y < @xxx) {
			if ($int[$x] eq $xxx[$y]) {
				push(@hex,$yyy[$y]);
				last;
			}
			$y++;
		}
		if ($hex[$x] eq "") {
			push(@hex,$int[$x]);
		}
		$x++;
	}
	$hex = join("",@hex);
	undef @int;
	undef @hex;
	return $hex;
}