procedure TripCreate(Seed: PChar; var Trip: TTrip); const Table: PChar ='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; var Context: TMD5Context; Hash: TMD5Hash; i: Integer; begin MD5Init(Context); MD5Update(Context, PBYTE(Seed), StrLen(Seed)); MD5Final(Context, Hash); for i := 0 to 9 do Trip[i] := Table[Hash[i] mod 62]; Trip[10] := #0; end;