Школоло – Говнокод

Школоло / Говнокод #28901

0

1
2

for I=0 to MAXINT do
GlobalAddAtom(I);

..После чего наблюдаем за поведением системы.

KPblCA, 13.01.2024 (Updated 13.01.2024)

Комментарии (0)

Школоло / Говнокод #28774

0

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

function ReplaceHTMLSpec(First, Last, Text, RepTo, RepEd:string):string;
var
  P:Integer;
  Temp:string;
begin
  Temp:='';
  while True do
  begin
    P:=AnsiPos(First, Text); // нашли первое вхождение тега...
    if P =0 then Break;
    begin
      Delete(Text, P, Length(First)); // обработали тег...
      Insert(RepTo, Text, P);
      P:=PosEx(Last,Text,P); // ищем вхождение закрывающего тега...
      if P > 0 then
      begin
        Delete(Text, P, Length(Last)); // обработали тег.
        Insert(RepEd, Text, P);
      end;
    end;
  end;
  Result:=text;
end;

function DecorateText(S:string):string;
var
  Temp:string;
begin
  Result:=s;

 {замена некоторых распространенных тегов}
  Result:=StringReplace(Result,'<br />','',[rfreplaceall]); // движок не режет переводы строк, нет необходимости заменять <br> на #13#10.
  Result:=StringReplace(Result,'"','"',[rfreplaceall]);
  Result:=StringReplace(Result,'&','&',[rfreplaceall]);
  Result:=StringReplace(Result,'<','<',[rfreplaceall]);
  Result:=StringReplace(Result,'>','>',[rfreplaceall]);
  Result:=StringReplace(Result,'<i>','[i]',[rfreplaceall]);
  Result:=StringReplace(Result,'</i>','[/i]',[rfreplaceall]);
  Result:=StringReplace(Result,'<b>','[b]',[rfreplaceall]);
  Result:=StringReplace(Result,'</b>','[/b]',[rfreplaceall]);

  Temp:='';
  Result:=ReplaceHTMLSpec('<span style="color:white;">','</span>',Result,'[color=white]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:red;">','</span>',Result,'[color=red]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:blue;">','</span>', Result, '[color=blue]','[/color]');
  Result:=ReplaceHTMLSpec('<span style="color:green;">','</span>',Result,'[color=green]','[/color]');
  Result:=ReplaceHTMLSpec('<pre><code class="">','</code></pre>',Result,'[code]','[/code]');
  Result:=ReplaceHTMLSpec('<span style="font-size:10px;">','</span>',Result,'[size=10]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="font-size:15px;">','</span>',Result,'[size=15]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="font-size:20px;">','</span>',Result,'[size=20]','[/size]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:underline;">','</span>',Result,'[u]','[/u]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:line-through;">','</span>',Result,'[s]','[/s]');
  Result:=ReplaceHTMLSpec('<span style="text-decoration:blink;">','</span>',Result,'[blink]','[/blink]');
end;

Процедура для замены HTML-тегов на bb-codes, для их корректной обработки движком сайта,
при копировании/перепостинге комментария флудером.

DOKTOP_CMErMA, 27.04.2023 (Updated 27.04.2023)

Комментарии (1, +1)

Школоло / Говнокод #28644

0

1

В одном из минувших топиков приподымали тему POP SMDб я тоже решил напейсать генератор паролей к этой игре.

https://pastebin.com/ANHTMmeM

на основе исходников roman-pro

Support, 20.03.2023 (Updated 20.03.2023)

Комментарии (6, +6)

Школоло / Говнокод #28496

0

1

Хрюю!

Хрюк-хрюк-хрюк-хрюк

CBuHOKYP, 12.12.2022 (Updated 12.12.2022)

Комментарии (2, +2)

Школоло / Говнокод #28215

0

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

// реализация интерфейса IArguments2 для самодельного скриптового движка, aka vbs to exe

unit Arguments;

interface

uses
  Windows, ComObj, ActiveX, Stub_TLB, SysUtils,WSHNamedArguments,WSHUnNamedArguments, CmdUtils;

