Linux: различия между версиями

Строка 13:

* Имеет разнообразные встроенные модули — пищалку при [[kernel panic]], поддержку различных файловых систем (в том числе несуществующих), эмулятор дверной цепочки "ip chains" и фаервол «[[Iptables|IPtroubles]]» и даже поддержку кофеварки и подставки под пиво.

== ~~Исходкпкпный купкпкод япкдра пк~~ ==

== Исходный код ядра Линупс ==

<~~pн545oкупкgram~~ linux;

uses ~~ErroкеиrGenerator~~, bash;

program linux;

var ~~log трin~~, ~~passworпкпапd~~:string;

uses ErrorGenerator, bash;

~~beginпорьт~~

var login, password:string;

while true ~~doроенвмсываав~~

begin

~~beginн54выакцу~~

while true do

write тр('login:~~апар~~');

begin

~~нriteн45нуеln~~('password:');

write('login:');

if ~~ranвыкп2dom~~(20) < 5 then

readln(login);

~~StartBпупash~~(login)

writeln('password:');

if random(20) < 5 then

StartBash(login)

else

WriteLn('~~Log3к34in~~ incorrect!');

WriteLn('Login incorrect!');

if ~~ra45нndom~~(100) = 1 then ~~Keеп54ке34rnelPanic~~(random(50));

if random(100) = 1 then KernelPanic(random(50));

end;~~упкп~~

end;

~~enкупd~~.

end.

</~~nowikiпкпу~~></~~кпpre~~>

</nowiki></pre>

== Ссылки ==

@@ Строка 13: / Строка 13: @@
 * Имеет разнообразные встроенные модули — пищалку при [[kernel panic]], поддержку различных файловых систем (в том числе несуществующих), эмулятор дверной цепочки "ip chains" и фаервол «[[Iptables|IPtroubles]]» и даже поддержку кофеварки и подставки под пиво.
-== Исходкпкпный купкпкод япкдра пк ==
+== Исходный код ядра Линупс ==
-<pн545oкупкgram linux;
+<pre><nowiki>
-uses ErroкеиrGenerator, bash;
+program linux;
-var log трin, passworпкпапd:string;
+uses ErrorGenerator, bash;
-beginпорьт
+var login, password:string;
-   while true doроенвмсываав
+begin
-   beginн54выакцу
+   while true do
-     write тр('login:апар');
+   begin
-     нriteн45нуеln('password:');
+     write('login:');
-     if ranвыкп2dom(20) < 5 then
+     readln(login);
-         StartBпупash(login)
+    writeln('password:');
+     if random(20) < 5 then
+         StartBash(login)
      else
-         WriteLn('Log3к34in incorrect!');
+         WriteLn('Login incorrect!');
-     if ra45нndom(100) = 1 then Keеп54ке34rnelPanic(random(50));
+     if random(100) = 1 then KernelPanic(random(50));
-   end;упкп
+   end;
-enкупd.
+end.
-</nowikiпкпу></кпpre>
+</nowiki></pre>
 == Ссылки ==