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

    Всего: 2

  2. Pascal / Говнокод #22425

    −100

    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
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    var
      SysPath, WinPath, DrivePart, AppPath, CMDLine, AppName, AppExt:widestring;
      P:Integer;
      USBDrive:Boolean;
    begin
      Result:=True;
    
      SetLength(SysPath,300);
      SetLength(SysPath, GetSystemDirectoryW(PWideChar(SysPath), 300));
      SysPath:=IncludeTrailingPathDelimiter(SysPath);
      SysPath:=WideLowerCase(SysPath);
    
      SetLength(WinPath,300);
      SetLength(WinPath, GetWindowsDirectoryW(PWideChar(WinPath), 300));
      WinPath:=IncludeTrailingPathDelimiter(WinPath);
      WinPath:=WideLowerCase(WinPath);
    
      DrivePart:=ExtractFileDrive(lpCurrentDirectory);
      DrivePart:=ExtractFileDir(DrivePart);
      DrivePart:=wideLowerCase(DrivePart);
    
      AppName:=ExtractFileName(lpApplicationName);
      AppName:=wideLowerCase(AppName);
    
      AppExt:=ExtractFileExt(AppName);
      AppExt:=wideLowerCase(AppExt);
    
      AppPath:=ExtractFilePath(lpApplicationName);
      AppPath:=wideLowerCase(AppPath);
    
      CMDLine:=lpCommandLine;
      CMDLine:=Utf8Decode(Utf8StringReplace(UTF8Encode(CMDLine),#34,'',[rfReplaceAll]));
      P:=utf8Pos(utf8encode(string(lpApplicationName)), utf8encode(CMDline));
      if P >0 then
      Delete(CMDline, P, Length(lpApplicationName));
      CMDLine:=Trim(CMDLine);
      //CMDLine:=LowerCase(CMDLine);
    
      USBDrive:=IsUSBDevice(DrivePart);
      if (WideSameText(AppPath, SysPath) or WideSameText(AppPath, WinPath))  then
      begin
        if ((wideSameText(AppName,'wscript.exe')) or (wideSameText(AppName, 'cscript.exe')) or (wideSameText(AppName, 'mshta.exe'))) then
        begin
          // script blocked
          if CMDLine <> '' then
          if MessageBoxW(0,PWideChar(UTF8Decode(Format('Использование скриптов может повредить Ваш компьютер! %s%s%s', [#13#10#13#10'Приложение: '+lpApplicationName,#13#10'Файл: '+CmdLine,#13#10#13#10'Вы действительно хотите выполнить данный скрипт?']))),PWideChar(UTF8Decode('Rast Security: заблокирован скрипт!')),mb_yesno or mb_iconexclamation) <> IDYES then Exit;
          TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
          lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
          lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
        end
        else if ((wideSameText(AppName, 'rundll32.exe')) or (wideSameText(AppName, 'cmd.exe')) or (wideSameText(AppName, 'hh.exe')) or (wideSameText(AppName, 'reg.exe')) or (wideSameText(AppName, 'regedit.exe'))) then
        begin
          // app launching
          if USBDrive then
          begin
          	if (CMDLine <> '') then
    				if Copy(CMDLine,1,28)='Shell32.DLL,ShellExec_RunDLL' then
          	begin
          		if MessageBoxW(0,PWideChar(UTF8Decode('Проводник пытается выполнить автозапуск! Данную функцию используют многие вредоносные программы.'+#13#10+'Мы настоятельно рекомендуем Вам не разрешать исполнение сценария и проверить устройство антивирусом.'+#13#10+'Разрешить исполнение?')),PWideChar(UTF8Decode('Rast Security: автозапуск заблокирован')),mb_yesno or mb_iconexclamation)<> IDYES then Exit;
          	end
          	else
          	 if MessageBoxW(0,PWideChar(UTF8Decode(Format('Легитимное (заслуживающее доверия) приложение пытается исполнить неизвестную программу на сменном диске. %s%s%s', [#13#10#13#10'Приложение: '+lpApplicationName,#13#10'Файл: '+CmdLine,#13#10#13#10'Разрешить доступ?']))),PWideChar(UTF8Decode('Rast Security: заблокирован ланчер')),mb_yesno or mb_iconexclamation) <> IDYES then Exit;
          end;
          TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
          lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
          lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
        end
        else
        TrueCreateProcessW(lpApplicationName, lpCommandLine, lpProcessAttributes,
        lpThreadAttributes, bInheritHandles, dwCreationFlags, lpEnvironment,
        lpCurrentDirectory, lpStartupInfo, lpProcessInformation);
      end
      else
      //begin
        //if not masking app
      //end;
      if USBDrive then

    Я прусь с Лазаря.

    CTEPTOP, 21 Февраля 2017

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

    −96

    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
    function ProcessTerminate(dwPID:Cardinal):Boolean;
    var
     hProcess:THandle;
    begin
     Result:=false;
     if GetLastError()<> ERROR_SUCCESS  then exit;
     hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
     if hProcess =0  then exit;
     if not TerminateProcess(hProcess, DWORD(-1))then exit;
     CloseHandle( hProcess );
     if GetLastError() <>  ERROR_SUCCESS then exit;
     Result:=true;
    end;

    Никогда - никогда, никогда, никогда - НЕ ПИШИТЕ код по ночам.

    CTEPTOP, 20 Февраля 2017

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