لماذا لا يمكنني إحضار صورة AOL Captcha في برنامج Delphi الخاص بي؟

StackOverflow https://stackoverflow.com/questions/2724233

  •  02-10-2019
  •  | 
  •  

سؤال

رمز تجريبي جديد:

أحاول الحصول على صورة Captcha من AOL ، وأواصل الحصول على خطأ 418.

unit imageunit;
///
///  https://new.aol.com/productsweb/
///
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
  IdSSLOpenSSL, IdIntercept, IdZLibCompressorBase, IdCompressorZLib,
  IdCookieManager, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP,jpeg,GIFImg, ExtCtrls, PerlRegEx;

type
  TForm2 = class(TForm)
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    IdCompressorZLib1: TIdCompressorZLib;
    IdConnectionIntercept1: TIdConnectionIntercept;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Button1: TButton;
    PerlRegEx1: TPerlRegEx;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

function getaimcaptchaimage(data:string):string;
var
    Regex: TPerlRegEx;
    ResultString: string;
begin
Regex := TPerlRegEx.Create(nil);
Regex.RegEx := '<img src="/productsweb/WordVerImage?(.*?)"';
Regex.Options := [preCaseless];
Regex.Subject := data;
if Regex.Match then begin
    if Regex.SubExpressionCount >= 1 then begin
        ResultString := Regex.SubExpressions[1];
    end;
  result:=Resultstring;
end;
end;


procedure TForm2.Button1Click(Sender: TObject);
var
  JPI : TJPEGImage;
  streamdata:TMemoryStream;
  SStream: Tstringstream;
  website:string;
begin
  streamdata := TMemoryStream.Create;
  SStream := tstringstream.Create ( '' );

  try
  idhttp1.Get('https://new.aol.com/productsweb/',SStream);
  memo1.Text:=UTF8ToWideString ( SStream.DataString );
  website:='https://new.aol.com/productsweb/WordVerImage'+getaimcaptchaimage( UTF8ToWideString ( SStream.DataString ));
  form2.Caption:=website;
  idhttp1.Get(website, Streamdata);
          Except
          { Handle exceptions }
          On E : Exception Do
               Begin
                MessageDlg('Exception: '+E.Message,mtError, [mbOK], 0);
               End;

          End;

  //https://new.aol.com/productsweb/WordVerImage?20890843
  //https://new.aol.com/productsweb/WordVerImage?91868359


  ///
  ///  gives error 418 unused
  ///

  streamdata.Position := 0;
  JPI := TJPEGImage.Create;
  Try
  JPI.LoadFromStream ( streamdata );
  Finally
  Image1.Picture.Assign ( JPI );
  JPI.Free;
  streamdata.Free;
  End;

end;

end.

استمارة:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 247
  ClientWidth = 480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 480
    Height = 206
    Align = alClient
    TabOrder = 0
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 478
      Height = 115
      Align = alClient
      ExplicitLeft = 5
      ExplicitTop = 17
      ExplicitWidth = 200
      ExplicitHeight = 70
    end
    object Memo1: TMemo
      Left = 1
      Top = 116
      Width = 478
      Height = 89
      Align = alBottom
      TabOrder = 0
      ExplicitLeft = 80
      ExplicitTop = 152
      ExplicitWidth = 185
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 480
    Height = 41
    Align = alTop
    TabOrder = 1
    object Button1: TButton
      Left = 239
      Top = 6
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object IdHTTP1: TIdHTTP
    Intercept = IdConnectionIntercept1
    IOHandler = IdSSLIOHandlerSocketOpenSSL1
    MaxAuthRetries = 100
    AllowCookies = True
    HandleRedirects = True
    RedirectMaximum = 100
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.Accept = 
      'image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-s' +
      'hockwave-flash, application/cade, application/xaml+xml, applicat' +
      'ion/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-' +
      'application, */*'
    Request.BasicAuthentication = False
    Request.Referer = 'http://www.yahoo.com'
    Request.UserAgent = 
      'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.2.1) Gecko/201001' +
      '22 firefox/3.6.1'
    HTTPOptions = [hoForceEncodeParams]
    CookieManager = IdCookieManager1
    Compressor = IdCompressorZLib1
    Left = 40
    Top = 160
  end
  object IdCookieManager1: TIdCookieManager
    Left = 360
    Top = 136
  end
  object IdCompressorZLib1: TIdCompressorZLib
    Left = 408
    Top = 56
  end
  object IdConnectionIntercept1: TIdConnectionIntercept
    Left = 304
    Top = 72
  end
  object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
    Intercept = IdConnectionIntercept1
    MaxLineAction = maException
    Port = 0
    DefaultPort = 0
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 192
    Top = 136
  end
  object PerlRegEx1: TPerlRegEx
    Options = []
    Left = 120
    Top = 56
  end
end

إذا ذهبت إلى https://new.aol.com/productsweb/ستلاحظ أن صورة Captcha تحتوي على عنوان URL https://new.aol.com/productsweb/wordverimage؟91868359

أضع عنوان URL هذا في مربع التحرير وأحصل على خطأ.

ما هو الخطأ في هذا الرمز؟

هل كانت مفيدة؟

المحلول

في مشاريعي القديمة ، تم قراءة Captcha من الويب. لقد فعلت ذلك باستخدام إجراءات ذاكرة التخزين المؤقت لمكون متصفح الويب المدمجة. لذلك إذا كان بإمكانك قراءة ملفات الإنترنت المؤقتة من الكود الخاص بك ، فيمكنك قراءة بيانات الصورة من ذاكرة التخزين المؤقت. أضفت رمزًا بسيطًا إلى أدناه ،

