Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ ОС и ПО _ Фанаты овернета - аУ!
Автор: SKVOZNJAK 18.03.2004 1:16
Пользуется-ли кто-то из форумчан осликом или овернетом? Было бы неплохо координировать усилия B) по скачиванию. К примеру, обмен инфой по ценным сабжам и пустышкам. И самый главный вопрос: а что это такое скачалось, и что с этим делать 
Зачем месяц качать то, что прямиком отправится в корзину.
Автор: Dark 18.03.2004 11:38
расскажи поподробнее, а то я слышу и слышу про сетку и ничего о ней не знаю
=)))
И реально ли влезть с моим диалапом...
Автор: SKVOZNJAK 19.03.2004 16:36
С осликом я долго мучался, но так и не смог ни к кому приконектится, но зато скачал с сайта проги овернет. Качалось хреново, так что если не получится - могу намылить, 1300 Кб.
http://overnet.com/
Осла же вообще не давали скачать, наверно разработчики посчитали его устаревшим. Овернет использует ослиную сетку и ярлыки. Отключаешь фаервол, инсталируешь включаешь. На сайте есть табличка с серваками - потычешь, авось больше ловить станешь. Есть сайты с обзорами игр и ярлычками для их скачивания через ослиную сеть zevel.ru и др.
Регулировки. Зайдёшь в опции, придумаешь имя, пароль, поставишь максимальное количество одновременно подключаемых серваков - чем больше, тем лучше, но больше жрёт скорости. У меня 300, и всё остальное тормозится 
Скорость укачивания - это скорость с которой ты позволяешь качать от тебя. Но ты сможешь скачивать в 3 раза быстрее, это чтоб не жадничал ;) . Если уплоад 10, то довнлоад не ограничивается. Ещё поставишь максимальную скорость твоего нета. В основном всё. Можно ещё напрямую подключаться и качать с компов друзей, но там нужно вводить дополнительные параметры. Штука это, конечно интересная и напоминает рыбалку. Одни файлы лучше клюют ночью, другие днём. Их можно качать одновременно с нескольких компов, недокачанные докачиваются потом, если конечно присоединишься к нужному компу - там очередь существует Ещё бывает, останется несколько кило, и не у кого их скачать. Так все и ждут, пока халява обломится ;)
Автор: Dark 20.03.2004 10:52
Аха, спасибо ))
Автор: SKVOZNJAK 22.03.2004 4:17
Ты, это - не пропадай ;) Пиши, чего качаешь и т. д.
Автор: AlaRic 28.03.2004 12:45
Я с апреля начну музон качать, а то сайты все платные становятся! 
Автор: Sir 29.03.2004 1:45
А не дешевле ли в магазине купить?Или инет халявный?
Я с диалапом на фиг туда не полезу.
Автор: SKVOZNJAK 29.03.2004 21:10
Не всё продаётся в магазине Музона больше в DC++ , а кряков, игрух под ПК и эмуляторы в овернете. Ну там ещё клипаны да пиктуры всякие в сборниках и россыпью ;)
Автор: AlaRic 4.04.2004 18:37
Скачал Kazaa, запустил, нашел то, чего нет даже на платных mp3-серверах, все хорошо, одно НО - скорость маленькая.
Автор: Catty 4.04.2004 21:39
Кстати насчет Kazaa, говорят что виртуальная полиция ловит пользователей казы во время скачивания ими песен и дерет потом огромный штраф за это!
В Германии уже пару человек попалось, говорят и у нас скоро такое будет... 
Автор: AlaRic 4.04.2004 21:44
Значит нужно по-быстрому все докачивать и деинсталить ее пока не поздно 
Автор: SKVOZNJAK 5.04.2004 3:22
В овернете почти всё запаковано, заархивировано. И если преследовать за содержимое архивов.......... То проще всех взять и расстрелять
Автор: AlaRic 5.04.2004 19:31
ЭтА не нада я мимо просто проходил и нет у меня никакой овернета и казы
Автор: SKVOZNJAK 6.04.2004 20:26
Что прикольно. Б.К.Б отсутствует в рейтингах продаж, её обругали критики, а очередь на скачивание её дисков доходит до десятков тысяч юзеров ;)
Автор: Altair 8.04.2004 18:39
В Германии уже пару человек попалось, говорят и у нас скоро такое будет...
ИМПЕРИАЛИСТОВ НА КОЛ!
Я сейчас пишу прогу удаляющая без следа файлы (которые надо)
Пользоватьтся будет удобно : нажимаете по файлу правой, и отправить в "DELFILE" ! И все никакая полиция не пронюхает, что в кластере, где сейчас одни нули, был когда то файл!
Автор: SKVOZNJAK 8.04.2004 22:00
У меня тоже такая есть
PROGRAM STIRATEL; {УТИЛИТА СТИРАНИЯ}
uses Dos, CRT;
VAR Q, W, E, R, Q0, W0, Y0, QQ0, WW0, T100: SHORTINT; VAR QQ, WW, EE, RR, TT, YY, UU: INTEGER;
VAR Q1, W1, E1, R1, T1, Y1, U1: REAL;
VAR Q2, W2, E2, R2, T2, Y2, U2, I2: LONGINT; VAR Q3, W3, E3 ,R3, T3, Y3, U3 :BYTE;
VAR QQQ, WWW, EEE, RRR: BOOLEAN;
VAR Q4, W4, E4: POINTER;
VAR Q5, W5, E5, R5, T5, Y5, U5, I5, O5, P5, A5,S5, D5,F5,G5: CHAR;
VAR Q8, W8, E8, R8, T8, Y8, U8: WORD;
LABEL 1, 2, 3, 4, 5, 7, 8,9,10, 11, 12, 13, 20, 100, 14,15,16,17,18,19,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40; CONST ASDQ=1;ASDW=2;ASDF='A.S';
VAR Q7, W7: FILE;
UUUUU:ARRAY[1..256] OF BYTE;
VAR ASD2, ZXC2:LONGINT;
PROCEDURE HELPUH;
BEGIN;
WRITELN('');
WRITE('ПРИВЕТ ,В НАТУРЕ . ДМИТРИЙ КОРЯГИН ПРЕДСТАВЛЯЕТ АФИГЕННО НУЖНУЮ И ПОЛЕЗНУЮ УТИЛИТУ РАСШИРЕННОГО СТИРАНИЯ '); WRITE('ФАЙЛОВ ДЛИНОЙ ДО 2 ГИГ "СТИРАТЕЛЬ 1.02". НУ, ТИПА ТОГО ,КАК-БЫ ТАК,САМУ УТИЛИТУ ЖЕЛАТЕЛЬНО ПРИСТЕГНУТЬ К НОРТОНУ ИЛ'); WRITE('И РАЗМЕСТИТЬ В КАКОМ-НИБУТЬ КАТАЛОГЕ ,УКАЗАННОМ В СТРОКЕ PATH ФАЙЛА AUTOEXET.BAT (C:\DOS , C:\WINDOWS , C:\WINDOWS\'); WRITE('COMMAND И Т. Д. ,МОЖНО ВО ВСЕХ СРАЗУ). ТОГДА, В СТАДАРТНОМ СЛУЧАЕ, ПРИНЦИП ПРИМЕНЕНИЯ СЕЙ МИКСТУРЫ ТАКОВ: '); WRITE('СНЯТЬ ЗАЩИТНЫЕ АТРИБУТЫ СО СТИРАЕМОГО ФАЙЛА , ЕСЛИ ОНИ ЕСТЬ.В ПРОТИВНОМ СЛУЧАЕ,ВАШИ ДИВНЫЕ ГЛАЗЕЛКИ ');
WRITE(' СМОГУТ НАСЛАДИТЬСЯ СОЗЕРЦАНИЕМ СООБЩЕНИЯ ОБ ОШИБКЕ.ЗНАТОКИ АСТМЫ И ВСЕ КТО ПРИВЫК СЧИТАТЬ '); WRITE('БАКСЫ В ШЕСТНАДЦАТИРИЧНОЙ ФОРМЕ СЧИСЛЕНИЯ,БЕЗ ТРУДА ПОЙМУТ ЧТО ТАМ НАПИСАНО. КАТАЛОГ СО ');
WRITE('СТИРАЕМЫМ ФАЙЛОМ ДЕЛАЕТСЯ ТЕКУЩИМ, В КОМАНДНОЙ СТРОКЕ НАБИРАЕТСЯ ИМЯ ФАЙЛА УТИЛИТЫ И, ЧЕРЕЗ ПРОБЕЛ , ИМЯ '); WRITE('СТИРАЕМОГО ФАЙЛА ,КАК ОНО ВИДИТСЯ В ДОСЕ (НАПРИМЕР: STIRATEL.EXE KARTINA.GIF , ИЛИ STIRATEL KARTINA.GIF '); WRITE(', ИЛИ С ИСПОЛЬЗОВАНИЕМ КЛЮЧА <A> : STIRATEL KARTINA.GIF A ,В ЭТОМ СЛУЧАЕ ФАЙЛ УНИЧТОЖАЕТСЯ АВТОМАТИЧЕСКИ '); WRITE('АНАЛОГИЧНО ПУНКТУ 4 ВСПЛЫВАЮЩЕГО МЕНЮ.)');
WRITE(',ЖМЁТСЯ ENTER. ДАЛЕЕ СМОТРИ ВСПЛЫВАЮЩЕ ПОДПЛЫВАЮЩЕЕ МЕНЮ. ');
WRITE('НАБИРАЕТСЯ НУЖНОЕ ЧИСЛО,НАЖИМАЕТСЯ ENTER. ПУНКТ 4 ОБОЗНАЧАЕТ, ЧТО ФАЙЛ ПЕРЕД СТИРАНИЕМ ПОЛУЧИТ ИМЯ ');
WRITE(' 00000000.000 , ВО ИЗБЕЖАНИЕ КОНФЛИКТА , НЕОБХОДИМО ЧТОБЫ ФАЙЛА С ТАКИМ ИМЕНЕМ В ДАННОМ КАТАЛОГЕ НЕ БЫЛО. '); WRITE('НЕДОКУМЕНТИРУЕМОЕ ДВУХЗНАЧНОЕ ЧИСЛО ВЫЗЫВАЕТ ДОПОЛНИТЕЛЬНЫЕ ЭФФЕКТЫ ЛУЧШЕ ВСЕГО ПРОЯВЛЯЮЩИЕСЯ ПРИ ЯРКО СИНЕМ '); WRITE('ЦВЕТЕ ДОС ШРИФТА. ПОПЫТКА ВОССТАНОВЛЕНИЯ СТЁРТОГО ФАЙЛА НЕСЁТ В СЕБЕ МНОГО ЦЕННОЙ ЛЕГКОУСВОЯЕМОЙ ИНФОРМАЦИИ ! '); WRITE(' ПРОГРАММА ЯВЛЯЕТСЯ FREEWARE ВЕРСИЕЙ , И ЕЁ АВТОР НЕ НЕСЁТ НИКАКОЙ ОТВЕТСТВЕННОСТИ ЗА РЕЗУЛЬТАТЫ ЕЁ ПРИМЕНЕНИЯ.'); WRITELN('');
END;
PROCEDURE AU256;
LABEL 1,2,3,4,5;
CONST Y000=256;
BEGIN;
ASSIGN(Q7,'00000000.000');RESET(Q7,1);
IF FILESIZE(Q7)<257 THEN GOTO 1 ELSE GOTO 2;
2: SEEK(Q7,Y000);TRUNCATE(Q7); {УСЕКАЕТ ДЛИНУ}
1: CLOSE(Q7);
END;
PROCEDURE DURILKA;
BEGIN;
I2:=1234567; ASSIGN(Q7,'00000000.000');RESET(Q7);SETFTIME(Q7,I2);CLOSE(Q7);
END;
BEGIN; {НАЧАЛО}
UUUUU[1]:=141; UUUUU[2]:=133; UUUUU[3]:=148;UUUUU[4]:=136;UUUUU[5]:=131;
UUUUU[6]:=32;UUUUU[7]:=135; UUUUU[8]:=155; UUUUU[9]:=144; UUUUU[10]:=136; UUUUU[11]:=146; UUUUU[12]:=156;UUUUU[13]:=33; IF UUUUU[12]<>156 THEN GOTO 100;
IF UUUUU[7]<>135 THEN GOTO 100; IF UUUUU[4]<>136 THEN GOTO 100; IF UUUUU[9]<>144 THEN GOTO 100;
7:ASSIGN(Q7,ParamStr(1)); RESET(Q7,1);
WRITELN(' КОД СМЕРТИ НАБРАН :::: ',ParamStr(1));
Q2:= FileSizE(Q7);
IF ParamStr(2)='A' THEN BEGIN
Q:=1;GOTO 5;
END;
IF ParamStr(2)='a' THEN BEGIN
Q:=1;GOTO 5;
END;
2:GOTO 1;
3:WRITELN('НЕ ПОПАЛ , ПОПРОБУЙ ЕЩЁ.');
1: Writeln(' РАЗМЕР ФАЙЛА В БАЙТАХ: ', FileSize (Q7),' ИСКЛЮЧЕНИЕ ИЗ РЕАЛЬНОСТИ :'); Writeln(' ВВЕДИ: 1 - ДА 2 - НЕТ 3 - ПОМОЩЬ 4 - НАГРАЖДЁН ПОСМЕРТНО'); READ (Q3); CASE (Q3) OF
1:GOTO 5;
2:GOTO 8;
3: HELPUH;
21:GOTO 12;
22: BEGIN;
TextMode(CO80);GOTO 12;
END;
25: BEGIN;
W:=1;GOTO 5;
END;
4: GOTO 11; ELSE GOTO 3;
END;
GOTO 1;
12: W:=1;TextColor(9);TextBackground(0);GOTO 5;
11: Q:=1;GOTO 5;
5: Q2:=Q2-1; U2:=256;
9: FOR E2:=W2 TO Q2 DO GOTO 10;
IF Q=1 THEN GOTO 13 ELSE GOTO 18; 18:IF W=1 THEN GOTO 13 ELSE GOTO 4; 10: SEEK(Q7,E2); BLOCKWRITE(Q7,UUUUU,U2); W2:=W2+256;
IF W=1 THEN WRITE('* ',E2,' * ') ELSE GOTO 9;
GOTO 9;
4: CLOSE (Q7); ERASE(Q7);
GOTO 14;
13: CLOSE (Q7); RENAME (Q7,'00000000.000');AU256;DURILKA; ERASE(Q7);
14: WRITELN(''); WRITELN('В НАТУРЕ , ВСЁ В АЖУРЕ!'); GOTO 100; 8: CLOSE (Q7);
100: END.
Автор: Altair 12.04.2004 15:41
Только она слишком перегружена переиенными (трудно разбираться)
Можно сформулировать основные требования к такой программе:
1. Двойное затирание файла.
Сначала пишем поверх него скажем 46 (или random(255)) А потом пишем 0 (а то я как-то не доверяю нулю.)
2. Изменение даты создания и изменения файла( в целях конспирации)
3. Изменение размера файла (тоже конспирация)
4. Переименование. (типа 0000000.000) -тоже конспирация
5. Добавление мирной инфы(типа прейскурант цен магазина сосисок) - тоже конспирация (хотя излишняя)
6. УДАЛЕНИЕ! (erase)
Автор: SKVOZNJAK 13.04.2004 1:27
Ещё возвожность работы как при непосредствынном включении так и автоматически выполняя команды пакетного файла. Типа, запустил батник и подчистил следы запуска проги. Тогда становится полезной функция изменения даты файлов на более древнюю без изменения других параметров. Также при небольшом свободном дисковом пространстве может быть полезна прога создающая большой файл - перезаписывание потенциальных кусков файлов. Полезная инфа может сохраняться и в файле виртуальной памяти - его тоже к стенке!
Автор: Altair 13.04.2004 10:19
А вот с файлом виртуальной памяти - не выйдет.
Для этого придется файл удалить.
А в windows 98 не получиться его удалить. (он не удаляется, когда ОС загруженна)
Как быть с ним?
Автор: AlaRic 13.04.2004 17:26
Выложите что ли свои творения в тестовом форуме наконец :p2:
Автор: SKVOZNJAK 14.04.2004 13:13
Как быть с ним?
В вынь 98 запросто, там же avtoexec.bat действует. Вписываешь перед виндой нортон или загружаешься в режиме поддержки коммандной строки, кажется это так называется.
Автор: Altair 14.04.2004 17:13
Да, это все понятно!
Проблемма, то в том, что программа быстрого и безопасного удаления должна работать в Windows, причем так, что бы ею удобно было пользоваться.
Вот тогда как проверить - нет ли инфы в файле подкачки?
Можно просто не использовать его, но это как-то не очень мне нравиться.
Автор: SKVOZNJAK 14.04.2004 23:24
Самое элементарное и громоздкое, так это подкинуть винде такую работку, чтобы весь, или почти весь файл перезаписался новой информацией.
Автор: Altair 18.04.2004 14:31
Хорошая идея.
Я даже знаю, что ей подкинуть!
Автор: SKVOZNJAK 21.04.2004 0:00
Клёвый архив гуляет в качалке. Антивирус Кашперского 4.5 английский на 48.7 метра, рар. Качайте, устанавливайте - отловит все вирусы, акромя одного! Того, что в нёго пропатчили неизвестные умельцы, спасибо им огромное :D
Автор: Atos 21.04.2004 9:17
SKVOZNJAK,Oleq_Z, так держать! Виртуальной полции - нет! Хакерам-слава!
Пробил час, не остановишь нас!
Свыше контролю не бывать!
Делай всё, что по душе на своём стальном коне,
Мы здесь, чтоб полночь взорвать!
{копирайт from Маргарита Пушкина}
Автор: ILMOS_ZVEREK 25.11.2004 19:52
Zdarovo pacani skochal overnet v 0.53 krjak v nee stavil ad.ramover. on banner ubivaet i pomagaet ochered piz** nu vorovat porti nadibal port 4662
4672 i kachay sebe v udavolstvie ( komu nado pishite chatlanin@jippii.fi
Автор: Флогримм 25.11.2004 22:47
хакерам да :yes:(только если они не твой комп ломают, ага) , виросуписателям - нет :no:
Автор: Altair 26.11.2004 11:13
Респект, ибо хакеры - это увлеченные компьютерами (вообще увлеченные чем либо - смотри словарь толовый).