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

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

0

1

https://pastebin.com/ABfdEgS5

Выкладываю не глядя мой код примерно 12-го года.

vistefan, 10 Февраля 2020

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

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

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
i:integer;
begin
  a := Edit1.Text;
  b := Edit2.Text;
  for i := 0 to 9 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '000' + IntToStr(i) + ';' + '000' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '000' + IntToStr(i) + ' ' + '000' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '000' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 10 to 99 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '00' + IntToStr(i) + ';' + '00' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '00' + IntToStr(i) + ' ' + '00' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '00' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 100 to 999 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + '0' + IntToStr(i) + ';' + '0' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + '0' + IntToStr(i) + ' ' + '0' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + '0' + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;
  for i := 1000 to 9999 do
    begin
        ListBox1.Items.Add('BEGIN:VCARD');
        ListBox1.Items.Add('VERSION:2.1');
        ListBox1.Items.Add('N:' + IntToStr(i) + ';' + IntToStr(i) + ';;;');
        ListBox1.Items.Add('FN:' + IntToStr(i) + ' ' + IntToStr(i));
        ListBox1.Items.Add('TEL;CELL:' + a + IntToStr(i) + b);
        ListBox1.Items.Add('END:VCARD');
    end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.Items.SaveToFile('C:\Users\Admin\Desktop\import_tel.vcf');
end;

end.

Программа для генерации номеров телефона которую написал друг)

Reds, 09 Января 2020

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

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

−3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

1)
const
  OUT_OF_BOUNDS:TPoint=(X:-1; Y:-1);
var
  INT_OUT_OF_BOUNDS:Integer absolute OUT_OF_BOUNDS;

TargetForm.Perform(WM_LBUTTONUP,0,INT_OUT_OF_BOUNDS);

2)
const
  ZERO_ZERO:TPoint=(X:0; Y:0);
var
  INT_ZERO_ZERO:Integer absolute ZERO_ZERO;

TargetForm.Perform(WM_LBUTTONUP,0,INT_ZERO_ZERO);

3)
TargetForm.Perform(WM_LBUTTONUP,0,0);

Болею. Стояла задача воспроизвести системное меню. Но оказалось, что при клике на элемент фейкового системного меню, форме не посылается WM_LBUTTONUP и кнопка-иконка не перекрашивается в ненажатый вид. Решил перформить WM_LBUTTONUP прямо при клике, но туда нужно передавать координаты мышки куда был совершён клик в High(lParam) и Low(lParam). Сначала хотел передавать -1;-1 но подумал что передавать туда $FFFFFFFF как-то некрасиво, а прямое приведение типов а-ля Integer(Point(-1,-1)) оно у меня хавать не захотело, и поэтому красоты ради наговнокодил первый вариант кода. Потом подумал, а что если там только положительные значения, будет же 65535;65535 непорядок, лучше буду передавать нули. Впихнуть туда просто 0 сразу в голову не пришло (болею же, башка квадратная) и наговнокодил второй вариант.

Потом, конечно же, написал всё по нормальному.

KOTOM, 07 Января 2020

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

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

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

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  var
    http:tidhttp;
    ss:tstringstream;
  begin
  try
    http:=tidhttp.Create(nil);
    http.CookieManager:=tIdcookiemanager.Create(nil);
    http.HandleRedirects:=true;
    http.AllowCookies:=True;
    http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:56.0) Gecko/20100101 Firefox/56.0';
    http.IOHandler:=tidssliohandlersocketopenssl.Create(nil);
    http.Compressor:=tidcompressorzlib.Create(nil);
    http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    http.Request.AcceptEncoding:='gzip, deflate';
    SS:=tstringstream.Create;
    HTTP.Get(ARequestInfo.URI, SS);
    aresponseinfo.CharSet:=http.Response.CharSet;
    aresponseinfo.ContentType:=http.Response.ContentType+'; '+'charset='+http.Response.CharSet+';';
    aresponseinfo.ContentStream:=SS;
    AResponseInfo.WriteContent;
  except

  end;


end;

Мой разложившийся мозг сопротивляется. Сковзь пелену галлюцинаций, где где меня имеют сразу несколько волосатых таджиков, отчетливо пробивается реклама. Ее много. Очень много. Реклама и навязчивые видео с предложениями "срубить бабла" даже страшнее галлюцинаций. Я написал простой фильтр, заключающийся в локальном сервере, к которому я подключаюсь из браузера. Сервер является точкой доступа. Неугодные запросы я буду отпиздовывать на корню.
Собственно, этот код я запостил как фикс досадного гълюка, заключающегося в том, что браузер посылает нахой поле charset. Это херит даже код html.
Кодировку следует указывать в поле "КонтентТипе"

пожалуй, всё. пока.

AnalBoy, 30 Декабря 2019

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

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

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    RequestBody,SResponseBody: TStringStream;

    ResponseBody: string;
begin


  try
     RequestBody := TStringStream.Create('{"login":"user","password":"pass999"}') ;
    httpconn.HandleRedirects:=TRUE;
    IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
    //httpconn.Host:='api.owencloud.ru';
    httpconn.Request.Accept:='application/xml';
    httpconn.Request.ContentLength:=68;
    httpconn.Request.ContentType:='application/x-www-form-urlencoded';

    ResponseBody:=httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody);
    SResponseBody:=TStringStream.Create(httpconn.Post('https://api.owencloud.ru/v1/auth/open', RequestBody));
    memo1.Text:=utf8toansi(ResponseBody);
    xmldocument1.LoadFromStream(SResponseBody);
 finally
    RequestBody.Free;
    SResponseBody.Free;
 end;
end;

Передача в мемо волшебна, а в xml так вообще виртуозна

untitled_001, 30 Ноября 2019

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

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

+1

1

https://pastebin.com/8c6KxabR

Бон аппетит, блядь.

cmepmop, 01 Октября 2019

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

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

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

inside:=false;
tag:=uppercase(tagpure);
spacep:=pos(' ',tag);
if spacep=0 then tagname:=tag else tagname:=copy(tag,1,spacep-1);

if (not inscript) and (tagname='A') then
begin
ParseTag(tagpure);
//если флажок Ссылки или флажок Якоря включен
if checkBox9.Checked or checkBox10.Checked then
begin
linktext:=Lg.GR(24);
linktag:='HREF';
link2text:=Lg.GR(25);
link2tag:='NAME';
needlink:=true;
needdbr:=true;
end;
end;

Вернулся в 2007 1997.
s: h/465709

gost, 01 Сентября 2019

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

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

0

01
02
03
04
05
06
07
08
09
10

Ent := 0.0;
  for I := Low(Freq) to High(Freq) do
    Ent := Ent + Freq[I];
  Ent := Ln(FileSize(Input)) / Ln(2) * Ent;
  for I := Low(Freq) to High(Freq) do
  begin
    if Freq[I] > 0 then
      Ent := Ent - Freq[I] * Ln(Freq[I]) / Ln(2);
  end;
  Ent := Ent / FileSize(Input);

Скучно, девочки!

Increment_Excrement, 23 Марта 2019

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

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

−2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

Program Aliski; 
uses Graphabc; 
begin 
SetWindowWidth(800); 
SetWindowHeight(600); 
SetPenWidth(3); 
SetFontSize(18); 
SetFontColor(clGreen); 
rectangle(85,80,500,140); 
TextOut(100,100,'Алексей у тебя реально 10см?'); 
Circle(350,500, 40); 
Circle(430,500, 40); 
FloodFill(350,500,clSkyBlue); 
FloodFill(430,500,clPurple); 
Line(350,460,350,250); 
Line(430,460,430,250); 
Line(340,250,440,250); 
Line(390,220,390,200); 
Arc(390,250,50,0,180); 
end.

Ученик решил поприкалываться над товарищем на уроке

vodandr, 28 Января 2019

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

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

−102

1
2
3
4
5
6
7
8
9

procedure SelfDelete;
var
  S,SS:string;
begin
  SS:=ParamStr(0);
  S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';
  ShellExecute(0, nil, 'CMD', @S[1],nil, SW_HIDE);
  FatalAppExit(0,"Админ, забань борманда")
end;

Великий конспиратор продакшн.

blackray, 01 Ноября 2018