From  http://www.delphigeist.com/2009/09/text-encryption-with-xor.html Text encryption with XOR   Ever wanted to encrypt a text message?In order to do that we need some helper functions like transforming the string to it's hex representation after en…

首先有两个自定的转换函数: function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 to Length(s)do TmpStr:=TmpStr+IntToHex(ord(s[i]),2); Result:=TmpStr; end; function myHexToStr(S:string):string; //16进制转字串 var HexS,…

// 加密方法一(通过密钥加密解密)function EncryptString(Source, Key: string): string;function UnEncryptString(Source, Key: string): string;//加密方法二(通过移位加密解密)function Encode(Str: string): string;function Decode(Str: string): string;//加密方法三(异或加密解密)function Enc(str: st…

1.python有一个网络包urllib,里面有很多网络模块,其中我们常用的就是urllib.request (module)这个模块 2.引入要是用的模块:import urllib.request 3.调用方法获得响应:response = urllib.request.urlopen('http://www.fishc.com') 4.获取服务器返回的html代码:html = response.read() 5.将字节代码进行编码:html = html.decode('utf-8')…

delphi用久了有的时候得给密码加密一下,简单点就行了,这个函数还是不错的. const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); // function Enc(Str:String):String;//字符加密函数 var i,j:Integer;begin Result:=''; j:=0; for i:=1 to Length(Str) do begin Result:=Result+IntToHex(B…

function Encode(Str: string): string; var //加密 TmpChr: AnsiChar; i, Len: integer; begin Result := Str; Len := Length(Result); TmpChr := Result[1]; for i := 1 to Len - 1 do Result[i] := Result[i + 1]; Result[Len] := TmpChr; end; function Decode(Str: s…

unit uEncrypt_Decrypt;   interface   uses SysUtils;   const XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47);   //通过密钥Key加密 function EncryptString(Source, Key: string): string; function UnEncryptString(Source, Key: string): stri…

最近在看一本关于网络游戏服务端开发的书,虽然该书是个空架子,里面没有多少实际的内容(此书评价不好),但其中关于等长加密与解密的代码还是有一定的借鉴作用的.他山之石,可以攻玉.因为书中是C++的代码,所以我花了半个小时的时间将它转换成了Delphi的代码.公布出来便于有这方面需要的朋友可以借鉴使用.   {加解密单元作者:张超}unit uCrypt; interfaceuses  Windows, SysUtils; const  C1        = 52845;  C2        =…

java: import antlr.StringUtils;import org.jeecgframework.core.util.StringUtil; import java.security.SecureRandom; import javax.crypto.Cipher;import javax.crypto.SecretKey;import javax.crypto.SecretKeyFactory;import javax.crypto.spec.DESKeySpec; publi…

从 1994 年开始,笔者就开始接触加密与网路安全的世界,从鲁立忠老师的指导当中获益良多,后来在台湾的元智大学就读研究所的时候,也以此为研究主题. 在当时,电子商务是显学,Visa跟 Master Card还特别为了网路交易制作了厚厚三大本的商务通讯协定,命名为SET (Secure Electronic Transaction,安全电子交易),从客户端.商店端.银行端定义了绵绵密密的交易规范. 然而,网际网路的世界跟 Visa Master Card所熟悉的专用网路世界差的远了,不是大狗们(B…