uses StrUtils;

implementation
const
   XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用

{$R *.dfm}

function Enc(Str:String):String;//字符加密函數  這是用的一個異或加密
var
 i,j:Integer;
begin
 Result:='';
 j:=0;
 for i:=1 to Length(Str) do
   begin
     Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
     j:=(j+1) mod 3;
   end;
end;


function RightStr(Const Str: String; Size: Word): String;
begin
  if Size > Length(Str) then Size := Length(Str) ;
  RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
    (Const Str: String; From, Size: Word): String;
begin
  MidStr := Copy(Str, From, Size)
end;
function LeftStr
    (Const Str: String; Size: Word): String;
begin
  LeftStr := Copy(Str, 1, Size)
end;


procedure TForm1.Button1Click(Sender: TObject);
var
     i:integer;
     F: TextFile;
     Str,mac: string;
    begin 
     //取Temp.txt文件末行截取右17位Mac加密
    AssignFile(F,temp);
    Reset(F);
    while not eof(F) do
    begin
     Readln(F,str);
     for i:=1 to length(str) do
     begin
     if midstr(str,i,11)='MAC Address' then
      mac:=enc(RightStr(str,17));
     end;
    end;
    CloseFile(F);
    end;
end.