سورس تبدیل string به hexadecimal

###########################################################################
# Copyright (C) 2004 by 0xSoftware Inc# 
# Damo@0xSoftware.com #
# #
# This program is free software; you can redistribute it and/or modify#
# it under the terms of the GNU General Public License as published by#
# the Free Software Foundation; either version 2 of the License, or#
# (at your option) any later version. #
########################################################################### 
#!/usr/bin/perl -w
print"SoftAfzar.Net \n------------\n";
print"Enter String: ";
	$String = <STDIN>;
		chop($String);
$Size = length($String);
for($i = $Size; $i >= 0; $i--)
{
	$Test[$i] = substr($String, $i, 1);
}
foreach $value (@Test)
{
	$convert = ord($value);
	$convert_hex = hex($convert);
	$Code = ("$Code" . "\x5C\x78" . "$convert_hex");
}
$Fianl = substr($Code, 0, length($Code) - 3);
 
print"$Fianl\n";