type
  TIarguments=class(TAutoObject, IArguments2, IEnumVariant)
      FAArgs:array of WideString;
      FWSHNamedArguments:TIWSHNamedArguments;
      FWSHUnNamedArguments:TIWSHUnNamedArguments;
      function Item(Index: Integer): WideString; safecall;
    function Count: Integer; safecall;
    function Get_length: Integer; safecall;
    function _NewEnum: IUnknown; safecall;
    property length: Integer read Get_length;
        function Get_Named: IWSHNamedArguments; safecall;
    function Get_Unnamed: IWSHUnnamedArguments; safecall;
    procedure ShowUsage; safecall;
    property Named: IWSHNamedArguments read Get_Named;
    property Unnamed: IWSHUnnamedArguments read Get_Unnamed;
        function Next(celt: LongWord; var rgvar : OleVariant;
      out pceltFetched: LongWord): HResult; stdcall;
    function Skip(celt: LongWord): HResult; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out Enum: IEnumVariant): HResult; stdcall;
    public
    constructor Create;
    end;

implementation

uses ComServ;

var
    FIndex:Integer=0;

{ TIarguments }

function TIarguments._NewEnum: IUnknown;
begin
  Result:=self;
end;

function TIarguments.Count: Integer;
begin
  Result:=System.Length(FAArgs);
end;

function TIarguments.Get_length: Integer;
begin
   Result:=Count;
end;

function TIarguments.Item(Index: Integer): WideString;
begin
  if (Index >= System.Length(FAArgs)) then
  raise EOleSysError.Create('Range check error', HRESULT($800A0009),0)
  else
  Result:=FAArgs[Index]
end;

function TIarguments.Get_Named: IWSHNamedArguments;
begin
  Result:=FWSHNamedArguments;
end;

function TIarguments.Get_Unnamed: IWSHUnnamedArguments;
begin
  Result:=FWSHUnNamedArguments;
end;

procedure TIarguments.ShowUsage;
begin
  OleError(E_NOTIMPL);
end;

constructor TIarguments.Create;
var
  I,J, PCnt:Integer;
  S, CmdLine:string;
begin
  inherited Create;
  FIndex:=0;
  FWSHNamedArguments:=TIWSHNamedArguments.Create;
  FWSHUnNamedArguments:=TIWSHUnNamedArguments.Create;
  PCnt:=ParamCount;
  SetLength(FAArgs, PCnt);
  for I:=1 to PCnt do
  begin
    J:=I-1;
    FAArgs[J]:=ParamStr(I);
  end;

  //Parsing named args.

  CmdLine:='';
  S:=GetCommandLine;
  PCnt:=iParamCount(PChar(S));
  if PCnt > 1 then
  begin
    for I:=1 to PCnt-1 do
    begin
      CmdLine:=CmdLine+iParamStr(PChar(S), I);
      if I < PCnt-1 then
      CmdLine:=CmdLine+' ';
    end;
  end;

Support, 09.06.2022 (Updated 09.06.2022)

Комментарии (6, +6)

Школоло / Говнокод #28155

0

1

Знакомьтесь с клавиатурой Gboard! Здесь будет сохраняться текст, который вы копируете.  Нажмите на фрагмент, чтобы вставить его в текстовое поле.Чтобы закреплять, добавлять или удалять фрагменты, используйте значок редактирования.Чтобы закрепить фрагмент, нажмите на него и удерживайте. Незакрепленные объекты будут удалены через час.

Как же я сейчас сладко покакал. Был дикий запор, срал 30 мин. Говно страмбовалось и стало очень плотным. Сначала шли гигантские такие ядра размером с кулак. Я думал, что будет разрыв сраки. Шли очень медленно и знаете, когда оно уже пролезло в анус внаибольшем диаметре становилось пиздецки больно. Но эта боль в тоже время была приятной, очень возбуждала. Хотелось поиграть с этим ядром и погонять его назад-вперед. Это просто дико возбуждает, когда твой сфинктер растягивают изнутри. Сейчас пишу это и возбуждаюсь, пойду дрочить. Таких ядер вышло штук пять, а потом самое интересное началось. Пошла длинная твердая колбаса. Знаете, такие обычно за раз не высираются. Так и у меня было дошла до половины и не идет, сраку пиздецки рвет, хуй стоит. Хоть руками выдергивай. А потом она начала всасывться обратно, в этот момент я чуть не кончил. Но пришлось собраться с силами и досрать ее. А потом, когда муки прошли и говно вышло из меня наступило дикое облегчение. Мой сфинктер растянулся и не закрывался. Я чувствовал, что внутри меня еще осталось говно, но оно уже было мягкое и не запорное. Нужно было досрать, но тужиться я уже не мог, сфинктер не закрывался. Я начал как бы пританцовывать тазом сидя на унитазе, мотать им в стороны. И небольшая лепешка упала прямо из кишки. В этот момент нужно двигаться не сильно, чтобы не испачкать булки падающей какашкой. Я был наконец-то высравшимся, наступило облегчение, хуй опал. Посидел, перевел дух. И помыл жопу из гигиенического душа. Струйку сделал слабую, чтобы не раздражать итак уставший чувствительный сфинктер. Сейчас сижу пишу это, а срака слегка горит, чувствую, что она горячая и хуй испытывает возбуждение, хочется дрочить.

