Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

base64   Найти похожие ветки 

← →
macrohead   (2002-11-27 15:07) [0]

а не кто не знает как преобразовать в delphi закодированный текст в base64 в читабельный вид ???

---

← →
MBo   (2002-11-27 15:11) [1]

...encode / decode Base64 string?
Author: Yurii Zhukow



const
Codes64 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/";

function Encode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := "";
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Ord(s[i]);
b := b * 256 + x;
a := a + 8;
while a >= 6 do
begin
a := a - 6;
x := b div (1 shl a);
b := b mod (1 shl a);
Result := Result + Codes64[x + 1];
end;
end;
if a > 0 then
begin
x := b shl (6 - a);
Result := Result + Codes64[x + 1];
end;
end;

function Decode64(S: string): string;
var
i: Integer;
a: Integer;
x: Integer;
b: Integer;
begin
Result := "";
a := 0;
b := 0;
for i := 1 to Length(s) do
begin
x := Pos(s[i], codes64) - 1;
if x >= 0 then
begin
b := b * 64 + x;
a := a + 6;
if a >= 8 then
begin
a := a - 8;
x := b shr a;
b := b mod (1 shl a);
x := x mod 256;
Result := Result + chr(x);
end;
end
else
Exit;
end;
end;



---

← →
Dimich   (2002-11-27 15:14) [2]

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

---

← →
MBo   (2002-11-27 15:18) [3]

>Dimich
Ничего не путаешь?

---

← →
dimich   (2002-11-27 15:46) [4]

Блин а я че то в методы шифрации полез...загнался....ничего бывает.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c