Как хешировать с помощью DCPcrypt?

Я перерыл сеть, пытаясь найти пример функции, как хешировать текст с помощью Sha1 и DCPcrypt.

У меня есть пример ниже. Кажется, всплывает все время. Но он каждый раз возвращает китайские иероглифы. Помогите, пожалуйста, исправить функцию.

function TForm1.EncryptThis(aString : string) : string;
var
   Cipher: TDCP_cast256;
   KeyStr: string;
begin
   KeyStr:= '';
   Cipher:= TDCP_cast256.Create(Self);
   Cipher.InitStr(KeyStr,TDCP_sha1);
   result := Cipher.EncryptString(aString);
   Cipher.Burn;
   Cipher.Free;
end;

ОБНОВЛЕНИЕ: Используя приведенные ниже ссылки и информацию, я создал эти функции. Но, как я уже сказал, это не имеет большого смысла для меня. Так что извините за невежество.

Однако код не работает. Его вывод: 3F3F3F3F3F3F3F3F3F3F00000000000000000000, тогда как он должен быть 40bd001563085fc35165329ea1ff5c5ecbdbbeef, так как я сказал программе иметь 123.

Пожалуйста помоги.

function CalcDigest(text: string): string;
var
  x: TDCP_hash;
begin
  x := TDCP_sha1.Create(nil);
  try
    x.Init;
    x.UpdateStr(text);
    SetLength(Result, x.GetHashSize div 8);
    x.Final(Result[1]);
  finally
    x.Free;
  end;
end;

function String2Hex(const Buffer: Ansistring): string;
begin
  SetLength(result, 2*Length(Buffer));
  BinToHex(@Buffer[1], PWideChar(@result[1]), Length(Buffer));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  memo2.Lines.Add(String2Hex(CalcDigest(memo1.Lines.Strings[0])));
end;