1. Pascal / Говнокод #17891

    +92

    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
    var
  HTML: TStringList;
  HTTP: THTTPSend;
begin
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV4.exe'), SW_HIDE);
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV5.exe'), SW_HIDE);
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV6.exe'), SW_HIDE);
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV7.exe'), SW_HIDE);
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV8.exe'), SW_HIDE);
  WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV9.exe'), SW_HIDE);
  if FLogin.sEdit1.Text = '' then
    raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');
  if FLogin.sEdit2.Text = '' then
    raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');
  if FLogin.sEdit3.Text = '' then
    raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');
  HTML := TStringList.Create;
  HTTP := THTTPSend.Create;
  HTTP.Protocol := '1.1';
  HTTP.Headers.Add('Accept: application/json, text/javascript, */*; q=0.0');
  HTTP.Headers.Add('X-Requested-With: XMLHttpRequest');
  HTTP.MimeType := 'application/x-www-form-urlencoded; charset=UTF-8';
  HTTP.UserAgent := 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; WOW64; Trident/6.0)';
  if HTTP.HTTPMethod('Post', 'http://{тут_мог_быть_ваш_адресс}/testlicfile/Perm_License.txt') then
  begin
    HTML.LoadFromStream(HTTP.Document);
    if Pos((FLogin.sEdit1.Text + '_' + FLogin.sEdit2.text + '_' + FLogin.sEdit3.text + '_READY'), HTML.text) <> 0 then
    begin
      IniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'ArcheAge.ini');
      IniFile.WriteString('LOGIN', 'SKYPE', FLogin.sEdit1.Text);
      IniFile.WriteString('LOGIN', 'HWID', FLogin.sEdit2.Text);
      IniFile.WriteString('LOGIN', 'KEYPS', FLogin.sEdit3.Text);
      IniFile.Free;
      Form2.Caption := 'Информация - [Лицензия: ' + FLogin.sEdit1.Text + ']';
      Form1.Show;
      FLogin.AlphaBlend := True;
      FLogin.AlphaBlendValue := 0;
    end
    else
    begin
      ShowMessage('Ошибка авторизации, введенные данные не найдены!');
    end;
    HTML.Free;
    HTTP.Free;
  end;
end;

    Узрел тут такой шедевр на одном из форумов. Типа защита от взлома:)

    Запостил: Cynicrus, 30 Марта 2015

    Комментарии (5) RSS

    • ava guest 03.04.2015 23:00 # +1

      Гниль-то какая. HTTP := THTTPSend.Create; - это синапс. Хоть и обёртка, а почитай, голый сок, его пилить и пилить.
      Ответить

    • ava Stertor 25.04.2015 23:09 # −1

      >>
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV4.exe'), SW_HIDE);
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV5.exe'), SW_HIDE);
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV6.exe'), SW_HIDE);
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV7.exe'), SW_HIDE);
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV8.exe'), SW_HIDE);
      WinExec(PANsiChar('TASKKILL /F /IM HttpAnalyzerStdV9.exe'), SW_HIDE);
      if FLogin.sEdit1.Text = '' then
      raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');
      if FLogin.sEdit2.Text = '' then
      raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');
      if FLogin.sEdit3.Text = '' then
      raise Exception.Create('Ошибка авторизации, введенные данные не найдены!');

      Жаль, что шаблонное мышление ныне свойственно даже школоте. Шаг влево, шаг вправо - считается ошибкой. Только вперрёд - навстречу глюкам и тормозам.
      Ответить

      • ava Stallman 26.04.2015 01:10 # −1

        А ты попробуй выполнить лабу не по методичке.
        Ответить

        • ava kegdan 26.04.2015 01:38 # −1

          особенно когда ты ты видишь паскаль второй раз в жизни
          Ответить

    • ava Stertor 27.04.2015 14:44 # −2

      Минус выблядкам!
      Ответить

    Добавить комментарий