![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
![]() |
Простой расчет контрольной суммыDelphi , Синтаксис , ШифрованиеПростой расчет контрольной суммы
Оформил: DeeCo { Example of calculating a simple checksum. Beispiel, wie eine einfache Checksumme berechnet werden kann. } function CalcStrChecksum(s: string; zerobased: Boolean): Longint; var i: integer; L: integer; begin Result := 0; l := Length(s); if l > 0 then begin for i := 1 to l do if zerobased then Inc(Result, Ord(s[i]) - 65) else Inc(Result, Ord(s[i])); end; end; Статья Простой расчет контрольной суммы раздела Синтаксис Шифрование может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Шифрование ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 ![]() |