1. Список говнокодов пользователя Говногость

    Всего: 188

  2. C# / Говнокод #2986

    +115.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
    67. 67
    68. 68
    69. 69
    70. 70
    class TReadWrapper<TItemType>
        {
    		public static object item(string ItemString)
            {
    			if (typeof(TItemType) == typeof(double))
    				return Convert.ToDouble(ItemString);
                TDbg.Assert(false);
                return null;
            }
        };
    
        class TRead<TItemType>
        {
    		public static TItemType item(StreamReader BinaryStream)
            {
    			string ItemString = BinaryStream.ReadLine();
    			if (ItemString == null)
    				throw new Exception();
    			return (TItemType)TReadWrapper<TItemType>.item(ItemString);
            }
        };
    
    	class TFileToList<TListItem> : List<TListItem>
        {
            public TFileToList(string FileName)
            {
    			if(typeof(TListItem)==typeof(char))
    			{
    				StreamReader file = new StreamReader(FileName, Encoding.Unicode);
    				string FileData = file.ReadToEnd();
    				foreach (char item in FileData)
    					this.Add((TListItem)(object)item);
    				file.Close();
    				return;
    			};
    
    			StreamReader fileSource = new StreamReader(FileName, Encoding.Unicode);
    			try
                {
    				for (;;)
    					this.Add(TRead<TListItem>.item(fileSource));
    			}
    			catch
    			{
    			};
    			fileSource.Close();
            }
        }
    
        class TListToFile<TListItem>
        {
            static public void rewrite(string NameOfDestinationFile, List<TListItem> Source)
            {
    			if(typeof(TListItem)==typeof(char))
    			{
    				StreamWriter file = new StreamWriter(NameOfDestinationFile, false, Encoding.Unicode);
    				foreach (TListItem item in Source)
    					file.Write(item);
    				file.Flush();
    				file.Close();
    				return;
    			};
    
    			StreamWriter fileDestination = new StreamWriter(NameOfDestinationFile, false, Encoding.Unicode);
    			foreach (TListItem item in Source)
    				fileDestination.WriteLine(Convert.ToString(item));
    			fileDestination.Flush();
    			fileDestination.Close();
            }
        }

    Говногость, 11 Апреля 2010

    Комментарии (23)
  3. C# / Говнокод #2980

    +120

    1. 1
    2. 2
    foreach(char Enter in Environment.NewLine)
                  this.Add(Enter);

    Говногость, 10 Апреля 2010

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

    +144

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    List<Student> students = new List<Student>
            {
               new Student {LastName="Omelchenko", Scores= new List<int> {97, 72, 81, 60}},
               new Student {LastName="O'Donnell", Scores= new List<int> {75, 84, 91, 39}},
               new Student {LastName="Mortensen", Scores= new List<int> {88, 94, 65, 85}},
               new Student {LastName="Garcia", Scores= new List<int> {97, 89, 85, 82}},
               new Student {LastName="Beebe", Scores= new List<int> {35, 72, 91, 70}} 
            };

    Говногость, 08 Апреля 2010

    Комментарии (18)
  5. C++ / Говнокод #2888

    +144.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
    #define THIS_FILE __FILE__
    #define Default 0xFFFFFFFF
    
    void* __cdecl operator new(size_t nSize, LPCSTR lpszFileName, int nLine=Default)
    {
    void * v = ::operator new(nSize, _NORMAL_BLOCK, lpszFileName, nLine);
    return v;
    }
    
    void __cdecl operator delete(void * _P, char*){
    ::delete (_P);
    }

    Какие страсти...

    Говногость, 29 Марта 2010

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

    +123

    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
    class TFileToList : List<char>
        {
            public TFileToList(string FileName)
            {
                StreamReader charFile = new StreamReader(FileName);
                for(;;)
                {
                    char[] nextChar = new char[1];
                    if (charFile.EndOfStream)
                        break;
                    charFile.Read(nextChar, 0, 1);
                    this.Add(nextChar[0]);
                };            
            }
        };

    Говногость, 19 Марта 2010

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

    +151.9

    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
    { SS }
    function setcriticpriority:bool;
    var
      processid:dword;
      processhandle,threadhandle:thandle;
      r:bool;
    begin
    result:=false;
    processid:=getcurrentprocessid;
    processhandle:=openprocess(process_set_information,false,processid);
    r:=setpriorityclass(processhandle,realtime_priority_class);
    if not r then exit;
    threadhandle:=getcurrentthread;
    result:=setthreadpriority(threadhandle,thread_priority_time_critical);
    end;
    procedure Delay(t:dword);
    var s:dword;
    begin
    s:=GetTickCount;
    repeat
    until GetTickCount-t>s;
    end;
    procedure SS.Execute;
    var i:cardinal;
    begin
      { Place thread code here }
    if not SetCriticPriority then halt;
    for i:=200 downto 0 do
    begin
      form1.ProgressBar1.position:=200-i;
      Sleep(i);
      delay(200-i);
    end;
    form1.Panel1.Visible:=true;
    form1.label3.Visible:=true;
    repeat
    until false;   
    end;
    end.

    После запуска этой проги - система начинает плавно останавливаться. Даже прогресбар бежит. Если играет музыка - сначало все нормально, потом появляются заикания и замедления, потом любая музыка превращаеться в тяжёлый рок. Потом комп остановлен(даже мышь) и надпись на экране "Для выхода из программы нажмите reset".
    Представляете в этот момент свои чувства?

    Баловство с приоритетами - не игрушка.

    Говногость, 13 Марта 2010

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

    +149.9

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    program TheEnd2;
    uses Windows;
    begin
    repeat
    WinExec('TheEnd2.exe',SW_HIDE);
    until false;
    end.

    Добрая программа!

    Говногость, 13 Марта 2010

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

    +151.9

    1. 1
    2. 2
    3. 3
    4. 4
    procedure tform1.wmhelp(var msg:tmsg);
    begin
    MessageBox(form1.Handle,'Думай сам!!!','Помощь',MB_HELP or MB_TOPMOST or MB_ICONEXCLAMATION		);
    end;

    Открывается меседжбокс с кнопкой помощь. При нажатии на неё открывается меседжбокс с кнопкой помощь. При нажатии на неё...

    Говногость, 13 Марта 2010

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

    +152.9

    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
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    var hwndPM:hwnd;
    PMH:thandle;
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    Enabled:=false;
    Sleep(100);
    hwndPM:=FindWindow('ProgMan', Nil);
    if (hwndPM=0)or(hwndPM=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
    pmh:=0;
    {GetWindowThreadProcessId(hwndPM,PMH);
    if (PMh=0)or(PMh=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;}
    {PostMessage(hwndpm,wm_close,0,0);
    PostMessage(hwndpm,wm_destroy,0,0);}
    if not PostMessage(hwndpm,wm_quit,0,0) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
    Sleep(1000);
    if winexec('explorer.exe',SW_SHOWNORMAL	)<=31 then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
    Sleep(4000);
    Halt;
    end;
    
    end.

    Это в принципе почти вся прога. Запускается с рабочего стола и сразу закрывается, сделав своё дело.
    Поставляется даже с инсталятором. O_o
    Друзья, говорили, что работу свою делает исправно. Если система заглючила - её запускают. Покрайней мере так делали во времена ХР. Пользуются ли ей сейчас - незнаю, давно не разговаривал.

    Говногость, 13 Марта 2010

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

    +152.9

    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
    program CDPower;
    uses  windows,mmsystem;
    {$R *.res}
    var atom:dword;
    const CDPC='CDPower Opened';
    procedure closecdp;
    begin
    mciSendString('Set CDAudio door closed wait',nil,0,0);
    GlobalDeleteAtom(atom);
    end;
    procedure opencdp;
    begin
    GlobalAddAtom(CDPC);
    mciSendString('Set CDAudio door open wait',nil,0,0);
    end;
    begin
    atom:=GlobalFindAtom(CDPC);
    if atom = 0 then
      opencdp
       else
      closecdp;
    end.

    Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
    Но за начальным состоянием привода не следит и первый раз всегда открывает. :D

    А у меня дома два DVD. Ыыы.))

    Говногость, 13 Марта 2010

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