يتم الإعلان عن وظائف getCacheDfileFileFlorl و Clearallenries في وحدة Tembeddedwebbrowser. لقد استخدمت فقط رمز النسخ الخاص بي في حولي لحجم EXE المنخفض. ولكن يمكنك استخدام المصدر المحدث للمكون. المكون مفتوح المصدر.

uses
 WinInet;

function GetCachedFileFromURL(strUL: string; var strLocalFile: string): Boolean;
var
   lpEntryInfo: PInternetCacheEntryInfo;
   hCacheDir: LongWord;
   dwEntrySize: LongWord;
   dwLastError: LongWord;
begin
   Result := False;
   dwEntrySize := 0;
  // Begin the enumeration of the Internet cache.
   FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
   GetMem(lpEntryInfo, dwEntrySize);
   hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
   if (hCacheDir <> 0) and (strUL = lpEntryInfo^.lpszSourceUrlName) then
      begin
         strLocalFile := lpEntryInfo^.lpszLocalFileName;
         Result := True;
      end;
   FreeMem(lpEntryInfo);
   if Result = False then
      repeat
         dwEntrySize := 0;
      // Retrieves the next cache group in a cache group enumeration
         FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
         dwLastError := GetLastError();
         if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
            begin
               GetMem(lpEntryInfo, dwEntrySize);
               if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
                  begin
                     if strUL = lpEntryInfo^.lpszSourceUrlName then
                        begin
                           strLocalFile := lpEntryInfo^.lpszLocalFileName;
                           Result := True;
                           Break;
                        end;
                  end;
               FreeMem(lpEntryInfo);
            end;
      until (dwLastError = ERROR_NO_MORE_ITEMS);
end;

procedure TForm1.ClearCache();
begin
  SearchPattern := spAll;
  ClearAllEntries;
end;

الاستخدام

procedure TForm1.Button1Click(Sender: TObject);
var
 fname:string;
 jpImg:TJPEGImage;
begin
  ClearCache;
  try
   jpImg:=TJPEGImage.Create; 
   GetCachedFileFromURL('https://ebildirge.ssk.gov.tr/WPEB/PG',fname);
   jpImg.LoadFromFile(fname);
  finally
   FreeAndNil(jpgImg);
  end;
end;

نصائح أخرى

يوجد ملف تعريف ارتباط. إذا ذهبت مباشرة إلى عنوان URL CAPTCHA https://new.aol.com/productsweb/wordverimage؟91868359 في متصفح لم يزور https://new.aol.com/productsweb/ ثم تحصل (بعد التحديث):

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN"> 
<html><head> 
<title>418 unused</title> 
</head><body> 
<h1>unused</h1> 
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p> 
<p>Please contact the server administrator,
 null and inform them of the time the error occurred,
and anything you might have done that may have
caused the error.</p> 
<p>More information about this error may be available
in the server error log.</p> 
</body></html>

ولكن إذا قمت بزيارة https://new.aol.com/productsweb/ أولاً ، ستحصل على صورة. امسح ملف تعريف الارتباط وستحصل على الخطأ مرة أخرى (على الرغم من أن فرانسوا أشرت ، فلن تحصل على أي استجابة أولاً ، ثم تحصل على الصورة.

تدعم Indy ملفات تعريف الارتباط ، لذلك ستحتاج إلى إضافة دعم لملفات تعريف الارتباط ، ثم إما الحصول على ملف تعريف الارتباط عن طريق زيارة ProductSweb أولاً ، أو محاكاةها من قيمة معروفة.

ستلاحظ أن الصورة التي تم إنشاؤها لا تستند إلى الرقم الذي تم تمريره كمعلمة وحدها ، ولكن أيضًا ملف تعريف الارتباط. امتلك اثنين من المتصفحين المختلفين (Chrome و Firefox) لكل منهما ملف تعريف ارتباط مختلف ، ثم قم بزيارة عنوان URL نفسه وسيحصل على صورتين مختلفتين.

فضولي ما تحاول إنجازه بهذا.

أعتقد أن هذا يعني "الذهاب بعيدا". بطريقة ما ، من خلال الرؤوس أو أي شيء في طلبك ، فإنه يحدد رائحة الروبوت. ربما لأنك تطلب صورة تعرف أنها لم تصنعك فقط. نعم ، هذا ربما. إذا ذهبت إلى عنوان URL الخاص بك في متصفحي ، أحصل على 418 أيضًا.

إنه ليس رمزك. جرب في متصفح ....
(من الواضح أنك تحتاج إلى إزالة الفراغات من 'http s' ...)

هذا عنوان URL https://new.aol.com/productsweb/ على ما يبدو بحاجة إلى استدعاء قبل أن تتمكن من الحصول على صورة captcha. وإلا فإنك تحصل على خطأ (غير لائق) 418 Unused.
في بعض الأحيان كان عليّ أن أجرب مرتين مع الصورة # حيث حصلت أولاً على ملف 420 Unused خطأ...

من الأفضل أن تسألهم ، لأن واجهة برمجة التطبيقات الخاصة بهم لا تبدو مستقرة حقًا ...

رد: نكتة HTTP 418. إذا كنت تريد بعض المرح مع رموز خطأ HTTP ، فاقرأ على مطور ويب وصديقته (ق)

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top