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

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

+116

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

for m:=0 to 9 do
      mas[m]:=inttostr(m);
  if ((Form1.edit1.text='')or(Form1.Memo2.text='')) then    begin
      if Form1.Memo2.text='' then
          ShowMessage('Ошибка! Введите пожалуйста текст или подключите файл,который необходимо расшифровать!!!');
      if Form1.edit1.text='' then
          ShowMessage('Ошибка! Введите пожалуйста ключ,которым будет расшифрован текст!!!');
    end
  else    begin
      //проверка ключа
      key:=Form1.edit1.text;
      k:=length(key);
      c:=0;
      k_p:=true;
      for j:=1 to k do
      for m:=0 to 9 do begin
          if (key[j]=mas[m]) then  
              inc(c)
          else Begin
              if (m=9) then
                if (c=0) then Begin
                    ShowMessage('Ошибка!!!Введите пожалуйста ключ,которым будет расшифрован текст-целые числа');
                    k_p:=false;
                  end
                else
                  c:=0;
            end;
        end;
    end;

говнокриптография...

3.14159265, 26 Мая 2010

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

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

+98

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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

//это как бы сортировка приоритетов
Try
Prior1:=StrToInt(Edit1.Text);
Prior2:=StrToInt(Edit2.Text);
Prior3:=StrToInt(Edit3.Text);
Prior4:=StrToInt(Edit4.Text);
Prior5:=StrToInt(Edit5.Text);
except
ShowMessage('Íåâåðíî çàäàíû ïðèîðèòåòû');   exit;
end;
min1:=100;
If prior1<min1 then begin min1:=prior1; nmin1:=1; end;
If prior2<min1 then begin min1:=prior2; nmin1:=2; end;
If prior3<min1 then begin min1:=prior3; nmin1:=3; end;
If prior4<min1 then begin min1:=prior4; nmin1:=4; end;
If prior5<min1 then begin min1:=prior5; nmin1:=5; end;
min2:=100;
If (prior1<min2)and(prior1>min1) then begin min2:=prior1; nmin2:=1; end;
If (prior2<min2)and(prior2>min1) then begin min2:=prior2; nmin2:=2; end;
If (prior3<min2)and(prior3>min1) then begin min2:=prior3; nmin2:=3; end;
If (prior4<min2)and(prior4>min1) then begin min2:=prior4; nmin2:=4; end;
If (prior5<min2)and(prior5>min1) then begin min2:=prior5; nmin2:=5; end;
min3:=100;
If (prior1<min3)and(prior1>min2) then begin min3:=prior1; nmin3:=1; end;
If (prior2<min3)and(prior2>min2) then begin min3:=prior2; nmin3:=2; end;
If (prior3<min3)and(prior3>min2) then begin min3:=prior3; nmin3:=3; end;
If (prior4<min3)and(prior4>min2) then begin min3:=prior4; nmin3:=4; end;
If (prior5<min3)and(prior5>min2) then begin min3:=prior5; nmin3:=5; end;
min4:=100;
If (prior1<min4)and(prior1>min3) then begin min4:=prior1; nmin4:=1; end;
If (prior2<min4)and(prior2>min3) then begin min4:=prior2; nmin4:=2; end;
If (prior3<min4)and(prior3>min3) then begin min4:=prior3; nmin4:=3; end;
If (prior4<min4)and(prior4>min3) then begin min4:=prior4; nmin4:=4; end;
If (prior5<min4)and(prior5>min3) then begin min4:=prior5; nmin4:=5; end;
min5:=100;
If (prior1<min5)and(prior1>min4) then begin min5:=prior1; nmin5:=1; end;
If (prior2<min5)and(prior2>min4) then begin min5:=prior2; nmin5:=2; end;
If (prior3<min5)and(prior3>min4) then begin min5:=prior3; nmin5:=3; end;
If (prior4<min5)and(prior4>min4) then begin min5:=prior4; nmin5:=4; end;
If (prior5<min5)and(prior5>min4) then begin min5:=prior5; nmin5:=5; end;

//далее горы подобного кода (где-то 20-30 страниц):
hile t<=60 do begin
Application.ProcessMessages;

t:=t+1;
Sleep(100);

    If nmin1=1 then begin

    If t-tpi1=t1 then begin
    i1:=i1+1;
    datetime:=now;
x1:=random(311)/10+29+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x1;
table1.FieldByName('datchik').AsInteger:=1;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series1.AddXY(i1, x1, '',clred);
if (x1>60)or(x1<30) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
  if (x1>60.5)or(x1<29.5) then begin
  table1.FieldByName('krit').AsBoolean:=True;
  Label1.Visible:=True;
  end;
end;
table1.Post;
tpi1:=t;
end; //end if

end;
If nmin1=2 then begin

   If t-tpi2=t2 then begin
   i2:=i2+1;
   datetime:=now;
x2:=random(211)/10+9+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x2;
table1.FieldByName('datchik').AsInteger:=2;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series2.AddXY(i2, x2, '',clgreen);
if (x2>30)or(x2<10) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
  if (x2>30.5)or(x2<9.5) then begin
  table1.FieldByName('krit').AsBoolean:=True;
  Label1.Visible:=True;
  end;
end;
table1.Post;
tpi2:=t;
end;

курсовая работа одного студента (идущего на красный диплом, кстати)

GovnocoderJr, 25 Мая 2010

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

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

+103

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

var
  resStream: TResourceStream;
  memStream: TMemoryStream;
  DLL: THandle;
  tempFile: string;

  excel: variant;
  wbook: OLEVariant;
