Terdapat tapak web bernama https://www.guidgenerator.com/online-guid-generator.aspx yang menjana pengecam unik di peringkat global. Saya cuba menggunakan Perl's Mechanize untuk menerbitkan ke tapak web untuk mengekstrak panduan. Saya sedar ini berasaskan javascript tetapi tertanya-tanya sama ada saya boleh membuat siaran yang betul untuk menarik nombor. Saya mengesannya dari pelayar dan mendapat semua tajuk dalam permintaan, tetapi html yang dikembalikan tidak mengandungi panduan.

Ini adalah hasil larian yang berjaya:

<textarea name="txtResults" rows="2" cols="20" id="txtResults" style="font-family:Courier New,Courier,monospace;font-size:Larger;font-weight:bold; Tinggi: 152px; Lebar: 421px ">qk5DF22bhkm4C2AwZ5OcZw==</textarea>

Ini adalah borang dalam halaman: Dalam skrip saya, saya membuang borang dan medan input yang diperlukan berikut:

my @forms = $mech->forms;
foreach my $form (@forms) {
  my @inputfields = $form->param;
  print Dumper \@inputfields;
}

Hasilnya

$VAR1 = [
          '__EVENTTARGET',
          '__EVENTARGUMENT',
          '__LASTFOCUS',
          '__VIEWSTATE',
          '__VIEWSTATEGENERATOR',
          '__EVENTVALIDATION',
          'txtCount',
          'chkUppercase',
          'chkBrackets',
          'chkHypens',
          'chkBase64',
          'chkRFC7515',
          'chkURL',
          'LocalTimestampValue',
          'btnGenerate',
          'txtResults'
        ];

Ini adalah siaran

my $mainpage = "https://www.guidgenerator.com/online-guid-generator.aspx";
$mech->post( "$mainpage",
     fields      => {
       'txtCount' => "1",
       'chkBase64' => "on",
       'LocalTimestampValue' => "Date%28%29.getTime%28%29",
       'btnGenerate' => "Generate+some+GUIDs%21",
       'txtResults' => "",
       '__EVENTTARGET' => 'on',
       '__EVENTARGUMENT', => 'on',
       '__LASTFOCUS', => 'on',
       '__VIEWSTATEGENERATOR' => "247C709F",
       '__VIEWSTATE' => 'on',
       '__EVENTVALIDATION' => 'on',
       'chkUppercase' => 'off',
       'chkBrackets' => 'off',
       'chkHypens' => 'off',
       'chkRFC7515' => 'off',
       'chkURL' => 'off',
     },
);

Apabila saya menjejak di tapak web, saya mendapat pengepala, tetapi terdapat tab lain yang dipanggil "Muatan Muatan". Ini mengandungi kebanyakan medan yang disenaraikan di atas. Saya cuba memasukkan medan ke dalam POST tetapi tidak pasti sama ada saya perlu melakukan ini secara berbeza atau tidak mengapa kerana ia adalah javascript?

Saya tahu ini adalah banyak maklumat. Saya tidak pasti mekanisasi Perl boleh mengeluarkan maklumat ini. Sebarang bantuan amatlah dihargai. Sila beritahu saya sebarang data lain yang anda ingin saya siarkan di sini.