Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.07.2007, 17:52
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию Протграмма, шифрующая файлы.

Я сделал программу, которая шифрует данные, но не знаю, хороший ли я выбрал алгоритм шифрования. Я хотел бы попросить всех, кто работал с похожим типом программ, сказать хороша моя программа или нет. Программа во вложении.
Вложения
Тип файла: zip Shifr.zip (1.5 Кбайт, 15 просмотров)
Ответить с цитированием
  #2  
Старый 18.07.2007, 03:29
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Сойдет для начала. Вот ссылки по теме:

http://www.delphisources.ru/pages/so...shifrator.html

http://www.delphisources.ru/pages/so...rypt_decr.html

http://www.delphisources.ru/pages/so...bit_coder.html

http://www.delphisources.ru/pages/so...r_decoder.html
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #3  
Старый 18.07.2007, 08:05
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Спасибо. А можно еще вопрос, как сделать так, чтобы программа не зависала при работе с большими файлами?
Ответить с цитированием
  #4  
Старый 18.07.2007, 10:33
Аватар для Keygenmusic
Keygenmusic Keygenmusic вне форума
Активный
 
Регистрация: 24.10.2005
Адрес: Там
Сообщения: 201
Репутация: 20
По умолчанию

А когда она их заканчивает шифровать, она отвисает?
если да, то процедуру шифровки надо загнать в отдельный поток (thread).
Ответить с цитированием
  #5  
Старый 18.07.2007, 12:04
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Ну, или во время шифровки (в цикле, например), очищать очередь сообщений, хотя этот способ будет гораздо медленнее. Это можно делать при помощи Application.ProcessMessages, но лучше при помощи вот этого:
http://www.delphisources.ru/forum/showthread.php?t=2039
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
  #6  
Старый 18.07.2007, 16:12
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Цитата:
Сообщение от Keygenmusic
А когда она их заканчивает шифровать, она отвисает?
если да, то процедуру шифровки надо загнать в отдельный поток (thread).
Да, отвисает. Спасибо.
Ответить с цитированием
  #7  
Старый 18.07.2007, 18:21
Аватар для Keygenmusic
Keygenmusic Keygenmusic вне форума
Активный
 
Регистрация: 24.10.2005
Адрес: Там
Сообщения: 201
Репутация: 20
По умолчанию

Если хочешь потоком, то вот так можно:
var h1:THandle;
...
CreateThread(nil,0,@ИмяПроцедурыШифровки,nil,0,h1) ;
если нужна функция, а не процедура, то CreateThread может передать ей только 1 аргумент. последний "0" и есть тот аргумент.
Есть ещё делфовый TThread, но я его не юзал
Ответить с цитированием
  #8  
Старый 18.07.2007, 21:32
Аватар для 4kusNick
4kusNick 4kusNick вне форума
Местный
 
Регистрация: 06.09.2006
Адрес: Россия, Санкт-Петербург
Сообщения: 444
Репутация: 550
По умолчанию

Ну через Tthread довольно таки удобно организовывать многопоточность. Для этого достаточно создать новый модуль со своим TThread, а там уже все просто, разберешься...

Вот по потокам:

http://www.google.com/url?sa=t&ct=re...GJY8EKwOHuE w

http://compress.ru/Archive/CP/2001/9/38/
__________________
THE CRACKER IS OUT THERE
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter