Текущий архив: 2003.05.12;
Скачать: CL | DM;
Вниз
архиватор Найти похожие ветки
← →
partizan (2003-04-23 13:28) [0]Решил написать архиватор, по алгоритму Хаффмана.
Архивирует отлично, а вот оьратную процедуру писать впадлу.
← →
Mike Kouzmine © (2003-04-23 13:31) [1]Ну и хорошо, оставь для потомков. Назначат премию за написание оьратной процедуры. Кто-нибудь получит выпьет за твое здоровье или чтобы земля была пухом. Тебе будет приятно.
← →
partizan (2003-04-23 13:37) [2]Перспектива радует. Если-бы это было правдой, мне уже можно-было бы отправлятся на вечный покой.
← →
blackman © (2003-04-23 13:40) [3]А зачем обратно ?
Достаточно и туда.
← →
blackman © (2003-04-23 13:42) [4]Вот Poirot
http://www.delphimaster.ru/cgi-bin/download.pl?look=1&id=1021957391&n=1
тоже сделал только туда.
Значит обратно не надо!
← →
Mike Kouzmine © (2003-04-23 13:44) [5]Совет - начинайте всегда с обратной процедуры!
← →
partizan (2003-04-23 13:53) [6]blackman, в процедуре Get01ToChar используй метод Горнера:
Sum:=0;
for I:=0 to 7 do
begin
Sum:=Sum*2+BinArr[i];
end;
Result:=Sum;
← →
NewN (2003-04-23 13:56) [7]Вот эта функция со временем распакует данные, упакованные любым способом (подразумевается, что функция Pack уже написана):
function UnPack(PackedData: TByteArray): TByteArray;
var
Unpacked: Boolean;
i, Size: Integer;
begin
Unpacked:= False;
while not Unpacked do begin
Size:= Random(MaxSize);
for i:= 0 to size - 1 do
Result[i]:= Random(256);
UnPacked:= PackedData = Pack(Result);
end;
end;
← →
Карелин Артем © (2003-04-23 13:58) [8]А я год назад придумал свой алгоритм шифрования. Обратный алгоритм пока не могу придумать.
← →
partizan (2003-04-23 14:01) [9]NewN, боюсь пока твоя функция распакует данные,от того куму они потребовались и костей не останется!
← →
partizan (2003-04-23 14:03) [10]а ты уверен, что обратный алгоритм существует?
← →
blackman © (2003-04-23 14:06) [11]>NewN
Я считаю, что спешка приведет к ошибкам в распаковке.
Надо добавить sleep
← →
partizan (2003-04-23 14:11) [12]а какой период полураспада процессора?
← →
blackman © (2003-04-23 14:13) [13]>partizan
Надо у Mike Kouzmine спросить он уже начинал
← →
Карелин Артем © (2003-04-23 14:14) [14]partizan (23.04.03 14:03)
В последнее время думаю, что его надо сильно упростить для изготовления обратного алгоритма.
← →
Mike Kouzmine © (2003-04-23 14:19) [15]Я не начинаю и не завершаю, я даю советы с большой буквы. Почувствуйте разницу.
Страницы: 1 вся ветка
Текущий архив: 2003.05.12;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.014 c
