字符串加解密例子

最新推荐文章于 2022-07-02 11:45:14 发布

nextop88

最新推荐文章于 2022-07-02 11:45:14 发布

阅读量309

点赞数

分类专栏： DELPHI开发

DELPHI开发专栏收录该内容

194 篇文章 4 订阅

订阅专栏

 
 function  
 Enc1( 
 const  
 Str:  
 string 
 ):  
 string 
 ; 
 
 var 
 
     
 i, j:  
 integer 
 ; 
 
 begin 
 
     
 SetLength(Result, Length(Str) *  
 2 
 ); 

    
 
     
 j :=  
 0 
 ; 
 
     
 for  
 i :=  
 0  
 to  
 Length(Str) * sizeof( 
 char 
 ) -  
 1  
 do 
 
     
 begin 
 
        
 PByte(Result)[i *  
 2 
 ] := (PByte(Str)[i]  
 xor  
 XorKey1[j])  
 shr  
 4  
 +  
 48 
 ; 
 
        
 PByte(Result)[i *  
 2  
 +  
 1 
 ] := (PByte(Str)[i]  
 xor  
 XorKey1[j])  
 and  
 15  
 +  
 48 
 ; 
 
        
 j := (j +  
 1 
 )  
 mod  
 8 
 ; 
 
     
 end 
 ; 
 
 end 
 ; 
 
    
 
 function  
 Dec1( 
 const  
 Str:  
 string 
 ):  
 string 
 ; 
 
 var 
 
    
 i, j:  
 integer 
 ; 
 
 begin 
 
    
 SetLength(Result, Length(Str)  
 div  
 2 
 ); 

    
 
    
 j :=  
 0 
 ; 
 
    
 for  
 i :=  
 0  
 to  
 Length(Result) * sizeof( 
 char 
 ) -  
 1  
 do 
 
    
 begin 
 
      
 PByte(Result)[i] := ((PByte(Str)[i *  
 2 
 ] -  
 48 
 )  
 shl  
 4  
 + 
 
                           
 (PByte(Str)[i *  
 2  
 +  
 1 
 ] -  
 48 
 )  
 and  
 15 
 )  
 xor  
 XorKey1[j]; 
 
      
 j := (j +  
 1 
 )  
 mod  
 8 
 ; 
 
    
 end 
 ; 
 
 end 
 ; 