求一个Delphi写法转换到E语言

理想很遥远

function EncrypStr(Src, Key: string): string; //字符串加密函数
//对字符串加密(Src:源 Key:密匙)
var
  KeyLen: Integer;
  KeyPos: Integer;
  offset: Integer;
  dest: string;
  SrcPos: Integer;
  SrcAsc: Integer;
  Range: Integer;
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then
    Key := ('legendsoft');
  KeyPos := 0;
  Range := 256;
  Randomize;
  offset := Random(Range);
  dest := Format('%1.2x', [offset]);
  for SrcPos := 1 to Length(Src) do begin
    SrcAsc := (Ord(Src[SrcPos]) + offset) mod 255;
    if KeyPos < KeyLen then KeyPos := KeyPos + 1
    else KeyPos := 1;
    SrcAsc := SrcAsc xor Ord(Key[KeyPos]);
    dest := dest + Format('%1.2x', [SrcAsc]);
    offset := SrcAsc;
  end;
  Result := dest;
end;

function DecrypStr(Src, Key: string): string; //字符串解密函数
var
  KeyLen: Integer;
  KeyPos: Integer;
  offset: Integer;
  dest: string;
  SrcPos: Integer;
  SrcAsc: Integer;
  TmpSrcAsc: Integer;
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then Key := ('legendsoft');
  KeyPos := 0;
  offset := StrToInt('$' + Copy(Src, 1, 2));
  SrcPos := 3;
  repeat
    SrcAsc := StrToInt('$' + Copy(Src, SrcPos, 2));
    if KeyPos < KeyLen then KeyPos := KeyPos + 1
    else KeyPos := 1;
    TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);
    if TmpSrcAsc <= offset then TmpSrcAsc := 255 + TmpSrcAsc - offset
    else TmpSrcAsc := TmpSrcAsc - offset;
    dest := dest + Chr(TmpSrcAsc);
    offset := SrcAsc;
    SrcPos := SrcPos + 2;
  until SrcPos >= Length(Src);
  Result := dest;
end;


加密参数：

szParamStr := EncrypStr(Format('%s:%d', [ClientSocket.Address, ClientSocket.Port]), '');

chencong5025

理想很遥远 发表于 2020-9-4 19:50
可以发我一下吗？

加Q 305230354

神女软件定制

这是白嫖……

花老板

采纳率太低了，，，，解答了都怕不采纳啊兄弟。。

你来我深情不拥

我这边建议你比葫芦画瓢 比如 var  这个是易语言变量。 其实我也不是很懂

function EncrypStr(Src, Key: string): string; //字符串加密函数
//对字符串加密(Src:源 Key:密匙)
var
  KeyLen: Integer;
  KeyPos: Integer;
  offset: Integer;
  dest: string;
  SrcPos: Integer;
  SrcAsc: Integer;
  Range: Integer;
begin

dnxl

function EncrypStr(Src, Key: string): string; //字符串加密函数
//对字符串加密(Src:源 Key:密匙)
var
  KeyLen: Integer;   //密匙长度
  KeyPos: Integer;  // 密匙当前位置
  offset: Integer;  //随机数
  dest: string;     //字符串临时变量
  SrcPos: Integer;  //源字符串当前位置
  SrcAsc: Integer;  //字符字节码
  Range: Integer;   //随机数范围
begin
  KeyLen := Length(Key);
  if KeyLen = 0 then
    Key := ('legendsoft');   //判断密匙是否为空，如果为空密匙= legendsoft
  KeyPos := 0;  //密匙当前位置 =0
  Range := 256; //随机数范围 = 256
  Randomize;
  offset := Random(Range);  //生成随机数
  dest := Format('%1.2x', [offset]);; //随机数转16进制取2位存入临时字符串
  for SrcPos := 1 to Length(Src) do begin     //记次循环 源字符串当前位置 = 1 到 源字符串最大长度
    SrcAsc := (Ord(Src[SrcPos]) + offset) mod 255;  //取出源字符串当前位置的一个字节码 + 随机数 除255取佘 存入字符字节码
    if KeyPos < KeyLen then KeyPos := KeyPos + 1  //如果 密匙当前位置<密匙长度测 密匙当前位置 = 密匙当前位置 + 1
    else KeyPos := 1;  //否则 密匙当前位置 = 1
    SrcAsc := SrcAsc xor Ord(Key[KeyPos]); //取密匙当前位置一个字节码与字符字节码进行异或运算
    dest := dest + Format('%1.2x', [SrcAsc]);  //临时字符串 = 临时字符串 + 异或运算后的字符字节（已转16进制取2位）
    offset := SrcAsc; //随机数=上一个字符字节码
  end;
  Result := dest;  //函数返回 临时字符串
end;

chencong5025

有毛爷爷么

补充内容 (2020-8-30 15:07):
有毛爷爷联系Q 305230354

chencong5025

  带上毛爷爷找我

理想很遥远

花老板 发表于 2020-8-27 12:21
采纳率太低了，，，，解答了都怕不采纳啊兄弟。。

有时候会忙的忘记采纳。。。

理想很遥远

chencong5025 发表于 2020-8-30 16:15
带上毛爷爷找我

可以发我一下吗？