K king_213 Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-02 #2 将字符串里的电话号码加密 谢谢！！！ 字符串格式： XXXXX...XXXXX*XXXXXXX XXXXXXX XXXXXXXXXXX（ * 后面是电话号码）
L lake_cx Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-02 #4 找DES，要简单自己异或 function XorString(Str: string; Ch: Char): string; var i, Len: Integer; begin Len := Length(Str); SetLength(Result, Len); for i := 1 to Len do Result := Char(Byte(Str) xor Byte(Ch)); end;
找DES，要简单自己异或 function XorString(Str: string; Ch: Char): string; var i, Len: Integer; begin Len := Length(Str); SetLength(Result, Len); for i := 1 to Len do Result := Char(Byte(Str) xor Byte(Ch)); end;
