Delphi与JAVA 互通AES文件加解密源码（支持D6-XE10)

心已赠人 2023-10-04 12:53 21阅读 0赞

Delphi用的人越来越少 了，可用资源越来越少。有什么好的完整的代码我都尽量拿出来跟大家分享，部分内容也是来自互联网整理

Delphi代码：

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,ElAES,math;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
    
    
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
      type
      TKeyBit = (kb128, kb192, kb256);
      TCRLFMode = (rlCRLF, rlLF, rlCR, rlNONE);
    
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    function ChangCRLFType(Value: string; CRLFMode: TCRLFMode): string;
    var
      HasCRLF: Boolean;
    begin
      Result := Value;
      HasCRLF := Pos(#10, Result) > 0;
      if not HasCRLF then
      begin
        HasCRLF := Pos(#13, Result) > 0;
      end;
      if HasCRLF then
      begin
        Result := StringReplace(Result, #13#10, #10, [rfReplaceAll]);
        Result := StringReplace(Result, #10#13, #10, [rfReplaceAll]);
        Result := StringReplace(Result, #13, #10, [rfReplaceAll]);
        if CRLFMode = rlCRLF then
        begin
          Result := StringReplace(Result, #10, #13#10, [rfReplaceAll]);
        end
        else if CRLFMode = rlCR then
        begin
          Result := StringReplace(Result, #10, #13, [rfReplaceAll]);
        end
        else if CRLFMode = rlNONE then
        begin
          Result := StringReplace(Result, #10, '', [rfReplaceAll]);
        end;
      end;
    end;
    
    
    function BytesOf(const Val: AnsiString): TBytes;
    var
      Len: Integer;
    begin
      Len := Length(Val);
      SetLength(Result, Len);
      Move(Val[1], Result[0], Len);
    end;
    
    function StringOf(const buf:TBytes): AnsiString;
    begin
      SetLength(Result, Length(buf));
      CopyMemory(PAnsiChar(result), @buf[0], Length(buf));
    end;
    
    
    { --  流加密函数 默认按照 128 位密匙解密 -- }
    function EncryptStream(Stream: TStream; OutStrm:TStream;Key: string;
      KeyBit: TKeyBit = kb128; KeepKeyCRLF: Boolean = False;
      KeyCRLFMode: TCRLFMode = rlCRLF
      ): TStream;
    var
      Count: Int64;
      AESKey128: TAESKey128;
      AESKey192: TAESKey192;
      AESKey256: TAESKey256;
      SS: TStringStream;
      AnsiKey: TBytes;
    begin
      if KeepKeyCRLF then
      begin
        Key := ChangCRLFType(Key,KeyCRLFMode);
      end;
     // AnsiKey := TEncoding.ASCII.GetBytes(Key);
      AnsiKey :=  BytesOf(Key); //已转为ansi编码
    //  OutStrm := TStream.Create;
      Stream.Position := 0;
      Count := Stream.Size;
      //OutStrm.Write(Count, SizeOf(Count));
      try
        { --  128 位密匙最大长度为 16 个字符 -- }
        if KeyBit = kb128 then
        begin
          FillChar(AESKey128, SizeOf(AESKey128), 0);
          Move(PByte(AnsiKey)^, AESKey128, Min(SizeOf(AESKey128), Length(AnsiKey)));
          EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm);
        end;
        { --  192 位密匙最大长度为 24 个字符 -- }
        if KeyBit = kb192 then
        begin
          FillChar(AESKey192, SizeOf(AESKey192), 0);
          Move(PByte(AnsiKey)^, AESKey192, Min(SizeOf(AESKey192), Length(AnsiKey)));
          EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm);
        end;
        { --  256 位密匙最大长度为 32 个字符 -- }
        if KeyBit = kb256 then
        begin
          FillChar(AESKey256, SizeOf(AESKey256), 0);
          Move(PByte(AnsiKey)^, AESKey256, Min(SizeOf(AESKey256), Length(AnsiKey)));
          EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm);
        end;
        Result := OutStrm;
      finally
        //FreeAndNil(OutStrm);
      end;
    end;
    
    
    { --  流解密函数 默认按照 128 位密匙解密 -- }
    function DecryptStream(Stream: TStream;OutStrm: TStream; Key: string;  KeyBit: TKeyBit = kb128; KeepKeyCRLF: Boolean = False; KeyCRLFMode: TCRLFMode = rlCRLF ): TStream;
    var
      Count, OutPos: Int64;
      AESKey128: TAESKey128;
      AESKey192: TAESKey192;
      AESKey256: TAESKey256;
      SS: TStringStream;
      AnsiKey: TBytes;
    begin
      if KeepKeyCRLF then
      begin
        Key := ChangCRLFType(Key,KeyCRLFMode);
      end;
     // AnsiKey := TEncoding.ASCII.GetBytes(Key);
     AnsiKey :=  BytesOf(Key); //已转为ansi编码
      Stream.Position := 0;
      OutPos := OutStrm.Position;
     //Stream.ReadBuffer(Count, SizeOf(Count));
      count:=Stream.Size - Stream.Position;
      try
        { --  128 位密匙最大长度为 16 个字符 -- }
        if KeyBit = kb128 then
        begin
          FillChar(AESKey128, SizeOf(AESKey128), 0);
          Move(PByte(AnsiKey)^, AESKey128, Min(SizeOf(AESKey128), Length(AnsiKey)));
    
          //add by phx 2016-02-02
          Stream.Position := 0;
    //      DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, AESKey128, OutStrm);
          DecryptAESStreamECB(Stream, count, AESKey128, OutStrm);
        end;
        { --  192 位密匙最大长度为 24 个字符 -- }
        if KeyBit = kb192 then
        begin
          FillChar(AESKey192, SizeOf(AESKey192), 0);
          Move(PByte(AnsiKey)^, AESKey192, Min(SizeOf(AESKey192), Length(AnsiKey)));
          DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, AESKey192,
            OutStrm);
        end;
        { --  256 位密匙最大长度为 32 个字符 -- }
        if KeyBit = kb256 then
        begin
          FillChar(AESKey256, SizeOf(AESKey256), 0);
          Move(PByte(AnsiKey)^, AESKey256, Min(SizeOf(AESKey256), Length(AnsiKey)));
          DecryptAESStreamECB(Stream, Stream.Size - Stream.Position, AESKey256,
            OutStrm);
        end;
        OutStrm.Size := OutPos + Count;
        OutStrm.Position := OutPos;
        Result := OutStrm;
      finally
        //FreeAndNil(OutStrm);
      end;
    end;
    
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      InStream,OutStream: TMemoryStream;
      password: string;
    begin
      password := 'fy22moe2cobs4ygs';
      InStream := TMemoryStream.Create;
      OutStream := TMemoryStream.Create;
      try
       //InStream := download_file_to_stream('http://localhost:8080/docs/1_encrypted.jpg', http_download_stream);
        InStream.LoadFromFile('E:\软件\idea_setting_Eecrypted.zip');
        InStream.Position := 0;
        OutStream := DecryptStream(InStream, OutStream, password) as TMemoryStream;
        OutStream.Position := 0;
        OutStream.SaveToFile('D:\idea_setting_Decrypted.zip');
      finally
        InStream.Free;
        OutStream.Free;
      end;
    
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      my_stream: TMemoryStream;
      out_stream: TMemoryStream;
      password: string;
    begin
      password := 'test_password123';
      try
        my_stream := TMemoryStream.Create;
        out_stream := TMemoryStream.Create;
        my_stream.LoadFromFile('d:\1.jpg');
        EncryptStream(my_stream, out_stream, password);
        out_stream.Position := 0;
        out_stream.SaveToFile('d:\1_encrypted.jpg');
      finally
        out_stream.Free;
        my_stream.Free;
      end;
    
    end;
    
    end.

JAVA代码：

import javax.crypto.Cipher;
    import javax.crypto.spec.SecretKeySpec;
    import java.io.ByteArrayOutputStream;
    import java.io.File;
    import java.io.FileInputStream;
    import java.io.FileOutputStream;
    import java.security.Key;
    
    /**
     * @author wh445306
     * @version 1.0
     * @Description
     * @Date 2021-05-08 23:46
     */
    
    
    public class AES {
    
    
       private static final String PASSWORD ="fy22moe2cobs4ygs";
    
        public static byte[] encrypt(byte[] Data) throws Exception {
            Key key = new SecretKeySpec(PASSWORD.getBytes(), "AES");
            // Cipher cipher =Cipher.getInstance("AES/ECB/PKCS5Padding");
            Cipher cipher = Cipher.getInstance("AES");
            cipher.init(Cipher.ENCRYPT_MODE, key);
            byte[] encVal = cipher.doFinal(Data);
            return encVal;
        }
    
        public static byte[] decrypt(byte[] encryptedData) throws Exception {
            Key key = new SecretKeySpec(PASSWORD.getBytes(), "AES");
            Cipher chiper = Cipher.getInstance("AES");
            chiper.init(Cipher.DECRYPT_MODE, key);
            byte[] decValue = chiper.doFinal(encryptedData);
            return decValue;
        }
    
        public static void encodeFile(String sourceFile,String outputFile) throws Exception {
            File file = new File(sourceFile);
            FileInputStream in = new FileInputStream(file);
            try{
                ByteArrayOutputStream bout = new ByteArrayOutputStream();
                byte[] tmpbuf = new byte[1024];
                int count = 0;
                while ((count = in.read(tmpbuf)) != -1) {
                    bout.write(tmpbuf, 0, count);
                    tmpbuf = new byte[1024];
                }
                byte[] orgData = bout.toByteArray();
                byte[] raw = encrypt(orgData);
                file = new File(outputFile);
                FileOutputStream out=null;
                try {
                    out= new FileOutputStream(file);
                    out.write(raw);
                } finally {
                    out.close();
                }
            }finally{
                in.close();
            }
        }
    
        public static void decodeFile(String sourceFile,String outputFile) throws Exception{
            File file = new File(sourceFile);
            FileInputStream fis = new FileInputStream(file);
            try {
                ByteArrayOutputStream bout = new ByteArrayOutputStream();
                byte[] tmpbuf = new byte[1024];
                int count = 0;
                while ((count = fis.read(tmpbuf)) != -1) {
                    bout.write(tmpbuf, 0, count);
                    tmpbuf = new byte[1024];
                }
                byte[] orgData = bout.toByteArray();
                byte[] raws = decrypt(orgData);
    
                file = new File(outputFile);
                FileOutputStream fos = null;
                try {
                    fos = new FileOutputStream(file);
                    fos.write(raws);
                } finally {
                    fos.close();
                }
            } finally {
                fis.close();
            }
        }
    
        public static void main(String[] args) {
    //        String input_file="d:/1.jpg";
    //        String output_file="d:/1_encrypted.jpg";
    //        String after_decrypt_file="d:/2.jpg";
    //        try {
    //            encodeFile(input_file,output_file);
    //            decodeFile(output_file,after_decrypt_file);
    //        } catch (Exception e) {
    //            e.printStackTrace();
    //        }
    
    //        String input_file="D:\\Delphi_Project\\ETC\\bill_20210430_230103001_1_2.zip";
    //        String output_file="D:\\Delphi_Project\\ETC\\bill_20210430_230103001_1_2_Decrypted.zip";
            String input_file="E:\\软件\\idea_setting.zip";
            String output_file="E:\\软件\\idea_setting_Eecrypted.zip";
            //String after_decrypt_file="d:/2.jpg";
            try {
                encodeFile(input_file,output_file);
               // decodeFile(input_file,output_file);
            } catch (Exception e) {
                e.printStackTrace();
            }
    
        }
    }