Transport Tycoon Forums

Code: Select all

#!perl -w

use strict;


sub mhex($)
{
	my($num)=(@_);
	my($d,$r,$str);
	$str="";
	$num=0 if ($num<0);
	return "00" if ($num==0);
        while ($num>0)
        {
        	$d=$num/16;
        	$d=~s/\..*$//;
        	$r=$num-$d*16;
        	if ($r<10)
	        	{ $r=chr($r+48); }
	        else
	        	{ $r=chr($r+55); }	
        	$str=$r.$str;
        	$num=$d;
	}
	$str="0".$str if (length ($str)<2);
	return ($str);
}

sub main()
{
        print("String2hex convertor.\n\nUsage: Str2hex from [to]\n\n");
	my($name,$to,$res,$str);
	$name=$ARGV[0];
	$name="!-!" if ($name eq ""); 
	$to=$ARGV[1];
	$to="!-!" if ($to eq ""); 
	open(FFILE,"<$name") || die "Can\'t open $name\n";
	while(<FFILE>)
	{
		chomp;
		s/^\s+//;
		s/\s+$//;
		unless ((/^(#|\;)\s+/) or ($_ eq ""))
		{
			s/\t/ /g;
			s/\s+/ /g;
			$str=$_;
			$res=$res."# ".$str."\t\t";
			for (my($i)=0;$i<length($str);$i++)
			{
				$res=$res.(mhex(ord(substr($str,$i,1)))." ");
			}
			$res=$res."00\n";
		}
		else
			{ $res=$res.$_."\n"; }
	}
	close (FFILE);
	open(FFILE,">$to") || die "Can\'t write to $to\n";
	{
		print FFILE $res
	}
	close (FFILE);
}

main();

Code: Select all

#!/usr/bin/perl -l
print join " ", map { sprintf "%02x", ord } split //, "@ARGV";

Code: Select all

perl charcode.pl I want this string in hex! >> file.nfo

Code: Select all

unit Unit1;
interface
uses
  SysUtils, Forms, StdCtrls, Classes, Controls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
Edit2.Text:='';
for i:=1 to Length(Edit1.Text) do
  Edit2.Text := Edit2.Text + #32 + IntToStr(Ord(Edit1.Text[i]));
end;

end.