VPF::проблема с декодировкой - Форум программистов

ROKI

Дата 19.6.2010, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 26.5.2008

Репутация: нет
Всего: нет

Всем привет! smile

Возникла небольшая проблема с декодировкой базы данных (СУБД : PARADOX). Использую алгоритм Base64, и кодирую им поле NAME, вот что получается:

кодирует отлично. А вот декодирует не очень :

В чем проблема ?

Зарание спасибо!

Frees

Дата 19.6.2010, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 2
Всего: 54

ошибка в 17 строке

--------------------

Кольцов Виктор Владимирович

ROKI

Дата 19.6.2010, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 26.5.2008

Репутация: нет
Всего: нет

Цитата(Frees @ 19.6.2010, 19:21)

ошибка в 17 строке

про какую строку идет речь ? ))

Данкинг

Дата 19.6.2010, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(ROKI @ 19.6.2010, 20:31

)

про какую строку идет речь ? ))

Про ту, в которой у тебя ошибка. Т.е. знать о том, где ошибка, можешь только ты. Но показать код не хочешь почему-то. smile

--------------------

There's nothing left but silent epitaphs.

ROKI

Дата 19.6.2010, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 26.5.2008

Репутация: нет
Всего: нет

Сам алгоритм:

Код


function EncodeBase64(Value: String): String;
const
 b64alphabet: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
  pad: PChar = '====';

  function EncodeChunk(const Chunk: String): String;
  var
    W: LongWord;
    i, n: Byte;
  begin
    n := Length(Chunk); W := 0;
    for i := 0 to n - 1 do
      W := W + Ord(Chunk[i + 1]) shl ((2 - i) * 8);
    Result := b64alphabet[(W shr 18) and $3f] +
              b64alphabet[(W shr 12) and $3f] +
              b64alphabet[(W shr 06) and $3f] +
              b64alphabet[(W shr 00) and $3f];
    if n <> 3 then
      Result := Copy(Result, 0, n + 1) + Copy(pad, 0, 3 - n);   //add padding when out len isn't 24 bits
  end;

begin
  Result := '';
  while Length(Value) > 0 do
  begin
    Result := Result + EncodeChunk(Copy(Value, 0, 3));
    Delete(Value, 1, 3);
  end;
end;


function DecodeBase64(Value: ANSIString): ANSIString;
const b64alphabet: string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/*-|\/';
  function DecodeChunk(const Chunk: ANSIString): ANSIString;
  var
    W: LongWord;
    i: Byte;
  begin
    W := 0; Result := '';
    for i := 1 to 4 do
      if Pos(Chunk[i], b64alphabet) <> 0 then
        W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
    for i := 1 to 3 do
      Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
  end;
begin
  Result := '';
  if Length(Value) mod 4 <> 0 then Exit;
  while Length(Value) > 0 do
  begin
    Result := Result + DecodeChunk(Copy(Value, 0, 4));
    Delete(Value, 1, 4);
  end;
end;

Обработчики конопок:

Код


procedure TForm1.Button3Click(Sender: TObject);  //шифрование
begin
while not DataModule2.Table1.Eof do
    begin
    DataModule2.Table1.Edit;
    DataModule2.Table1.FieldByName('NAME').AsString:= EncodeBase64(DataModule2.Table1.FieldByName('NAME').AsString);
    DataModule2.Table1.Post;
    DataModule2.Table1.Next;
    end;
end;

Код


procedure TForm1.Button4Click(Sender: TObject); //дешифрирования
begin
DataModule2.Table1.First;
 while not DataModule2.Table1.Eof do
    begin
    DataModule2.Table1.Edit;
    DataModule2.Table1.FieldByName('NAME').AsString:= DecodeBase64(DataModule2.Table1.FieldByName('NAME').AsString);
    DataModule2.Table1.Post;
    DataModule2.Table1.Next;
    end;
end;

Данкинг

Дата 19.6.2010, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Т.е. процедуры кодировки стандартные, как понял. Тогда могу предположить, что проблема в кириллице (если кодируешь кириллические строки), но поскольку с "парадоксом" никогда не работал, то точно не могу быть уверен.

--------------------

There's nothing left but silent epitaphs.

Frees

Дата 19.6.2010, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 2
Всего: 54

что то не то с кодировкой например
DecodeBase64(EncodeBase64('test'));
должно вернуть test но результат другой, ты где эти функции взял

Добавлено через 9 минут и 1 секунду
попробуй эту функисю для кодировани, декодирование оставь свою

Код



function Encode(data:string) : string; overload;
const b64 : array [0..63] of char = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var ic,len : integer;
pi, po : TPAByte;
c1 : dword;
begin
len:=length(data);
if len > 0 then begin
SetLength(result, ((len + 2) div 3) * 4);
pi := pointer(data);
po := pointer(result);
for ic := 1 to len div 3 do begin
c1 := pi^[0] shl 16 + pi^[1] shl 8 + pi^[2];
po^[0] := byte(b64[(c1 shr 18) and $3f]);
po^[1] := byte(b64[(c1 shr 12) and $3f]);
po^[2] := byte(b64[(c1 shr 6) and $3f]);
po^[3] := byte(b64[(c1 ) and $3f]);
inc(dword(po), 4);
inc(dword(pi), 3);
end;
case len mod 3 of
1 : begin
c1 := pi^[0] shl 16;
po^[0] := byte(b64[(c1 shr 18) and $3f]);
po^[1] := byte(b64[(c1 shr 12) and $3f]);
po^[2] := byte('=');
po^[3] := byte('=');
end;
2 : begin
c1 := pi^[0] shl 16 + pi^[1] shl 8;
po^[0] := byte(b64[(c1 shr 18) and $3f]);
po^[1] := byte(b64[(c1 shr 12) and $3f]);
po^[2] := byte(b64[(c1 shr 6) and $3f]);
po^[3] := byte('=');
end;
end;
end else
result := '';
end;

--------------------

Кольцов Виктор Владимирович

ROKI

Дата 19.6.2010, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 26.5.2008

Репутация: нет
Всего: нет

Спасибо за помощь... Все работает !!! smile

Тема закрита.

Это сообщение отредактировал(а) ROKI - 19.6.2010, 21:30

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| СУБД, общие вопросы \| Следующая тема »