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

function RussianToUnicode(S: String): String;
   var Wrd:Word;
     pW,pR:PWord;
    len:Integer;
   begin
    pW:=@S[1];
     len:=Length(S);
    SetLength(Result,len);
    pR:=@Result[1];
     while Len<>0 do begin
       Wrd:=pW^;
      case Wrd of
       $C0..$DF,$E0..$FF:pR^:=Wrd+50;
        else pR^:=Wrd;
      end;
      inc(pW);
     inc(pR);
    dec(Len);
   end;
  end;

RussianToUnicode(StrPage );

S:=TMemoryStream.Create;
Http.Post('...', S);
S.position:=0;
Memo1.Lines.LoadFromStream(S);
S.Free;

<meta name="description" content="Ìîé Ìèð - Âàøè îäíîêëàññíèêè, îäíîêóðñíèêè, è äðóçüÿ ðÿäîì ñ Âàìè. Óäîáíûé ïîèñê áûâøèõ âûïóñêíèêîâ, ñòàðûõ äðóçåé, íîâûõ çíàêîìûõ." />
<meta name="keywords" content="çíàêîìñòâà, ñàéò çíàêîìñòâ, äðóçüÿ, äðóã, òîâàðèù, ïîèñê ëþäåé, íàéòè, îäíîêëàññíèê, îäíîêëàññíèöà, îäíîêëàññíèêè, îäíîêëàñíèêè, îäíîêóðñíèê, ñîêóðñíèê, âûïóñêíèê, êîëëåãè, øêîëà, èíñòèòóò, óíèâåðñèòåò, ïòó, òåõíèêóì, ó÷èëèùå, ãèìíàçèÿ" />




<script type="text/javascript">