Реализация хеш–функции в Delphi
Четверг, сентября 17, 2009
Хеш–функция md5 получила большое распространение в web–программировании. На языке PHP она реализуется встроенной функцией md5, а как же использовать md5 в Delphi? Давайте посмотрим как получить хеш с помощью Delphi, самостоятельно напишем функцию, подобную той, что реализована в PHP.
И так, приступим. Создаём новый Unit:
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154unit Umd5;
interface
uses Windows, SysUtils;
type
THash = DWord;
function md5 (buf: string): string;
implementation
var HEX: array[Word] [...]