Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2010, 21:58   #1
beemoto
Форумчанин
 
Аватар для beemoto
 
Регистрация: 11.04.2009
Сообщений: 277
Счастье base64

Здравствуйте!
Помогите пожалуйста расшифровать картинку из base64, есть код который шифрует ее:
Код:
Procedure CodeFileToBase64(FileName: string;id: integer);
const
  Base64 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var
  ms: TMemoryStream;
  i, Num, len,j,j1,fragment : integer;
  bt: array[0..2] of byte;
  SendStr:String;
  SendStr1:String[250];
begin
  ms := TMemoryStream.Create;
  try
  ms.LoadFromFile(FileName);
  ms.Position := 0;
  SendStr := ''; len := 0;
  while ms.Position < ms.Size do begin
    ZeroMemory(@bt,3);
    Num := ms.Read(bt,3);
    SendStr := SendStr + Base64[(bt[0] and $FC) shr 2 + 1] +
                      Base64[((bt[0] and $3) shl 4) or ((bt[1] and $F0) shr 4) + 1] +
                      Base64[((bt[1] and $F) shl 2) or ((bt[2] and $C0) shr 6) + 1] +
                      Base64[bt[2] and $3F + 1];
    for i := 0 to 2-Num do
    SendStr[length(SendStr)-i] := '=';
    len := (len + 4) mod 76;
  end;
  SendStr1:='';
  fragment:=1;
  j:=1;
beemoto вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать/исправить функцию на Delphi, Base64 encode gvm Фриланс 2 13.04.2010 18:19
base64 Dimarik Win Api 0 10.04.2010 18:59
кодировать в base64 furstenberg Общие вопросы Delphi 13 29.08.2008 17:02
base64 BlackOmen Общие вопросы Delphi 2 02.05.2008 16:30