Pelmen, 07.05.2022 (Updated 07.05.2022)

Комментарии (4, +4)

Школоло / Говнокод #28154

0

1
2
3
4
5

Джоске:ахх~,мгх~,глубже
Джотаро:*сует очень глубоко*
Джоске:Ах~...нет!он слишком большой~мгх...
Джотаро:хм...не лопнешь~...
Джоске:НЕТ!амгх~...

Zxc 1000-7 код

Pelmen, 07.05.2022 (Updated 07.05.2022)

Комментарии (0)

Школоло / Говнокод #28100

0

1
2
3
4
5
6
7
8

function rand:LongInt;
{$IFOPT J-} {$J+} {$DEFINE NoJ} {$ENDIF}
const next:LongInt=1;
{$IFDEF NoJ} {$J-} {$UNDEF NoJ} {$ENDIF}
begin
next:=next*1103515245+12345;
Result:=(next div 65536) mod 32768;
end;

Краткая инструкция как сделать static unsigned long int на Delphi.

KOTOM, 30.03.2022 (Updated 30.03.2022)

Комментарии (8, +8)

Школоло / Говнокод #28097

0

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

procedure TF_dvij.rg_sortClick(Sender: TObject);
var k :Integer;
    s,str1,str2 :string;
    fl :boolean;
begin
if G.Columns[9].Visible then
begin
  fl := Q_dvij.Active ;
  with Q_dvij do
  begin
    if fl then k := RecNo;
    if rg_sort.ItemIndex=0 then s:='order by obd,gr,exped,grot'
    else
    if rg_sort.ItemIndex=1 then s:='order by exped,gr,obd,grot'
    else
    if rg_sort.ItemIndex=2 then s:='order by gr,vp,exped,obd,grot'
    else
    if rg_sort.ItemIndex=3 then s:='order by id_korr,exped,obd,gr,grot'
    else
    if rg_sort.ItemIndex=4 then s:='order by grot,gr,exped,obd'
    else
      s:='order by strn,obd,gr,exped,grot';
      
    if rg_sort.ItemIndex=3 then
      begin
        str1 := 'select vp, id_korr,' ;           //100
        str2 := 'group by 1,2,3,4,5,6,7,8'          //192
      end
    else
      begin
        str1 := 'select vp, max(id_korr) as id_korr,' ;
        str2 := 'group by 1,3,4,5,6,7,8'
      end  ;

    Active:=false;
    SQL.Delete(100);
    SQL.Insert(100, str1 );
    SQL.Delete(192);
    SQL.Insert(192, str2 );
    SQL.Delete(262);
    SQL.Insert(262, s);
    Active:= fl;
    if fl then RecNo := k;
    G.Refresh;
  end;
end;

сортировОЧКА

Baiumka, 29.03.2022 (Updated 29.03.2022)

Комментарии (1, +1)

Школоло / Говнокод #27987

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Dim a As Double
	'обнуление видимой величины
Private Sub Command1_Click()
    		Dim b As Double
    		Dim c As Double
  
    		b = Val(Replace(Text2.Text, ",", "."))
    		c = a - b
   		 Text3.Text = c
End Sub

Private Sub Form_Load()
		'ввод числа 3FBF9ADD3746F67D 
     		a = 0.123456789012346 + 1E-16
    		Text1.Text = a
End Sub

Источник - https://www.softelectro.ru/ieee754.html

j123123, 03.02.2022 (Updated 03.02.2022)

Комментарии (92, +92)