Verschlüsselungsalgorithmus unicodefähig machen (kyrillische Buchstaben)

[DieDolly]

Das wird dann vermutlich dieser Abschnitt hier sein

Delphi-Quellcode:

 for i := 1 to Length(Data) do
  begin
   s2 := s2 + ss[Ord(Data[i]) mod 16 + 1];
   ss := Copy(ss, Length(ss), 1) + Copy(ss, 1, Length(ss) - 1);
   s2 := s2 + ss[Ord(Data[i]) div 16 + 1];
   ss := Copy(ss, Length(ss), 1) + Copy(ss, 1, Length(ss) - 1);
  end;