Перевести ява-скрипт на делфи

[Roman324]

Добрый вечер всем. МОжет кто поможет перевести простенький скрипт на делфи?

 public static String xorencode(String text, String key)
  {
    String res = ""; int j = 0;
    for (int i = 0; i < text.length(); i++)
    {
      res = res + (char)(text.charAt(i) ^ key.charAt(j));
      j++; if (j == key.length()) j = 0;
    }
    return res;
  }

 public static String inttostr(String text)
  {
    String res = "";
    for (int i = 0; i < text.split("-").length; i++) res = res + (char)Integer.parseInt(text.split("-")[i]);
    return res;
  }

Суть скрипта расшифровать строку

118-66-84-112-119-85-68-102-114-115-117-112-75-67-89-80-86-69-116-66-92

С помощью ключа

DsdAEdsSDFDExsadas

Тоесть из этого:

118-66-84-112-119-85-68-102-114-115-117-112-75-67-89-80-86-69-116-66-92

и этого

DsdAEdsSDFDExsadas

мы должны получить это:

210121756515308476018

Может кто поможет?
Спасибо заранее.

[BDA]

function xorencode(const text, key: string): string;
var
  i, n: integer;
  num: tstringlist;
  str: string;
begin
  str := '';
  n := length(key);
  num := tstringlist.Create;
  num.Delimiter := '-';
  num.DelimitedText := text;
  for i := 0 to num.Count - 1 do
    str := str + chr(strtoint(num[i]) xor ord(key[i mod n + 1]));
  num.Free;
  result := str;
end;

...

showmessage(xorencode('118-66-84-112-119-85-68-102-114-115-117-112-75-67-89-80-86-69-116-66-92', 'DsdAEdsSDFDExsadas'));

UPD Пожалуйста

[Roman324]

Сообщение от BDA

function xorencode(const text, key: string): string;
var
  i, n: integer;
  num: tstringlist;
  str: string;
begin
  str := '';
  n := length(key);
  num := tstringlist.Create;
  num.Delimiter := '-';
  num.DelimitedText := text;
  for i := 0 to num.Count - 1 do
    str := str + chr(strtoint(num[i]) xor ord(key[i mod n + 1]));
  num.Free;
  result := str;
end;

...

showmessage(xorencode('118-66-84-112-119-85-68-102-114-115-117-112-75-67-89-80-86-69-116-66-92', 'DsdAEdsSDFDExsadas'));

Уааа, спасибо Вам огромное)