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

    Всего: 8

  2. Куча / Говнокод #25087

    −105

    1. 1
    2. 2
    Покуда уголовники, вроде Bormand будут незабаненны,
    уникальность контента Вашего сайта будет стремится к нулю.

    Админ! Забань борманда!

    blackray, 14 Ноября 2018

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

    −102

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 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

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

    +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
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    unit ZwDeleteFileSample;
    
    interface
    
    uses Windows, nt_status, native, hal, fcall, macros, ntoskrnl;
    
    function _DriverEntry(DriverObject: PDriverObject; RegistryPath: PUnicodeString): NTSTATUS; stdcall;
    
    implementation
    
    procedure DriverUnload(pDriverObject: PDriverObject); stdcall;
    begin
      DbgPrint('Test Driver :: Unloaded');
    end;
    
    function _DriverEntry(DriverObject: PDriverObject; RegistryPath: PUnicodeString): NTSTATUS; stdcall;
    var UNICODESTRING: UNICODE_STRING;
      obj: OBJECT_ATTRIBUTES;
    
    begin
    
      DbgPrint('Test Driver :: Loaded');
      DriverObject^.DriverUnload := @DriverUnload;
    
      RtlInitUnicodeString(UNICODESTRING, '\??\C:\test.exe');
      InitializeObjectAttributes(obj, @UNICODESTRING, OBJ_CASE_INSENSITIVE + OBJ_KERNEL_HANDLE, 0, nil);
      Result := ZwDeleteFile(@obj);
    
      if Result = STATUS_SUCCESS then
      begin
        DbgPrint('File deleted sucessfully - Result:0x%.8X', Result); // Result to get Error Code
      end else
      begin
        DbgPrint('Fail to delete file - Result:0x%.8X', Result); // Result to get Error Code
        DbgPrint('Object name :%wZ',  obj.ObjectName); // Result to get Error Code
      end;
      Result := STATUS_SUCCESS;
    
    end;
    
    end.

    Драйвер на дэлфи. Ничего необычного, листайте дальше.

    blackray, 29 Октября 2018

    Комментарии (10)
  5. Куча / Говнокод #24154

    −109

    1. 1
    Админ, забань Ильяса.

    blackray, 19 Апреля 2018

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

    −20

    1. 1
    Забаньте спамеров (Bormand-а, и др)

    blackray, 29 Марта 2017

    Комментарии (3)
  7. Куча / Говнокод #21533

    −127

    1. 1
    Админ, забаньте наконец Борманда.

    blackray, 22 Октября 2016

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

    +142

    1. 1
    $model->date = date('Y-m-d H:i:s',mktime(date('H'),date('i'),date('s'),date('m'),date('d'),date('Y')));

    берём текущую дату...

    blackray, 05 Декабря 2012

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

    +159

    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
    /**
         * 
         * Remove single symbols
         * string $text
         */
        public function removeSingleSymbols($text)
        {
            mb_internal_encoding("UTF-8");
            $searchQuery = str_replace('"', '', $text);
            $arr = explode(" ", $searchQuery);
           
            $flag = false;
            foreach ($arr as $word){
                if(mb_strlen($word) > 1){
                    if(flag){
                        $searchText .= " ";
                    }
                    $flag = true;
                    $searchText .= $word;
                }
            }
            $searchText = trim($searchText);
            if($flag){
               $searchText = '"' . $searchText . '"';
            }else{
               $searchText = '';
            }
            
            return $searchText;
        }

    blackray, 04 Марта 2011

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