Перевод букв в цифры

[niki-maximal]

Перед мной стоит цель перевести циферно-буквенный в цифровой пароль(пример: 4D7H-78VB перевести в цифровой 678292745). Пожалуйста покажите пример или киньте ссылку(я искал и не че не нашел ) . Заранее спасибо!!

[BDA]

Эм, не понял, как из 4D7H-78VB получился 678292745.
Пример:

function tonum(pass: string): string;
const
  abc = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-';
  num = '0123456789';
var
  i, p: integer;
  s: string;
begin
  s := '';
  for i := 1 to length(pass) do
  begin
    p := pos(pass[i], abc);
    if p = 0 then
    begin
      showmessage('Wrong input password');
      tonum := '';
      exit;
    end;
    s := s + num[(p - 1) mod 10 + 1];
  end;
  tonum := s;
end;

Буквы должны что-то обозначать. Вот в чем соль.

function tonum(pass: string): string;
const
  abc = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-';
var
  i, p: integer;
  s: string;
begin
  s := '';
  for i := 1 to length(pass) do
  begin
    p := pos(pass[i], abc);
    if p = 0 then
    begin
      showmessage('Wrong input password');
      tonum := '';
      exit;
    end;
    s := s + inttostr(p - 1);
  end;
  tonum := s;
end;

[niki-maximal]

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

Эм, не понял, как из 4D7H-78VB получился 678292745.

Это пример. Надо проще говоря сделать цикл где будет каждый исходный символ заменяться цифрой( например А заменить цифрой 6). Я пытался но у меня ни чего не получается...

[Человек_Борща]

Буквы должны что-то обозначать. Вот в чем соль.