Archives for сентября, 2009
URLEncode и URLDecode
Суббота, сентября 19, 2009
При написании программ, взаимодействующих по сети, иногда встает проблема передачи, приема и распознавания символов локального алфавита. Например, при написании клиента для некоего сайта. Мы, собственно, наталкиваемся на отсутствие в Delphi функций URLEncode и URLDecode. Поэтому приходится их писать самим. Ниже приведены упомянутые функции. Чтобы лишний раз не изобретать велосипед.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105function DigitToHex(Digit: Integer): Char;
begin
case Digit of
0..9: Result [...]
Реализация хеш–функции в 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] [...]