没事干 异或加密go版 Delphi版

chencong5025

Delphi版本【10.3.3】

function EncryptStr(const S: WideString; Key: Word): String;
var
  i: Integer;
  RStr: RawByteString;
  RStrB: TBytes Absolute RStr;
begin
  Result := '';
  RStr := UTF8Encode(S);
  for i := 0 to Length(RStr) - 1 do
  begin
    RStrB[i] := RStrB[i] xor (Key shr 8);
    Key := (RStrB[i] + Key) * CKEY1 + CKEY2;
  end;
  for i := 0 to Length(RStr) - 1 do
  begin
    Result := Result + IntToHex(RStrB[i], 2);
  end;
end;
function DecryptStr(const S: String; Key: Word): String;
var
  i, tmpKey: Integer;
  RStr: RawByteString;
  RStrB: TBytes Absolute RStr;
  tmpStr: string;
begin
  tmpStr := UpperCase(S);
  SetLength(RStr, Length(tmpStr) div 2);
  i := 1;
  try
    while (i < Length(tmpStr)) do
    begin
      RStrB[i div 2] := StrToInt('$' + tmpStr[i] + tmpStr[i + 1]);
      Inc(i, 2);
    end; // delphitop.com
  except
    Result := '';
    Exit;
  end;
  for i := 0 to Length(RStr) - 1 do
  begin
    tmpKey := RStrB[i];
    RStrB[i] := RStrB[i] xor (Key shr 8);
    Key := (tmpKey + Key) * CKEY1 + CKEY2;
  end;
  Result := UTF8Decode(RStr);

end;

go语言版本

const CKEY1,CKEY2 =1239,5648

func jiami(da string,Key int) string {
        var RStrB =[]byte(da)
        for i:=0;i<len(RStrB);i++{
                RStrB[i] =byte (int(RStrB[i])^(Key>>8))//Key>>8
                Key = (int(RStrB[i]) + Key) * CKEY1 + CKEY2
}
        return strings.ToTitle(hex.EncodeToString(RStrB))
}
func jiemi(da string,Key int)string{
        var RstrB, _ =hex.DecodeString(da)
        for i :=0;i<len(RstrB);i++{
                tpkey:=RstrB[i]
                RstrB[i] =byte (int(RstrB[i])^(Key>>8))
                Key = (int(tpkey) + Key) * CKEY1 + CKEY2
        }
        return string(RstrB)
}

orjg

了解一下  

小渣渣哦

涨知识了

jiang910615

我写了个汇编版的

applepear

哈哈，不懂delphi

chencong5025

Key>>8 是Key>>8