binmode(STDIN);
binmode(STDOUT);

while($zeichen = getc(STDIN))
{
    print ord($zeichen);
}