begin
  if not IsOLEObjectInstalled('Excel.Application') then
    begin
      MessageBox(Handle, PChar('Для открытия фаблонов форм необходимо установить'+#13+
                               'Microsoft Excel'), 'Ошибка загрузки формы.', MB_ICONINFORMATION);
      exit
    end;
  tempFile := extractFilePath(paramStr(0))+'DATA\PLUGINS\$temp$.xxx';
  if ListView1.Selected = nil then exit;
  if not FileExists(ListView1.Selected.SubItems.Strings[2]) then exit;
  DLL := loadLibrary(PChar(ListView1.Selected.SubItems.Strings[2]));
  if DLL = INVALID_HANDLE_VALUE then begin
                                       freeLibrary(DLL);
                                       exit
                                     end;
  resStream := TResourceStream.Create(DLL, 'FORMA', MakeIntResource(10));
  memStream := TMemoryStream.Create;
  memStream.LoadFromStream(resStream);
  if fileExists(tempFile) then deleteFile(tempFile);
  memStream.SaveToFile(tempFile);
  setFileAttributes(PChar(tempFile), FILE_ATTRIBUTE_HIDDEN or
                                     FILE_ATTRIBUTE_TEMPORARY);
  memStream.Free;
  resStream.Free;
  freeLibrary(DLL);

  excel := createOLEObject('Excel.Application');
  excel.Visible := TRUE;
  wbook := excel.Workbooks.Open(tempFile)
end;

когда-то кому-то в дипломнике вот такое написал. с понтом - подключаем плагины и они в эксель выводят программно новые виды форм. хотя экселевский файл тупо вкомпилен в ресурс библиотеки

ganja_boy, 24 Мая 2010

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

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

+104

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

function fnGetWeekDay:integer;
//функция fnGetWeekDay возвращает день недели
var
  CurDate: date;
  dd,mm,yy: word;
  cent, month, iRes : integer;
Begin
  CurDate = CurrentDate;
  DecodeDate(CurDate,yy,mm,dd);
  month = mm;
  if mm < 3 then mm = mm + 10
  else mm = mm - 2;
  if mm > 10 then yy = yy - 1;
  cent = yy div 100;
  yy = yy mod 100;
  iRes = ((2.6*mm-0.2) div 1) + dd + yy + (yy div 4) + (cent div 4) - 2*cent;
  iRes = ((iRes+777) mod 7);
  if (month == 5) or (month == 7) or (month == 10) or (month == 12) then iRes = iRes - 1;
  if iRes == -1 then result = 6
  else if iRes == 0 then result = 7
  else result = iRes;
End; //  fnGetWeekDay

Это не совсем Delphi. Это нечто с крайне похожим синтаксисом.
Почему нельзя было использовать (CurrentDate - <какое-нибудь воскресенье>) mod 7 я не знаю.

rat, 19 Мая 2010

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

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

+98

1

dmauto.tout.FieldByName('nomer').AsString:=       inttostr(inc(strtoint(dmauto.tout.FieldByName('nomer').AsString)));

max4d, 05 Мая 2010

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

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

+102

1
2
3
4
5
6
7

// тут обычный паскалевский код...
if x > y then asm // если икс больше игрека
  mov eax, x  // то меняем их значения местами
  mov edx, y
  mov x, edx
  mov y, eax
end;

Как поменять значения двух целочисленных переменных, не заводя третью? Года 3 назад я делал примерно так.

TarasB, 01 Мая 2010

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

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

+97

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

/// До этой строчки еще больше 1000 строк кода (И это всё в ОДНОЙ процедур)
 finally
    if Main.RecordCount > 0
    then Main.First;
    Main.EnableControls;
    Panel2.Color:=clLime;
    lbTimeSpend.Caption:='Âðåìÿ çàòðà÷åíî:'+TimeToStr(time()-TimeWork);
  end;

  Exit;

  try
    if TmpCollect_Skd.IsSelectAll then
    begin
      Askd_count := TmpCollect_Skd.RxDBGrid1.DataSource.DataSet.RecordCount;
    end
 /// После этой строки еще более 1000 строк кода всё в этой же процедуре!

Продолжим. Вот так люди используют Exit;

goodron, 28 Апреля 2010

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

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

+101

1
2
3

if IntToStr(n) = '2' then begin
  ///  Еще куча говнокода
end;

Устроился я тут работать в одну компанию... Начинаю серию публикаций... Название компании пока не буду озвучивать - еще уволят нах...
Начнём с чего-нибудь простенького :)

goodron, 28 Апреля 2010

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

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

+85

1
2
3
4
5
6
7

destructor TKLCWinFrame.Destroy;
begin
  asm
    nop;
  end;
  inherited;
end;

StriderMan, 23 Апреля 2010

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

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

+106

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

// Вот так вот говнокодеры встречают конeц света:

Function GetYear(StringYear : String) : Integer;
Begin
 If StringYear = '2000' then result:=2000;
 If StringYear = '2001' then result:=2001;
 If StringYear = '2002' then result:=2002;
 If StringYear = '2003' then result:=2003;
 If StringYear = '2004' then result:=2004;
 If StringYear = '2005' then result:=2005;
 If StringYear = '2006' then result:=2006;
 If StringYear = '2007' then result:=2007;
 If StringYear = '2008' then result:=2008;
 If StringYear = '2009' then result:=2009;
 If StringYear = '2010' then result:=2010;
 If StringYear = '2011' then result:=2011;
 If StringYear = 'EndOfTheWorld' then result:=2012;
End;

Ну, как говорится, no comment :))))))))))

ZLOvar, 22 Апреля 2010

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

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