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

var
  i : Integer;
begin
  for i:=1 to TreeView1.Items[0].Count do
    Memo1.Lines.Add(TreeView1.Items[i].Text);

const
  level = 0;
var
  i : Integer;
begin
  for i := 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items[i].Level = level then
      Memo1.Lines.Add(TreeView1.Items[i].Text);
end;

const
  n = 1;
var
  i : Integer;
begin
  for i := 0 to  TreeView1.Items[n].Count-1 do
    Memo1.Lines.Add(TreeView1.Items[n].Item[i].Text);
end;

  function   StrToHex(AStr:   string):   string;   
  var   
  I:   Integer;   
  Tmp:   string;   
  begin   
      Result   :=   '';   
      For   I   :=   1   to   Length(AStr)   do   
      begin   
          Result   :=   Result   +   Format('%2x',   [Byte(AStr[I])]);   
      end;   
      I   :=   Pos('   ',   Result);   
      While   I   <>   0   do   
      begin   
          Result[I]   :=   '0';   
          I   :=   Pos('   ',   Result);   
      end;   
  end;   
    
  function   TransChar(AChar:   Char):   Integer;   
  begin   
  if   AChar   in   ['0'..'9']   then   
  Result   :=   Ord(AChar)   -   Ord('0')   
  else   
  Result   :=   10   +   Ord(AChar)   -   Ord('A');   
  end;   
    
    
  function   HexToStr(AStr:   string):   string;   
  var   
      I:   Integer;   
      CharValue:   Word;   
  begin   
      Result   :=   '';   
      For   I   :=   1   to   Trunc(Length(Astr)/2)   do   
      begin   
          Result   :=   Result   +   '   ';   
          CharValue   :=   TransChar(AStr[2*I-1])*16   +   TransChar(AStr[2*I]);   
          Result[I]   :=   Char(CharValue);   
      end;   
  end;

function StringtoHex(Data: string): string;
var
  i, i2: Integer;
  s: string;
begin
  i2 := 1;
  for i := 1 to Length(Data) do
  begin
    Inc(i2);
    if i2 = 2 then
    begin
      s  := s + ' ';
      i2 := 1;
    end;
    s := s + IntToHex(Ord(Data[i]), 2);
  end;
  Result := s;
end;