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

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

  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)