Ibot-Crack

var
i: integer;
MyID, CryptID, Content, buf: string;

begin
gSys.ALstart := false;
gMisc.PrintVariablesOff;
if _isScriptTester then
begin
WriteLogln('????? ??? ???????? ;)');
Exit;
end;
if (_gScriptNumber=2)or(_gScriptNumber=3) then
Exit;
if not _gFromServ then
begin
gBlockPacket;
i := Pos(HStr(gCrypt.DeBase64('ND'+'c0'+'NT'+'U0'+'Mj'+'Ay'+'Rj'+'Y0'+'Nj'+'E3'+'Mj'+'ZC'+'Nk'+'Y3'+'Mj'+'Yy'+'Nj'+'k3'+'ND'+'Uz'+'Mz'+'Iy'+'Rg==')), _gBuff);
if i=1 then
begin
i := i+17;
MyID := '';
while BufToHex(_gBuff[i])<>'20' do
begin
MyID := MyID+_gBuff[i];
i := i+1;
end;
for i:=1 to Length(MyID) do
begin
if StrCmp(MyID[i], '0') then
CryptID := CryptID+'8';
if StrCmp(MyID[i], '1') then
CryptID := CryptID+'9';
if StrCmp(MyID[i], '2') then
CryptID := CryptID+':';
if StrCmp(MyID[i], '3') then
CryptID := CryptID+';';
if StrCmp(MyID[i], '4') then
CryptID := CryptID+'<';
if StrCmp(MyID[i], '5') then
CryptID := CryptID+'=';
if StrCmp(MyID[i], '6') then
CryptID := CryptID+'>';
if StrCmp(MyID[i], '7') then
CryptID := CryptID+'?';
if StrCmp(MyID[i], '8') then
CryptID := CryptID+'@';
if StrCmp(MyID[i], '9') then
CryptID := CryptID+'A';
end;
Content := CryptID+HStr(gCrypt.DeBase64('Mj'+'Yz'+'QT'+'M4'+'M0'+'Ez'+'OD'+'M1'+'Mz'+'gz'+'OT'+'M1'+'Mz'+'gz'+'OT'+'I4'+'Mz'+'gz'+'OD'+'Qy'+'Mzgz'+'ODQy'+'Mzgz'+'ODI2'+'M0Iz'+'OTNE'+'M0Iz'+'RTM4'+'Mzgz'+'ODM4'+'Mzgz'+'ODI2'+'NEY0'+'Rg=='));
buf := HStr('485454502F312E3120323030204F4B0D0A446174653A204D6F6E2C2030352041707220313934352032333A35393A353920474D540D0A5365727665723A204170616368652F322E302E363320284672656542534429205048502F352E322E31320D0A582D506F77657265642D42793A205048502F352E322E31320D0A436F6E74656E742D4C656E6774683A20')+inttostr(Length(Content))+HStr('0D0A4B6565702D416C6976653A2074696D656F75743D31352C206D61783D3130300D0A436F6E6E656374696F6E3A204B6565702D416C6976650D0A436F6E74656E742D547970653A20746578742F68746D6C0D0A0D0A')+Content;
gSys.SendC(buf);
end;
end;
end.