[Main]
Custom1="тут шифрованный md5 хэш"
SavePass=Yes
MD5Login=Yes

procedure TICQClient.HSnac1707(Flap: TFlapHdr; Snac: TSnacHdr; Pkt: PRawPkt);
var
  KeyLen: Word;
  Key: string; 
  State: Md5Context;
  Digest: MD5Digest;
  answ_pkt: TRawPkt;
  pwdbuff: array[0..15] of byte;
  pwd: string;
  i:integer;
begin
  KeyLen := GetInt(Pkt, 2);
  Key := GetStr(Pkt, KeyLen);

  // тут вычисляется хэш пароля и результат помещается в Digest
  MD5Init(State);
  MD5Update(State, PChar(Password), length(Password));
  MD5Final(State, Digest);

  // соответственно эти 3 строки, что выше нам не нужны, а Digest мы
  // должны положить наш хэш в бинарном виде! (16 байт)
  // как в Digest вы положите хэш это ваша задача

  MD5Init(State);
  MD5Update(State, PChar(Key), KeyLen );
  
  MD5Update(State, PChar(DigestToBuff(Digest)), SizeOf(Md5Digest) );

  MD5Update(State, PChar(CLIENT_MD5_String), length(CLIENT_MD5_String));
  MD5Final(State, Digest);

  CreateCLI_IDENT(@answ_pkt, FLUIN, DigestToBuff(Digest), True, FSeq);
  FSock.SendData(answ_pkt, answ_pkt.Len);

end;