Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




64-битное кодирование 2
64-битное кодирование 2

Автор: Евгений


const

Base64Table =
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

function Base64Decode(cStr: string): string;
var
ResStr: string;

DecStr: string;
RecodeLine: array[1..76] of byte;
f1, f2: word;
l: integer;
begin
l := length(cStr);
ResStr := '';
for f1 := 1 to l do
if cStr[f1] = '=' then
RecodeLine[f1] := 0
else
RecodeLine[f1] := pos(cStr[f1], Base64Table) - 1;
f1 := 1;
while f1 < length(cStr) do
begin
DecStr := chr(byte(RecodeLine[f1] shl 2) + RecodeLine[f1 + 1] shr 4) +
chr(byte(RecodeLine[f1 + 1] shl 4) + RecodeLine[f1 + 2] shr 2) +
chr(byte(RecodeLine[f1 + 2] shl 6) + RecodeLine[f1 + 3]);
ResStr := ResStr + DecStr;
inc(f1, 4);
end;
Base64Decode := ResStr;
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 10)
Просмотров: 748 | Теги: 64-битное кодирование 2 | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar