ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var icq: cardinal; i:integer;
begin

icq:=StrToInt(UIN);
ICQClient1.SendMessage(icq,Memo2.Lines[i]);
sleep(2000);
Memo2.Lines[i]:=Memo2.Lines[i+1];
end;

var
 x:integer;
 sum,cnt:integer;
 s:string;
begin
 s:=memo1.text;
 sum:=0;
 cnt:=0;
 for x:=1 to length(s) do
  if (ord(s[x])>$7F) then
   begin
    inc(cnt);
    sum:=sum+ord(s[x]);
   end;
 if cnt=0 then ShowMessage('А хер его знает что там');
  else if (sum div cnt<$C0) then showmessage('DOS')
    else showmessage('WIN');
end;

  for i:= 1 to SpinEdit1.Value do begin
    a[i]:=TNewThread.Create(true);
    a[i].FreeOnTerminate:=true;
    a[i].Priority:=tpLOWER;
    a[i].LoginTH:=copyLogin(Source.Strings[i]);
    a[i].passTH:=copyPass(Source.Strings[i]);
    a[i].Resume;
    application.ProcessMessages;
    if Application.Terminated then break;
    if stop then break;
    ThreadsLBL.Caption:=IntToStr(i);
  end;