Просмотр полной версии : Random file generator 0.1 by AlexTheC0d3r
AlexTheC0d3r
23.01.2010, 22:28
Random file generator v 0.2 by AlexTheC0d3r ОБНОВЛЕНИЕ!
Язык программирования - Delphi
Скриншот:
http://s59.radikal.ru/i166/1001/1d/7ee16855cb5b.jpg
Функционал:
Создает файл с любым именем и расширением в папку с программой (Предупреждение: Если такой файл уже существует, то программа перезапишет файл)
Скорость работы стала во много раз быстрее!!!
Если первый билд создавал гигабайтный файл минут 60, то этот справится меньше минуты!!!
Использовал WinAPI функции)
Необходимо доработать:
Возможность создание файла с произвольной иконкой, кто хочет помочь -http://forum.antichat.ru/showthread.php?p=1849415#post1849415
Начинаю разбираться в чем проблемы...но пока еще все глубоко...
Скачивание:
http://slil.ru/28547178
http://www.rapidshare.ru/1350034
и зачем?
Для тех кому лень в консоли набрать
fsutil file createnew файл размер
не хватает web 2.0-дизайна и синхронизации с twitter и facebook
AlexTheC0d3r
23.01.2010, 23:37
не хватает web 2.0-дизайна и синхронизации с twitter и facebook
эмм... не уловил идеи..
RDL_Rider
23.01.2010, 23:46
да, и ещё добавь сплэш с последним багтраком, погодой и новостями в мире кино.....
тем не менее, лучше что-то, чем ничего. Все когда-то этим страдали.
Что-то как-то не воткнул смысл проги. Да и вопрос, а если ты задащь размер ехе в 1 байт?)) Каким образом это выйдет? Да и вообще расскажи алгоритм генерации ехе, толи ты его нупами забиваешь, толи мусором из апи. Если бть честным, то мне это не актуально, а вот молодёже было бы интересненько почитать
А для работы с ресурсами используй madRes.pas или PJResFile.pas
AlexTheC0d3r
24.01.2010, 07:42
Забиваю файл я WORDами, размер которых соответственно 2 байта...
begin
v:=62552;
s:=edt3.text+'.'+edt4.text;
AssignFile(writef,s);
Rewrite(writef);
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do // так вычисляем сколько раз по 2 байта записать файл
write(writef,v);
Closefile(writef);
end;
Ипануться. Науя? Это реально жесть.
Прогу можно сделать в стрко 10 отсилы.
При том что конструкция:
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
Это полный здец. Да и использовать функции встроенные для работы с файлами - это не гуд.
А вот допустим если мне нужно создать файл на 16 гигов, то сколько времени она будет создавать его? Сутки или больше? И вообще врядли создаст потому как как 100% все значения dword
Вообще такие вешь делаются черзе апишки
CreateFile + WriteFile
Причем запись желательно делать по размеру кластера. Хотя 4096 байт самый раз.
Типа выделил блок памяти в 4096 байт. Посчитал сколько блоков нужно таких.
Гонешь цикл, забиваешь буфер мусором, а потом записываешь, и так далее.
Затем остаток байт просто дописываешь но уже с укороченным размером буфера.
2 slesh ты что не видишь "best regards to Antichat" вот именно такие "хакеры" в разделе кодинга (да и в остальных) на этом форуме.
"Это печально" (c) Угонщик из ролика
cheater_man
24.01.2010, 13:37
Ипануться. Науя? Это реально жесть.
Прогу можно сделать в стрко 10 отсилы.
При том что конструкция:
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
Это полный здец. Да и использовать функции встроенные для работы с файлами - это не гуд.
А вот допустим если мне нужно создать файл на 16 гигов, то сколько времени она будет создавать его? Сутки или больше? И вообще врядли создаст потому как как 100% все значения dword
Вообще такие вешь делаются черзе апишки
CreateFile + WriteFile
Причем запись желательно делать по размеру кластера. Хотя 4096 байт самый раз.
Типа выделил блок памяти в 4096 байт. Посчитал сколько блоков нужно таких.
Гонешь цикл, забиваешь буфер мусором, а потом записываешь, и так далее.
Затем остаток байт просто дописываешь но уже с укороченным размером буфера.
Согласен :)
RDL_Rider
24.01.2010, 16:24
Да ладно вам, не гнобите человека - он название, зато, звучное для проги придумал... ;)
AlexTheC0d3r
24.01.2010, 20:01
Ипануться. Науя? Это реально жесть.
Прогу можно сделать в стрко 10 отсилы.
При том что конструкция:
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
Это полный здец. Да и использовать функции встроенные для работы с файлами - это не гуд.
А вот допустим если мне нужно создать файл на 16 гигов, то сколько времени она будет создавать его? Сутки или больше? И вообще врядли создаст потому как как 100% все значения dword
Вообще такие вешь делаются черзе апишки
CreateFile + WriteFile
Причем запись желательно делать по размеру кластера. Хотя 4096 байт самый раз.
Типа выделил блок памяти в 4096 байт. Посчитал сколько блоков нужно таких.
Гонешь цикл, забиваешь буфер мусором, а потом записываешь, и так далее.
Затем остаток байт просто дописываешь но уже с укороченным размером буфера.
у меня возможно нет столько опыта в winapi процедурах сколько у тебя...
в будущем возможно сделаю все намного лучше и быстрее...
Когда увидел строку
for i:=1 to ((StrToInt(edt2.text) div 2) + (StrToInt(edt2.text) mod 2)) do
хотел поругать, но слеш уже все написал как нельзя лучше )))
Давайте обьясним почему это плохо. Потому что за каждый проход цикла делается команда StrToInt(edt2.text) div 2. Вместо этого можно было создать переменную и сделать так:
n := StrToInt(edt2.text) div 2;
m := StrToInt(edt2.text) mod 2;
for i:=1 to n+m do
Ну а вообще слеш уже все обьяснил.
у меня возможно нет столько опыта в winapi процедурах сколько у тебя...
в будущем возможно сделаю все намного лучше и быстрее...
Лучше похорони идею
слу, займись лучше чем-нибудь полезным... напиши очередной инвайтер в группы/проги и т.п.
и ниипи мозг больше таким полезным софтом, я до сих пор пытаюсь придумать, где его заюзать можно
[yZ']слу, займись лучше чем-нибудь полезным... напиши очередной инвайтер в группы/проги и т.п.
и ниипи мозг больше таким полезным софтом, я до сих пор пытаюсь придумать, где его заюзать можно
Палю тему.
Есть партнерки, с софтом, который создает запароленые архивы.
Чтобы открыть архив, нужно отправить смс.
Дальше сам додумаешь?
ЗЫ
Это одно из применений.
Так же, порой бывает необходимо проверить софт(i.e лоадер) на стабильность работы...
RedFern.89
25.01.2010, 03:52
хм. лично для меня пользы никакой, хотя парень что то кодит)) глядишь в будущем напишет чонить для контакта)) блин мне бы свой мессенджер докодить)
AlexTheC0d3r
25.01.2010, 08:31
Нет, для себя я все-таки хочу добить эту идею, до качественной программы...
плюсы: для меня опыт, где пригодиться может - в болталке тоже писал...
я тебе предлагаю это переделать в вайпер. суть таже - по очереди открываются файлы в папке, переписываются случайными значениями, закрываются, снова открываются и снова переписываются, а потом дружно сносятся. easyrecovery уже никогда не поможет восстановить инфу стертую таким образом)
AlexTheC0d3r
25.01.2010, 23:56
Обновил программу, шапку тоже, ссылки поменял!..
Скорость работы стала во много раз быстрее!!!
Если первый билд создавал гигабайтный файл минут 60, то этот справится меньше минуты!!!
Использовал WinAPI функции)
AlexTheC0d3r
28.01.2010, 08:29
Кто нибудь пробовал?
Я за идею snow, качать лень извини, добей ее до УДАЛЯЙТЕРА)) чтобы чистить папки перед приходом гостей из К
AlexTheC0d3r
29.01.2010, 00:00
я тебе предлагаю это переделать в вайпер. суть таже - по очереди открываются файлы в папке, переписываются случайными значениями, закрываются, снова открываются и снова переписываются, а потом дружно сносятся. easyrecovery уже никогда не поможет восстановить инфу стертую таким образом)
Воплотил идею в реальность:)
http://forum.antichat.ru/showthread.php?p=1860060#post1860060
ATC file wiper by AlexTheC0d3r
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot