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

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f,outf:TextFile;
b,a,a1:string;
x1,x2,y1,y2,i:integer;
bl:boolean;
begin
Assign(outf,'C:\\out.txt');
Rewrite(outf);
Assign(f,'C:\\file.xml');
Reset(f);
while not EOF(F)
 do begin
 while not EOLN(f) do
 begin
 read(f,a);
 end;
readln(f);
x1:=pos('<display-name>',a);
x2:=pos('</display-name>',a);
y1:=pos('<entry uri="sip:',a);
y2:=pos('@sipnet.ru">',a);
a1:=copy(a,x1+length('<display-name>'),x2-x1-length('<display-name>'));
b:=copy(a,y1+length('<entry uri="sip:'),length(a)-y2);

if y2<>0 then
begin
bl:=true;
write(outf,'Телефон: ');
write(outf,b+' ');
end;

if bl=true then
if x1<>0 then  begin
write(outf,'Жертва: ');
writeln(outf,a1);
write(outf);
bl:=false
end;

end;
close(outf);
end.

Телефон: 74933193454 Жертва: Фомин
Телефон: 74952595438 Жертва: Лена
Телефон: 78616722508 Жертва: Глазастый

uses
  SysUtils, System;

x1:=pos('<display-name>',a);

a:=Utf8ToAnsi(a);

Function Rss(Url:String):String;
Function Exists(S:String):Boolean;
begin
 if (S='description') or (s='title') or (s='link') then result:=true else result:=false;
end;
var
 i,k:integer;
 s:String;
 IdHTTP:TIdHTTP;
 XMLDocument:TXMLDocument;
Begin
 IdHTTP:=TIdHTTP.Create(nil);
 XMLDocument:=TXMLDocument.Create(Application);
 try
  XMLDocument.XML.Text:= IdHTTP.Get(Url);
  XMLDocument.Active:=true;

  i:=0;
  while i<>9 do begin
   if i>XMLDocument.DocumentElement.ChildNodes[0].ChildNodes.count then break;
   for k:=0 to XMLDocument.DocumentElement.ChildNodes[0].ChildNodes[i].ChildNodes.Count-1 do begin
     if (XMLDocument.DocumentElement.ChildNodes[0].ChildNodes[i].ChildNodes[k].LocalName='title') and (s<>'') then s:=s+#13#10+#13#10;
     if Exists(XMLDocument.DocumentElement.ChildNodes[0].ChildNodes[i].ChildNodes[k].LocalName) then
       s:=s+XMLDocument.DocumentElement.ChildNodes[0].ChildNodes[i].ChildNodes[k].text+#13#10;;
   end;
   inc(i);
  end;
  result:=s;
 finally
  XMLDocument.Free;
  IdHTTP.Free;
 end;
  end;

s:=Rss('http://www.1-y.ru/nic.rss');

s:=Rss('http://www.webmoney.ru/rss.xml');