Шифрование текста

[SoundMan]

Пытаюсь написать функцию шифрования текста с использованием ассемблера, но неполучается, то фатал ерроры вылетают, то просто не запускается...
Вот код:

function TForm1.decode(text, code: string):string;
begin
 asm
   mov eax,text
   mov ebx,code
   push eax
   push ebx
 @@L01:
   xor esi,esi
   movzx esi,byte ptr DS:[eax]
   test esi,esi
   jz @@L02
   xor esi,code
   mov result,esi
   inc eax
   jmp @@L01
 @@L02:
   pop ebx
   pop eax
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Text := Decode(Edit1.text, Edit2.Text);
end;

Помогите дописать!

[Air]

У меня вопрос.
- что обязательно так?
чем не устраивает base64 или CSCA1?

[alexBlack]

Вот держите на pascal'e и то-же самое с ассемблерной вставкой.
Только непонятно зачем на asm'е.

function TForm1.decode(text, code:String):String;
var n, i:integer;
begin
   result := text;
   UniqueString(result);
   n := 1;
   for i:=1 to length(text) do begin
      result[i] := chr(ord(result[i]) xor ord(code[n]));
      if n > length(code)
      then n := 1
      else inc(n);
   end;
end;

function TForm1.decode1(text, code:String):String;
var L:integer;
begin
   // При xor шифровании внутри строки может встретиться #0
   // поэтому длину строки определяем вызовом length,
   // а не поиском #0 в цикле
   L := length(text);
   result := text;
   UniqueString(result);
   asm
        push esi
        push edi
        push eax
        push edx
        push ecx

        mov  ecx, L
        mov  edx, [соdе]        // code !!!
        mov  esi, result
        mov  esi, [esi]
      @@Loop1:
        mov  edi, edx
      @@Loop2:
        jcxz @@exit
        mov  al, byte ptr [esi]

        xor  al, [edi]
        mov  [esi], al
        inc  esi
        dec  ecx
        inc  edi
        cmp  byte ptr [edi], 0
        je   @@Loop1

        jmp  @@Loop2
      @@exit:

        pop  ecx
        pop  edx
        pop  eax
        pop  edi
        pop  esi
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var key:String;
begin
   // Зашифрованный текст в memo лучше не показывать
   key := 'key';
   Memo1.Text := decode(
                   decode('йцукенгшщзх text string for decode', key),
                   key);
   Memo1.Text := Memo1.Text + #13#10+
                 decode1(
                   decode1('йцукенгшщзх text string for decode', key),
                   key);
end;

------
Хм. (.Code.) в тексте ассемблера распознается как тэг

[SoundMan]

To alexBlack
Спасибо большое!

Только непонятно зачем на asm'е.

Просто давно хотел узнать как это делается на АСМе))