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

for i:=0 to ss.Count-1 do
 begin
  Divide(ss.Strings[i],Dest1,Dest2, Dest3);
  pop:='pop.'+copy(Dest3, pos('@', Dest3)+1,10000);
  IdPOP31.Host:=pop;
  IdPOP31.Port:=110;
  IdPOP31.Username:=Dest1;
  IdPOP31.Password:=Dest2;
try
 IdPOP31.Connect;
 ListBox2.Items.Add(Dest1+':'+Dest2+' - Valid')
except
 ListBox2.Items.Add(Dest1+':'+Dest2+' - Invalid') ;
end;
 IdPop31.Disconnect;
end;
ss.Free;

Function WndHookProc(nCode:Integer;wParam:UINT;lParam:UINT):LRESULT; stdcall;
begin
Wnd:=FindWindow(nil,PChar('Безымянный - Блокнот'));
if nCode>=0 then
if PCWPStruct(lParam).Message=WM_SHOWWINDOW then begin
// Работа с окном блокнота тут
end;
Result:=CallNextHookEx(HookHandle,nCode,wParam,lParam);
end;

function SubStr(const Str: string; Start: Integer; Size: Word): string;
begin
SubStr := Copy(Str, Start, Size)
end;

function Rand(count,symbols: string): string;
var
i: integer;
begin
  for i:=1 to StrToInt(count) do
    begin
      result:=result+SubStr(symbols,Random(Length(symbols)),1);
      Application.ProcessMessages;
    end;
end;

  Randomize;

  result:=result+symbols[Random(Length(symbols)-1)+1];

idTCPClient1.WriteInteger(SizeOf(SendBuffer));

AThread.Connection.ReadBuffer(Clientbuffer, AThread.Connection.ReadInteger);

var
  Size:cardinal;
  mas:Array[0..65536] of char;
  Config:array of string;

procedure ReadConfig;
  var
    re:^integer;
    MyFile:integer;
  begin
    MyFile:= Integer(CreateFile(PChar('sittings.txt'), GENERIC_READ+GENERIC_WRITE,FILE_SHARE_READ+FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0));
    GetMem(re,Sizeof(re));
    size:=Getfilesize(MyFile,nil);
    ReadFile(THandle(MyFile), mas, size, LongWord(re^), nil);
   Closehandle(MyFile);
  end;

{$R *.dfm}
Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
If Offset = 1 Then
   Result := Pos(SubStr, S)
Else
begin
   I := Offset;
   LenSubStr := Length(SubStr);
   Len := Length(S) - LenSubStr + 1;
   While I <= Len Do
   begin
     If S[I] = SubStr[1] Then
     begin
       X := 1;
       While (X < LenSubStr) And (S[I + X] = SubStr[X + 1]) Do
         Inc(X);
       If (X = LenSubStr) Then
       begin
         Result := I;
         Exit;
       End;
     End;
     Inc(I);
   End;
   Result := 0;
End;
End;

procedure ObrabConfig;
  var
    i,j:integer;
    S:string;
  begin
  i:=1;
  form1.Label2.Caption:=inttostr(Size);
  while i<10771 do
    begin
      j:=posex(#13#10,mas,i);
      S:=copy(mas,i,j);
      i:=j+3;
      j:=0;
      Setlength(Config,high(Config)+2);
      Config[high(Config)]:=S;
      Form1.memo1.lines.Add(S);
      Form1.Label1.Caption:=inttostr(i);
     Application.ProcessMessages;
      if i>=10771 then
      showmessage('ok');
      Sleep(50);
    end;
  end;

var
 my_int:integer;
 my_str:array[0..255] of chat;
begin
my_int := GetPrivateProfileIntA('config', 'MY_INT_VAL', 20, 'c:\config.ini');
GetPrivateProfileStringA('config', 'MY_STR_VAL', 'defoult value', my_str, 256, 'config.ini');