1. Pascal / Говнокод #19397

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    DS_marka_avtoID_V_SPR_TS: TFloatField;
    DS_marka_avtoNUM_GOS: TStringField;
    DS_marka_avtoMARKA_AVTO: TStringField;
    DS_marka_avtoNUM_TEHPASPORT: TStringField;
    DS_marka_avtoK_PRED: TFloatField;
    DS_marka_avtoFLAG_A: TFloatField;
    DS_marka_avtoNUM_GOS_ONLY_DIGIT: TStringField;
    S_marka_avto: TDataSource;
    DS_Gruz: TOracleDataSet;
    S_Gruz: TDataSource;
    DS_Soprovogdenie: TOracleDataSet;
    DS_SoprovogdenieID_P_JOURNAL: TFloatField;
    DS_SoprovogdenieID_V_SPR_VODITEL: TFloatField;
    DS_SoprovogdenieFIO: TStringField;
    DS_SoprovogdenieDOC: TStringField;
    S_Soprovogdenie: TDataSource;
    tbl_voditelView1FIO: TcxGridDBColumn;
    DS_Ins_Voditel: TOracleDataSet;
    DS_Ins_VoditelID_V_SPR_VODITEL: TFloatField;
    DS_Ins_VoditelPR_STORON: TFloatField;
    DS_marka_avtoPR_VLADELETS_TS: TFloatField;

    и еще 200 подобных строк истинного энтэрпрайзного кода

    hovak, 04 Февраля 2016

    Комментарии (0)
  2. Pascal / Говнокод #19378

    0

    1. 1
    2. 2
    3. 3
    4. 4
    s:=LongTimeFormat;       
                LongTimeFormat:='h:mm';
                read_spr_cs2.FieldByName('time_str').AsString:=TimeToStr(dt);
                LongTimeFormat:=s;

    tucvbif, 01 Февраля 2016

    Комментарии (1)
  3. Pascal / Говнокод #19375

    −3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    function get_filenamebyid(req_file_id_in:integer;is_answer:boolean;X_MESS_SWAP_path:string):string;
    var FILENAME_ONSERVER,FILE_PATH_ONSERVER,s,ss:string;
    req_file_id:integer;
        begin                                  //sdsd
          req_file_id:=abs(req_file_id_in);
        s:=inttostr(req_file_id div (1000*1000*1000));
        while length(s)<3 do s:='0'+s;
        ss:=s;
        s:=inttostr(req_file_id div (1000*1000));
        while length(s)<3 do s:='0'+s;
        ss:=ss+'\'+s;
        s:=inttostr(req_file_id div (1000));
        while length(s)<3 do s:='0'+s;
        ss:=ss+'\'+s;
    
        FILE_PATH_ONSERVER:=ss;
        FILENAME_ONSERVER:=inttostr(req_file_id)+ ifthen(is_answer,'.answer','')+'.xml';
        result:=X_MESS_SWAP_path+FILE_PATH_ONSERVER+'\'+      FILENAME_ONSERVER;
        end;

    Предлагаю отрефакторить

    tucvbif, 01 Февраля 2016

    Комментарии (27)
  4. Pascal / Говнокод #19359

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    if (class_name='Tnabl_Form') then
            begin
            nabl_Form:=Tnabl_Form.create(Application);
            with nabl_Form do
            begin
            Caption := 'Наблюдение '+dop_caption;
            tool_btn_task_bar:=
                    create_tb(1,Handle,'Наблюдение','Наблюдение '+dop_caption);
            Name:=tool_btn_task_bar.Name;
            about_kart_Frame1.id_med_kart:=id_parent;
    
            end;
            nabl_Form.id_doc:=id_doc;
            nabl_Form._init;
            Result:=nabl_Form;
            end;
                     
      if class_name='To_spiski_5201_Form' then 
            begin
            o_spiski_5201_Form:=To_spiski_5201_Form.create(Application);
            o_spiski_5201_Form.FormStyle:=fsMDIChild;
            o_spiski_5201_Form.tool_btn_task_bar:=
                    create_tb(0, o_spiski_5201_Form.Handle,'Списки больных','Списки больных'+dop_caption);
            o_spiski_5201_Form.Name:=o_spiski_5201_Form.tool_btn_task_bar.Name;
            result:=o_spiski_5201_Form;
            end;
    
    if (class_name='Td_diagn_Form') then
            begin
            d_diagn_Form:=Td_diagn_Form.create(Application);
            with d_diagn_Form do
            begin
            Caption := 'Постановка диагноза '+dop_caption;
            tool_btn_task_bar:=
                    create_tb(1,Handle,'Диагноз','Постановка диагноза '+dop_caption);
            Name:=tool_btn_task_bar.Name;
            about_kart_Frame1.id_med_kart:=id_parent;
            end;
            d_diagn_Form.id_doc:=id_doc;
            d_diagn_Form._init;
            Result:=d_diagn_Form;
            end;
    //И ещё около 600 строк в том же духе

    Наследование? Полиморфизм? ООП? Это слишком сложно!

    tucvbif, 28 Января 2016

    Комментарии (2)
  5. Pascal / Говнокод #19343

    −6

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    try
    if (cs_parentMK.delta=null) and (changes_flag=false) then changes_flag:= false
    else changes_flag:=true;
    except
    if changes_flag<>true then changes_flag:=false;
    end;

    Вдруг boolean как здесь: http://govnokod.ru/3274

    tucvbif, 24 Января 2016

    Комментарии (10)
  6. Pascal / Говнокод #19342

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    ...
    TMAINForm = class (TForm)
    ...
      N50:TMenuItem;
      N51:TMenuItem;
      N52:TMenuItem;
    ...
    
    end;
    
    implementation
    
    {$include ../common/common_main.inc}

    После 10 лет развития проекта возникла потребность вынести куда-то повторяющийся код.

    tucvbif, 24 Января 2016

    Комментарии (1)
  7. Pascal / Говнокод #19305

    −2

    1. 1
    2. 2
    j1 := j-1;                 // кастыль
      if j1 = -1 then j1 := 7;   //

    попробуйте прочитать вслух)

    Duss, 14 Января 2016

    Комментарии (35)
  8. Pascal / Говнокод #19289

    +4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    свежий 0дэй сплоит для вороства денег с лоховского аккаунта на e-gold
    сплоит сам находит лоховской акк и переводит деньги хакеру
    
    компилировать паскалем 4.0
    
    опытный хакер сам найдет ошибки и исправит их
    это приватная версия сплоита, просьба не распростронять вне форума!!!
    
    programm 0day_egold_back_sploit
    var
    babki:longint;
    begin
    connect("e-gold.com",80);
    goto("money.hmtl");
    authorize(steal(random,"login"),steal(random,"password"));
    transfer(babki,fucked_login,hacker_login);
    writeln("Loh has been hacked!");
    disconnect;
    end.

    http://bh-crew.livejournal.com/9875.html

    j123123, 11 Января 2016

    Комментарии (18)
  9. Pascal / Говнокод #19288

    −4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    //==============================================================================
    // Delphi XE3
    // Internet Explorer
    //==============================================================================
    
    var
    Зависание::integer;
    Загрузка:integer = 5000;
    Кэш:integer;
    
    begin
    Sleep(Загрузка);
    for Зависание := 0 to 99 do
    begin
    Sleep(Загрузка);
    if Кэш = Random(99) then
    begin
      Sleep(Загрузка);
      MessageBoxW(0, 'Приложение не отвечает', 'Internet Explorer', 64);
      FatalExit(0);
    end
    else
    Inc(Кэш);
    begin
    MessageBoxW(0, 'Приложение не отвечает', 'Internet Explorer', 64);
    FatalExit(0);
    end;
    end;
    
    end.

    Internet Explorer

    vazelin_q, 10 Января 2016

    Комментарии (1)
  10. Pascal / Говнокод #19287

    −2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    procedure TForm1.PauseButtonClick(Sender: TObject);
    var
      I: Integer;
    begin
      if PauseButton.Caption = 'Пауза' then
      begin
        PauseButton.Caption := 'Продолжить';
        Timer1.Enabled := False;
        SpeedLabel.Caption := '0';
        Form1.TimeOutSpinEdit.Enabled := True;
        if Form2.ProxySettingsCheckBox.Checked = True then
        begin
          Form1.ProxyButton.Enabled := True;
        end
        else
        begin
          Application.ProcessMessages();
        end;
        for I := 0 to Form1.ThreadSpinEdit.Value - 1 do
        begin
          SuspendThread(FThread[I].Handle);
        end;
      end
      else
      begin
        if Form2.HTTPCheckBox.Checked = True then
          FProxyType := 0;
        if Form2.SOCKS4CheckBox.Checked = True then
          FProxyType := 1;
        if Form2.SOCKS5CheckBox.Checked = True then
          FProxyType := 2;
        PauseButton.Caption := 'Пауза';
        Timer1.Enabled := True;
        Form1.TimeOutSpinEdit.Enabled := False;
        Form1.ProxyButton.Enabled := False;
        for I := 0 to Form1.ThreadSpinEdit.Value - 1 do
        begin
          ResumeThread(FThread[I].Handle);
        end;
      end;
    end;

    Остановка потоков от великого Грача

    Gratsh, 10 Января 2016

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