Pascal — Говнокод.ру

Pascal / Говнокод #29038

0

1

Админ - уебок, хранивший пароли открытым текстом

Чекайте свои мыла в утечках, ебланы

aleksusklim, 26 Октября 2024

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

Pascal / Говнокод #29016

−2

1

Удалите мой аккаунт

Удалите мой аккаунт

aleksusklim, 25 Октября 2024

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

Pascal / Говнокод #28901

0

1
2

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

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

KPblCA, 13 Января 2024

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

Pascal / Говнокод #28774

0

01
02
03
04
05
06
07
08
09
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,'&quot;','"',[rfreplaceall]);
  Result:=StringReplace(Result,'&amp;','&',[rfreplaceall]);
  Result:=StringReplace(Result,'&lt;','<',[rfreplaceall]);
  Result:=StringReplace(Result,'&gt;','>',[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 Апреля 2023

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

Pascal / Говнокод #28644

+1

1

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

https://pastebin.com/ANHTMmeM

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

Support, 20 Марта 2023

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

Pascal / Говнокод #28215

0

01
02
03
04
05
06
07
08
09
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 Июня 2022

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

Pascal / Говнокод #28100

+1

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, 31 Марта 2022

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

Pascal / Говнокод #28097

0

01
02
03
04
05
06
07
08
09
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 Марта 2022

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

Pascal / Говнокод #27987

0

01
02
03
04
05
06
07
08
09
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 Февраля 2022

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

Pascal / Говнокод #27977

0

01
02
03
04
05
06
07
08
09
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

with ZeoDataModule.TmpZQuery do
  begin
    ZeoDataModule.TmpZQuery.Close;
    ZeoDataModule.TmpZQuery.SQL.Clear;
    //ZeoDataModule.TmpZQuery.SQL.Add(ZeoDataModule.zqryOstatki.SQL.Text);
    ZeoDataModule.TmpZQuery.SQL.Add(TZQuery(dbgrdh1.DataSource.DataSet).SQL.Text);
//    ZeoDataModule.Add ('select  *,''0.00'' as str_cen from material.ostatki_by_skladid(:skladid,:dt) ');
    ZeoDataModule.TmpZQuery.SQL.Add (' and  tovarid in(');
    for i:=0 to OstatkiTovarList.Count-1 do
    begin
      ZeoDataModule.TmpZQuery.SQL.Add(ostatkiTovarList[i]);
      if i< OstatkiTovarList.Count-1 then
        ZeoDataModule.TmpZQuery.SQL.Add(',');
    end;
    ZeoDataModule.TmpZQuery.SQL.Add(')');
    ZeoDataModule.TmpZQuery.SQL.Add('order by nt');
    //-------
    zQ_sv:= DataModulePrint.frxDBDatasetOstatki.DataSet as TZQuery;   // zqryOstatki
    //--------
    ZeoDataModule.zqrySumBySS.Close;
//    ZeoDataModule.zqrySumBySS.SQL.Add('select :dt,:skladid from material.globalvalues where 1=2'); //  пустой набор
    ZeoDataModule.zqrySumBySS.ParamByName('skladid').Value:=10000;  // несуществующий склад (пустой набор)
    ZeoDataModule.zqrySumBySS.Open;

    ZeoDataModule.TmpZQuery.ParamByName('skladid').Value:=zQ_sv.ParamByName('skladid').Value;
    ZeoDataModule.TmpZQuery.ParamByName('dt').AsDate:=zQ_sv.ParamByName('dt').AsDate;
    ZeoDataModule.TmpZQuery.Open;

    DataModulePrint.frxDBDatasetOstatki.DataSet := ZeoDataModule.TmpZQuery;
    DataModulePrint.frxDBDatasetSumBySS.DataSet := ZeoDataModule.zqrySumBySS;
    if TypeVed=USUAL_OST then
    begin
      if Material.TypeSkladId = 4 then
        DataModulePrint.ShowReport('ostatki.fr3')
      else
        DataModulePrint.ShowReport('ostatki.fr3')
    end
    else if TypeVed = NO_MOVE_OST then
      DataModulePrint.ShowReport('ostatki_no_move.fr3');

    ZeoDataModule.TmpZQuery.Close;

    DataModulePrint.frxDBDatasetOstatki.DataSet := zQ_sv;
    ZeoDataModule.zqrySumBySS.Close;
    ZeoDataModule.zqrySumBySS.ParamByName('skladid').Value:=Material.Skladid;
//    ZeoDataModule.zqrySumBySS.SQL.Clear();
//    ZeoDataModule.zqrySumBySS.SQL.Add(sqlSum_sv); 
    ZeoDataModule.zqrySumBySS.Open;
  end;

ZeoDataModule.TmpZQuery.SQL.Add(TZQuery( dbgrdh1.DataSource.DataSet).SQL.Text); - особенно понравилось. Молчу про "with".

Baiumka, 31 Января 2022

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

Говнокод: по колено в коде.

Pascal / Говнокод #29038

Pascal / Говнокод #29016

Pascal / Говнокод #28901

Pascal / Говнокод #28774

Pascal / Говнокод #28644

Pascal / Говнокод #28215

Pascal / Говнокод #28100

Pascal / Говнокод #28097

Pascal / Говнокод #27987

Pascal / Говнокод #27977