Закрыть Привет! Если вы читаете это - Вы еще не зарегистрированы. Это займет не больше минуты. Нажмите здесь, чтобы пройти регистрацию в несколько простых шагов, чтобы пользоваться всеми возможностями нашего форума. Обратите внимание, запрещены непристойные, матерные, бессмысленные (цифры, случайный набор букв) ники. Удачи!

Тема: Симулятор Хакера

Показано с 1 по 7 из 7

  1. #1
    Пользователь

    Аватар для Alex Klare

    Статус: Оффлайн
    Регистрация:28.05.2016
    Сообщений:41
    Репутация:1 [+/-] 

    Симулятор Хакера

    Добрый вечер уважаемые пользователи Pawno-Info.
    Сделал игру Симулятор Хакера, но она простенькая.
    Не судите строго, все-таки моя первая работа :)


    PHP код:
    program hacker;
    uses crt;
    var 
    connect,ddos,zarazit,infected3:string;
    join1:='connect vk.com';
    join2:='DDOS vk.com';
    infect:='infect';
    infected:integer;
    infected2:='infected';

    begin
    randomize
    ;
    ClrScr;
    textcolor(green);
    writeln('Добро пожаловать в игру Симулятор Хакера!');
    delay(3000);
    writeln('Вы обычный хакер...');
    delay(3000);
    writeln('Денёк сегодня скучный. Вам захотелось заразить какой-нибудь сайт');
    delay(3000);
    writeln('Вы выбрали сайт vk.com');
    delay(3000);
    writeln('Действуйте быстро, пока Вас не вычислили!');
    delay(3000);
    writeln('Удачи!');
    delay(7000);
    ClrScr;
    writeln('Введите connect vk.com чтобы подключиться к сайту!');
    readln(connect);
      if 
    connect=join1 then begin write('Подключение к сайту'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Подключение установлено!'); end
      
    else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
    writeln('Теперь сделайте DDOS-атаку!');  
    delay(3000);
    writeln('Для этого введите DDOS vk.com');
    readln(ddos); 
      if 
    ddos=join2 then begin writeln('DDOS-атака началась!'); delay(3000); writeln('010101010100110101101000001010101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001011011000101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001010101010100100010101010101001011010010101010101001000101010101010010110100101010101010010001010101010100101101001011011000101011010101001010101010101010101010101010101001100101010101010100101010010101001010101010010101001001010010101010101010101010101010011001101001'); delay(5000); clrscrdelay(3000); writeln('DDOS-атака прошла успешно!'end
      
    else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
    delay(5000);
    textcolor(green);
    writeln('Отлично! Теперь заразите сайт!');
    writeln('Чтобы заразить сайт введите infect');
    readln(zarazit);
      if 
    zarazit=infect then begin write('Начало заражения'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Отлично! Сайт заражён!'); end
      
    else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
    textcolor(green);
    writeln('Чтобы захватить сайт, должны быть заражены более 100 человек!');
    writeln('Введите infected чтобы посмотреть количество заражённых');
    readln(infected3);
    infected:=random(100,500);
      if 
    infected3=infected2 then begin write('Загрузка данных'); delay(1000); write('.'); delay(1000); write('.'); delay(1000); writeln('.'); delay(5000); writeln('Данные получены! Количество заражённых: ',infected); delay(5000); clrscrend
      
    else begin writeln('Команда введена неверно!'); delay(5000); textcolor(red); writeln('Вас вычислили!'); exit; end;
    delay(5000);
    writeln('Отлично! Вы успешно заразили сайт vk.com');
    delay(3000);
    writeln('Вы настоящий хакер!');
    delay(5000);
    clrscr;
    writeln('Спасибо за игру :)');
    end
  2. 1 пользователь сказал cпасибо Alex Klare за это полезное сообщение:

    bullplex (14.11.2018)

  3. #2
    Заблокирован

    Аватар для S4I80T

    Статус: Оффлайн
    Регистрация:28.08.2016
    Адрес:Russian Federation
    Сообщений:217
    Репутация:42 [+/-] 
    Ахах, чего-чего а такого я не ожидал, тем более на ПАСКАЛЕ xD
  4. #3
    Зарегистрированый

    Аватар для Andrew Fares

    Статус: Оффлайн
    Регистрация:07.05.2017
    Сообщений:1
    Репутация:0 [+/-] 
    Хоть что-то годное на паскале
  5. #4
    Заблокирован

    Аватар для SkyFrost

    Статус: Оффлайн
    Регистрация:13.09.2014
    Сообщений:317
    Репутация:64 [+/-] 
    Я что-то не понял, это игра такая ?
  6. 1 пользователь сказал cпасибо SkyFrost за это полезное сообщение:

    jsay (18.05.2017)

  7. #5
    Пользователь

    Аватар для munchen

    Статус: Оффлайн
    Регистрация:12.06.2017
    Сообщений:38
    Репутация:-6 [+/-] 
    Ну впринципе как по мне,душевненько хоть и просто )
  8. #6
    Зарегистрированый

    Аватар для mentazyk

    Статус: Оффлайн
    Регистрация:04.01.2018
    Адрес:Пекин
    Сообщений:34
    Репутация:-3 [+/-] 
    Ахаха, спасибо, буду удивлять информатицу :D
    PHP код:
    SendClientMessage(playerid,COLOR_WHITE"Плохой скриптер :D"
  9. #7
    Пользователь

    Аватар для -Gamer-

    Статус: Оффлайн
    Регистрация:27.12.2017
    Сообщений:110
    Репутация:-5 [+/-] 
    Боже, где табуляция кода?)

Пользователи, которые читали эту тему: 37

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
В обязанности Администрации не входит контроль легальности или нелегальности передаваемой информации (любой, включая, но не ограничиваясь, информацией передаваемой между пользователями, внутренней пересылки информации в виде различных ссылок, текстов или архивов), определение прав собственности или законности передачи, приема или использования этой информации.
Администрация не несёт никакой ответственности за пользователей и модер состав форума!
читы хаки samp-rp advanvce скачать pawn скриптинг моды скрипты гарант s0beit cs 1.6 0.3x читы World of Tanks Баги samp-rp,читы samp-rp,аккаунты самп-рп Скриптинг PAWNO SA-MP IV-MP MTA уроки помощь создание сервер моды скрипты плагины cleo читы читинг собейт s0beit sobeit моды для sa-mp скрипты для sa-mp pawno скриптинг pawno скрипты pawno моды iv-mp скриптинг iv-mp скрипты iv-mp моды мод godfather Моды SAMP как установить машины для gta 4 Моды гта 4 Моды GTA 4 скачать моды для GTA 4 скрипты и моды GTA 4 скачать скрипты SAMP моды SAMP на русском языке где можно скачать Pen1 LS скачать Pen1 Fugitive скачать The Godfather rp roleplay samp-rp скачать бесплатно создать sa-mp сервер создать мод sa-mp создать скрипт в pawno gta-iv gta-v gta-sa gta-3 gta-III gta-4 gta-5 gta-vc mta mta-dm mta-race mta-sa pawno инфо info информация ru помощь в pawno ошибки pawno сервер павно gta-iv крэк gta-iv патч gta-v демо gta-v трейлер gta-iv keygen скрипты gta sa gta 4 multiplayer gta san adnreas multiplayer sa-mp forum форум о sa-mp форум о pawno русский sa-mp русское pawno русификатор реклама раскрутка сервера пиар сервера sa-mp мониторинг gta-sa ошибки в pawno pawno errors sa-mp 0.3c SA-MP 0.3d Играть в гта по сети моды для сампа скрипты самп Моды гта 4 Моды GTA 4 скачать моды для GTA 4 скрипты и моды GTA 4 скачать скрипты SAMP моды SAMP на русском языке где можно скачать Pen1 LS скачать Pen1 Fugitive скачать The Godfather Все моды SAMP у нас взлом вк hack rat android instagram twitter хак хакер лайфхак рынок продажа ddos защита услуги администратор root linux ubuntu mac android андроид прошивка без ограничений advance arizona читы 4g безлимит