Помогите разобраться с кодом

procedure GetCode1(InputFile:string; OutPutFile:string; pass:string);
var
f : TMemoryStream;
i : Integer;
l : Byte;
s,k : PChar;
t : TTime;
begin
l:=Length(pass); // Определяем длину строки
// (Программа идёт на XYZ если строка длиннее 256 символов :( )
if l=0 then exit; // Если длина равна нулю, выходим (или см. выше)
GetMem(k,l+1); // Требуем память, равную длине строки
StrPCopy(k,pass); // Копируем строку в затребованную память
f:=TMemoryStream.Create; // Создаём объект - поток памяти????
try // Блок обработки ошибок
f.LoadFromFile(InputFile); // Загрузка файла
i:=f.Size; // Определяем его размер
GetMem(s,i+1); // Требуем память, равную длине файла
// (ежели машина не офигеет)
f.Position:=0; // Указатель объекта на начало файла
f.ReadBuffer(s^,i); // Читаем файл в память
asm // Здесь идёт нечто асматическое - просьба прокомментировать знатокам ;)
PUSH EDI
PUSH EDX
PUSH EBX
PUSH CX
MOV EDI,&s
MOV EDX,&i
@L1: MOV EBX,&k
MOV CL,&l
@L2: MOV AL,[EBX]
XOR AL,[EDI]
XOR AL,$55
MOV [EDI],AL
INC EBX
INC EDI
DEC EDX
JZ @L3
DEC CL
JNZ @L2
JMP @L1
@L3: POP CX
POP EBX
POP EDX
POP EDI
end;
f.Position:=0; // возвращаем указатель объекта на начало файла
f.WriteBuffer(s^,i); // Записываем файл
f.SaveToFile(OutPutFile); // Сохраняем файл
finally
f.Free; // Удаляем объект
FreeMem(k); // Освобождаем память
FreeMem(s);
end;
end;
 
procedure GetDeCode1(InputFile:string; OutPutFile:string; pass:string);
var
f : TMemoryStream;
m,j,i : Integer;
l : Byte;
s,k : PChar;
t : TTime;
begin
l:=Length(pass);
if l=0 then exit;
GetMem(k,l+1);
StrPCopy(k,pass);
f:=TMemoryStream.Create;
try
f.LoadFromFile(InputFile);
i:=f.Size;
GetMem(s,i+1);
f.Position:=0;
f.ReadBuffer(s^,i);
m:=0; // Всё то же самое
for j:=0 to i-1 do // Цикл по длине файла
begin
s[j]:=Char(Byte(s[j])xor Byte(k[m])xor $55); // Что-то ксорим
Inc(m); //Увеличиваем m
if m=l then m:=0; // Обнуляем m, ежели оно равно длине строки
// (вспоминаем про ограничение на 256)
end; // Далее всё то же самое
f.Position:=0;
f.WriteBuffer(s^,i);
f.SaveToFile(OutPutFile);
finally
f.Free;
FreeMem(k);
FreeMem(s);
end;
end;