z [delphi] na [php]: jedna funkcja...

Witam...
Mam funkcje w Delphi:

var
a,b,c,d,e : Integer;
Kod : String;
begin
// przypisanie do zmiennych a,b,c i d i zmiana ich na znaki w kodzie ASCII
a := Ord(N.Text[2]);
b := Ord(N.Text[1]);
c := Ord(N.Text[Length(N.Text)]);
d := Ord(N.Text[Length(N.Text) - 1]);
e := Ord('T');

// mnożenie wyników i przypisanie z powrotem do zmiennych
a := a3;
b := b2;
c := c4;
d := d8;
e := e*2;

// Wstawienie gotowego wyniku do zmiennej Kod
Kod := IntToStr(a)+IntToStr(e)+IntToStr(b90)+IntToStr(c)+IntToStr(d2);

// Wstawienie zmiennej Kod do edita i wyświetlenie
R.Text := Kod;
end;

i tera musze zrobic generator w php lub js zeby kodowal hasla w takiej samej postaci jak funkcja do delphi wyzej...
[stuk] [stuk]

robisz sobie formularz który sobie wysyła dane z z pól
a skrypt musialby wyglądać chyba tak:
$q='3';
$w='2';
$a=$a*=$q;
$b=$b*=$w;
itd.
a później
$kod=$a.=$b;
no i wynik:
echo $kod;
(powinno działać)
Chyba że chcesz aby ci to od początku do końca napisać razem z kodem formularza??
dopisane:
Teraz zobaczylem ze trzeba wydobyc chyba kod asci :-8

jak by ktos napisal caly kod...

jak bede mial czas to ci moge napisać cale ale mam na razie swoje powazne problemy do rozwiązania