1. C# / Говнокод #2281

    +135.7

    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
    44. 44
    45. 45
    46. 46
    private void Form1_Load(object sender, EventArgs e)
            {
                List<defaultItem> EqQty = new List<defaultItem>();
                EqQty.Add(new defaultItem(1, 1.ToString()));
                EqQty.Add(new defaultItem(2, 2.ToString()));
                EqQty.Add(new defaultItem(3, 3.ToString()));
                EqQty.Add(new defaultItem(4, 4.ToString()));
                EqQty.Add(new defaultItem(5, 5.ToString()));
    
                cbEqQty.DataSource = EqQty;
                cbEqQty.ValueMember = "Key";
                cbEqQty.DisplayMember = "Value";
    
                List<defaultItem> PlusQty = new List<defaultItem>();
                PlusQty.Add(new defaultItem(1, 1.ToString()));
                PlusQty.Add(new defaultItem(2, 2.ToString()));
                PlusQty.Add(new defaultItem(3, 3.ToString()));
                PlusQty.Add(new defaultItem(4, 4.ToString()));
                PlusQty.Add(new defaultItem(5, 5.ToString()));
    
                cbPlusQty.DataSource = PlusQty;
                cbPlusQty.ValueMember = "Key";
                cbPlusQty.DisplayMember = "Value";
    }
    
    
    public class defaultItem
        {
            public int Key { get; set; }
    
            public String Value { get; set; }
            /// <summary>
            /// Коснтруктор
            /// </summary>
            /// <param name="Key"></param>
            /// <param name="Value"></param>
            public defaultItem
                (
                int Key,
                String Value
                )
            {
                this.Key = Key;
                this.Value = Value;
            }
        }

    Надо было два дропдауна при загрузке формы заполнить))

    zodchiy, 15 Декабря 2009

    Комментарии (8)
  2. SQL / Говнокод #2280

    −864.1

    1. 1
    2. 2
    3. 3
    4. 4
    select nvl2(view."DOC_TYPE", view."DOC_TYPE", '')||
               nvl2(view."SDOC", ', серия:'||view."SDOC", '')||
               nvl2(view."NDOC", ', номер:'||view."NDOC", '')|| 
    ... from view

    Это всё в Оракле

    asdqwezx, 14 Декабря 2009

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

    +95.3

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,
      IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection,
      IdTCPClient, IdHTTP, ExtCtrls, ComCtrls, Grids, ValEdit,IniFiles;
    
    
    
    type
      TForm1 = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        Button1: TButton;
        IdHTTP1: TIdHTTP;
        IdCookieManager1: TIdCookieManager;
        ListView1: TListView;
        Label1: TLabel;
        Label2: TLabel;
        ListBox1: TListBox;
        GroupBox1: TGroupBox;
        Edit1: TEdit;
        Edit2: TEdit;
        Button2: TButton;
        GroupBox2: TGroupBox;
        Button3: TButton;
        Edit3: TEdit;
        Edit4: TEdit;
        TabSheet3: TTabSheet;
        Memo1: TMemo;
        Memo2: TMemo;
        Button4: TButton;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Button5: TButton;
        procedure Button1Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure ListBox1Click(Sender: TObject);
        procedure TabSheet2Show(Sender: TObject);
        procedure Edit1KeyUp(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Edit3Change(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
    
    
      private
    
        { Private declarations }
      public
    
        { Public declarations }
      end;
    
    type
      TMyThread = class
      private
        FHandle: THandle;
        FID: Cardinal;
        function Execute: DWord; stdcall;
      public
        constructor Create;
        destructor Destroy; override;
      end;
    
    
    var
      Form1: TForm1;
    
    
      edit_nom:integer;
      acc_list:tstringlist;
      thread_count:integer;
    
    
        
    implementation
    
    {$R *.dfm}
    
    
    
    
    
    function findinhtml(text:string;first:string;dop1:string;dop2:string;dop3:string;dop4:string;dop5:string;dop6:string;first_end:string;last:string):string;
    var
    a,b,c:string;
    begin
    a:=copy(text,pos(first,text)+length(first)+1,1000);
    if dop1<>'' then a:=copy(a,pos(dop1,a)+length(dop1),length(a));

    pppd, 14 Декабря 2009

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

    +102.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    for i:=1 to 3 do
     if (f[i,1]<>a) and (f[i,2]<>b) then
     begin
      inc(n);
      if n>3 then exit;
      f[n,1]:=a;
      f[n,2]:=b;
      break;
    end
    else break;

    О как!

    Lolwho, 14 Декабря 2009

    Комментарии (7)
  5. PHP / Говнокод #2277

    +164.7

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    $arr = array('blabla','blabla_1','blabla_2');
    $mask = 'blabla';
    $lenght = strlen($mask);
    $pos = null;
    foreach($arr as $k=>$v)
     {
      $pos = stripos($arr[$k],$mask);
      if(isset($pos))
      {
        $arr[$k] = substr($arr[$k],$pos,$lenght);
      }
     }

    Задача была - удалить в строках все после символа _
    Источник http://www.nulled.ws/showthread.php?t=159950

    RolCom, 14 Декабря 2009

    Комментарии (14)
  6. Python / Говнокод #2276

    −178.5

    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
    def generate(_len = None, sg = None):
      if sg == None:
        sg = 'aoeuizxcvbn_msdfghjklqwrt_yp123456_7890'
      if _len == None:
        _len = random.Random().randint(1, 100)
      s = ''
      l = len(sg)
      while _len > 0:
        s += sg[random.Random().randint(0, l - 1)]
        _len -= 1
      return s
    
    def loadsrvlists(file, srvlist = {}, prtlist = {}):
      prtlist[0] = 5222
      f = open(file)
      while True:
        s = f.readline().strip()
        if s:
          sr = s[:s.find(':')]
          pr = s[s.find(':') + 1:]
          if not sr in srvlist:
            srvlist[sr] = True
            if pr != prtlist[0]:
              prtlist[sr] = int(pr)
        else: break
      return [srvlist, prtlist]

    По конфам прошла волна спама, автор которого пиарил своего бота.
    Это кусок кода из того бота.
    А тут полный исходник. http://dumpz.org/15156/
    Кто то может для себя почерпнуть нечто новое и неизведанное.

    Apkawa, 14 Декабря 2009

    Комментарии (5)
  7. PHP / Говнокод #2275

    +167.8

    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
    function returnDate($stamp){
    global $settings;
    $day = strftime("%d",$stamp+($settings['timeoffset']*3600));
    $month = strftime("%m",$stamp+($settings['timeoffset']*3600));
    $year = strftime("%Y",$stamp+($settings['timeoffset']*3600));
    switch ($month){
    case 01 : $month = "01"; break;
    case 02 : $month = "02"; break;
    case 03 : $month = "03"; break;
    case 04 : $month = "04"; break;
    case 05 : $month = "05"; break;
    case 06 : $month = "06"; break;
    case 07 : $month = "07"; break;
    case 08 : $month = "08"; break;
    case 09 : $month = "09"; break;
    case 10 : $month = "10"; break;
    case 11 : $month = "11"; break;
    case 12 : $month = "12"; break;
    }
    return "$day.$month.$year";
    }

    Взято из чешского шаблона под одну цмску. Автору, наверно, платят как Маяковскому - за каждую строчку :-)

    |)3F, 13 Декабря 2009

    Комментарии (27)
  8. PHP / Говнокод #2274

    +190.1

    1. 1
    if (isset($_COOKIE[SECURITY_COOKIE]) == "block")

    После этой строки шёл код для забаненных.

    (код взят из SLAED)

    xaionaro, 13 Декабря 2009

    Комментарии (7)
  9. PHP / Говнокод #2273

    +158.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
    function pass_gen() //Пароль генерируется восьмисимвольный, символы не повторяются
    {
    	$i = 0;
    	$pass = '';
    	$new_symbol = '';
    
    	// символы a-z, A-Z, 0-9, _-=![]{}
    	$symbols = 'abc1d=efg2h!ijklm3[nopqr4stuvw5]xyz_ABC6DEFG{7HIJKL8MNOPQ}R9STUVWXYZ-';
    	$count = strlen($symbols) - 1;
    	
    	while ($i <= 20)
    	{
    		$new_symbol = substr($symbols, rand(0, $count), 1);
    		
    		if (strpos($pass, $new_symbol) === false) 
    		{
    			$pass .= $new_symbol;
    			$i++;
    		}
    	}
    	
    	$pass = substr($pass, 5, 8);
    
    	return $pass;
    }

    "лучшая случайность" и тд)

    litrumb, 13 Декабря 2009

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

    +146.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
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    // Боярский языг.cpp : Defines the entry point for the console application.
    //
    
    // Не догадались, как избавиться от этих некрасивых инклудов :)
    #include "stdafx.h"
    #include <iostream>
    
    использовати площадь какобычно аминь1
    
    наместе двояко провѣрятичегоглаголют молчаливо
    кагбе
        ѣжѣли получалка.сломалася молчаливо тогдауж
        кагбе
          молвити "Не лепо молвишь, барин!" аминь1
          возвѣрнути нуль спасихоспади1
        ага
        возвѣрнути один аминь1
    ага
    
    цѣло голова(цѣло количество_указов, глаголют указы[])
    кагбе
      дваждыточно первыйсундук, второйсундук, отвѣт аминь1
      буквица знако спасихоспади1
      творити
      кагбе
        молвити "молви первый цифирь, барин: " аминь1
        получити первыйсундук аминь1
    
        ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
    
        молвити "молви деяние, барин: " аминь1
        получити знако спасихоспади1
    
        ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
    
        ѣжѣли знако еси 'q' тогдауж прѣрвати аминь1
    
        молвити "молви второй цифирь, барин: " аминь1
        получити второйсундук аминь1
        
        ѣжѣли провѣрятичегоглаголют молчаливо еси ложъ тогдауж прѣрвати спасихоспади1
    
        избирати знако
        тогдауж  кагбе
          выборъ '+' сталобыти
            отвѣт буде первыйсундук да второйсундук аминь1
            прѣрвати спасихоспади1
          выборъ '-' сталобыти
            отвѣт буде первыйсундук бѣзо второйсундук аминь1
            прѣрвати спасихоспади1
          выборъ '*' сталобыти
            отвѣт буде первыйсундук повторити_столько_сколько второйсундук аминь1
            прѣрвати спасихоспади1
          выборъ '/' сталобыти
            отвѣт буде первыйсундук убрати_столько_сколько второйсундук аминь1
            прѣрвати спасихоспади1
        ага
    
        молвити "Отвѣт есьм: " аминь1
        молвити отвѣт да_промолчати спасихоспади1
    
      ага
      пока (истино) аминь1
    
      возвѣрнути нуль спасихоспади1
    ага

    Простой калькулятор на " боярском" диалекте MSVС++

    Alice, 13 Декабря 2009

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