<div dir="ltr">Hi all. It might be I have been mucking around with this too much and have just simply got confused!<div><br></div><div>I am converting some code from Delphi 2007 to 10.1.</div><div>I am having an issue on D 10.1 with this code which is fin under 2007 and it will be due to the unicode stuff that was introduced.</div><div>Can someone let me know how I would convert this to be 10.1 compatible? I have spent some time on it and not really got any where.</div><div><br></div><div>Thanks, Jeremy</div><div><br></div><div><div>function encode_password(passw, hash: string): string;</div><div>var</div><div>  ac, temp: string;</div><div>  pc: array of char;</div><div>  i, lp: integer;</div><div>begin</div><div> if (hash&lt;&gt;&#39;&#39;) and (passw&lt;&gt;&#39;&#39;)</div><div>  then begin</div><div>        lp:=length(passw);</div><div>        setlength(pc,1+lp+16);</div><div>        pc[0]:=#0;</div><div>        move(passw[1],pc[1],lp);</div><div>        for i:=0 to 15</div><div>         do begin</div><div>             ac:=copy(hash,i*2+1,2);</div><div>             if ac&lt;&gt;&#39;&#39;</div><div>              then pc[1+lp+i]:=Chr(StrToInt(&#39;$&#39; + ac));</div><div>            end;</div><div>        temp:=GetMD5(@pc[0], 1+lp+16);  //GETMD5 is in the OverByteICS code so should be ok</div><div>       end</div><div>  else begin</div><div>        temp:=&#39;#error#&#39;;</div><div>       end;</div><div> result:=lowercase(temp);</div><div>end;</div></div></div>