Отправляет email-рассылки с помощью сервиса Sendsay

Программирование от Судьи [www.del5.da.ru]

Подписаться Бесплатная новостная рассылка Подписчиков 23 RSS
←   Май 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 04-03-2002

Автор
Sudiya

Статистика

23 подписчиков
0 за неделю
←   Все выпуски   →

Программирование от Судьи [www.del5.da.ru] Выпуск от 1/05/2002 года


Информационный Канал Subscribe.Ru

- От Судьи -

 

- Основное месторасположение [http://del5.da.ru]

- Зеркало сайта [http://del50.by.ru]

- Mailto: [wadim274@permonline.ru]

 

Доброго времени суток, господа коллеги!

*****************************************

 

 

================================================================================

Вот как я и обещал в предыдущем выпуске высылаю вам второй алгоритм шифрования данных. Он гораздо быстрее пер-

вого и надежней его... 

 

А вот и исходник:

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

unit Unit2;

interface

uses windows,classes;
function code(FileName,outfile : string) : DWORD;
function decode(FileName,outfile : string) : DWORD;
implementation
uses unit1;



function code(FileName,outfile : string) : DWORD;
var
f,d1: file;
buf:dword;
ready:longint;
begin
// GetMem(buf,16384);
FileMode := 2;
assignfile(f,filename);
assignfile(d1,outfile);
reset(f,1) ;
rewrite(d1,1);
seek(f,0);
repeat
blockread(f,buf,1,ready);
asm
mov eax,buf
sub eax,3
not eax
mov buf,eax
end;
blockwrite(d1,buf,ready);
until ready=0;
closefile(d1);
closefile(f);

end;

/////////////
function decode(FileName,outfile : string) : DWORD;
var
f,d1: file;
buf:dword;
ready:longint;

begin

// GetMem(buf,16384);
FileMode := 2;
assignfile(f,filename);
assignfile(d1,outfile);
reset(f,1) ;
rewrite(d1,1);
seek(f,0);
repeat
blockread(f,buf,1,ready);
asm
mov eax,buf
not eax
add eax,3
mov buf,eax
end;
blockwrite(d1,buf,ready);
until ready=0;
closefile(d1);
closefile(f);


end;

end.

================================================================================

 

Новости нашего сайта:

В данный момент новостей нет...

Ссылки на дружественные сайты:

- www.sourses.ru - Исходные тексты программ, огромное кол-во!

- www.delphi4all.narod.ru - хороший сайт

- www.chertenok.km.ru - очень хороший сайт по DELPHI

- www.delphi.da.ru - много faq-ов по Delphi

На последок:

- Анекдот

Пока мужа не было дома, к жене пришел ее новый любовник - Карлсон.
Вдруг звонок в дверь. Что делать?
Тут Карлсон нашелся.
- У меня же пропеллер! И в окно.
Зашел муж.
- Кто у тебя был?
- Никого не было.
- Я спрашиваю - кто?!
- Да никого не было!
- Хорошо, а чьи это тогда штаны с пропеллером?
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное