Шуточная программа для взлома

@SamKol · Регистрация: 13.02.2022

Студворк — интернет-сервис помощи студентам

Что не так с кодом?

Всем привет!
Совершенно спонтанно в малом возрасте появилась тяга к программированию на паскале.
Да, я знаю что мой код похож на отдельный вид пыток, но кто сможет помочь, то помогите.
Проблема в том, что пишет 'неизвестное имя процесс', вызванное соединением 2 кодов в один.
Программа задумалась как шуточный взломщик.
Вот код:

Pascal
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses 
    crt;
    
var key:char;
begin
clrscr;
writeln('введите gmail/номер жертвы.По окончаний нажмите Enter (x2)');
repeat
key:=readkey;
if key<>#13 then write(key){выводим символы в строку}
until key=#13;{и выход}
readln;
 
    textbackground (4);
    clrscr; 
    textcolor (0); 
    gotoxy (50,7);
    writeln ('hack program by Sam V.1'); 
    gotoxy (50,8);
    sleep (1000);
    writeln ('CONNECTING.');
    gotoxy (50,9);
    sleep (500);
    writeln('CONNECTING..');
    gotoxy (50,10);
    sleep (500);
    writeln ('CONNECTING...');
    gotoxy (50,11);
    sleep (750);
    writeln ('DONE!');
    gotoxy (50,12);
    sleep (500);
    writeln ('DECKODING.');
    gotoxy (50,13);
    sleep (500);
    writeln ('DECKODING..');
    gotoxy (50,14);
    sleep (500);
    writeln ('DECKODING...');
    gotoxy (50,15);
    sleep (750);
    writeln ('DONE!');
    gotoxy (50,16);
    sleep (450);
    writeln ('hacks completed');  
    gotoxy (50,17);
 
   
   
 
    
;
begin
  var proc := new Process;
  var si := new ProcessStartInfo('cmd.exe');
  writeln ('пароль gmail для получения и считывания доступа:');
  writeln ('BNscRHB%');
  proc.StartInfo := si;
  proc.Start;
end;
end.

@SamKol · 13.02.2022, 15:32 **[ТС]**

(Перенесено из дублирующей темы)

Я наконец-то сделал эту программу (не без помощи этого форума). Эта программа из себя представляет шуточный взломщик gmail.
Вот код:

Pascal
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses 
    crt;
    
var key:char;
begin
clrscr;
writeln('введите gmail/номер телефона жертвы.По окончаний нажмите Enter (x2)');
repeat
key:=readkey;
if key<>#13 then write(key){выводим символы в строку}
until key=#13;{и выход}
readln;
 
    textbackground (4);
    clrscr; 
    textcolor (0); 
    gotoxy (50,7);
    writeln ('hack program by Sam V.1'); 
    gotoxy (50,8);
    sleep (1000);
    writeln ('CONNECTING.');
    gotoxy (50,9);
    sleep (500);
    writeln('CONNECTING..');
    gotoxy (50,10);
    sleep (500);
    writeln ('CONNECTING...');
    gotoxy (50,11);
    sleep (750);
    writeln ('DONE!');
    gotoxy (50,12);
    sleep (500);
    writeln ('DECKODING.');
    gotoxy (50,13);
    sleep (500);
    writeln ('DECKODING..');
    gotoxy (50,14);
    sleep (500);
    writeln ('DECKODING...');
    gotoxy (50,15);
    sleep (750);
    writeln ('DONE!');
    gotoxy (50,16);
    sleep (450);
    writeln ('hacks completed');  
    gotoxy (50,17);
    begin
  try
    exec ('notepad','a txt');
    except
      writeln ('PABCWork.net');
end;
 
end;
end.

Добавлено через 1 минуту

Сообщение от SamKol

Pascal
49
    exec ('notepad','a txt');

Для запуска этой строчки нужно сделать текстовый файл под названием 'a.txt', и в него записать, что душе угодно.

@Sun Serega · 13.02.2022, 15:45

А зачем вы отдельную тему создаёте, чтоб это сказать? Как люди из той темы поймут что решение уже есть?

@SamKol · 13.02.2022, 15:47 **[ТС]**

Не подумал, извините.

@JuriiMW · 13.02.2022, 17:01

А самое главное: при чём здесь тег, который вы поставили?

Сообщение от SamKol

GraphABC

Где хоть намёк на графику?

„DECKODING“ — это орфографическая ошибка
А вот так не говорят „hacks completed“
Да и так тоже „CONNECTING“…

Сообщение от SamKol

Для запуска этой строчки нужно сделать текстовый файл под названием 'a.txt', и в него записать, что душе угодно.

Ну, так зачем вам программа? Сделайте с её помощью!

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	13.02.2022, 15:45
	А зачем вы отдельную тему создаёте, чтоб это сказать? Как люди из той темы поймут что решение уже есть? 0

@SamKol 0 / 0 / 0 Регистрация: 13.02.2022 Сообщений: 7
	13.02.2022, 15:47 [ТС]
	Не подумал, извините. 0