delphi10 jsfuck解密代码

同样是使用 Delphi 10，你可以使用以下代码来解密 JSFuck：

function DecodeJSFuck(const Code: string): string;
var
  i: Integer;
  CodeLength: Integer;
  DecodedCode: string;
begin
  CodeLength := Length(Code);
  DecodedCode := '';
  for i := 1 to CodeLength do
  begin
    case Code[i] of
      '+', '-':
        begin
          DecodedCode := DecodedCode + Code[i];
        end;
      '!', '[':
        begin
          DecodedCode := DecodedCode + Code[i] + Code[i + 1] + Code[i + 2];
          Inc(i, 2);
        end;
      ']':
        begin
          // do nothing
        end;
      '(': // convert to String.fromCharCode()
        begin
          DecodedCode := DecodedCode + 'String.fromCharCode(';
          Inc(i);
          while Code[i] <> ')' do
          begin
            DecodedCode := DecodedCode + Code[i];
            Inc(i);
          end;
          DecodedCode := DecodedCode + ')';
        end;
      '{':
        begin
          DecodedCode := DecodedCode + Code[i] + Code[i + 1] + Code[i + 2] + Code[i + 3];
          Inc(i, 3);
        end;
      '}':
        begin
          // do nothing
        end;
    end;
  end;
  Result := DecodedCode;
end;

这段代码与 Delphi XE 的代码是相同的，使用方法也一样。你只需要将 JSFuck 代码作为参数传递给该函数即可得到解密后的 JavaScript 代码。