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…

Delphi反汇编内部字符串处理函数/过程不完全列表 名称 参数 返回值 作用 等价形式 / 备注   _PStrCat EAX :目标字符串 EDX :源字符串 EAX 连接两个 Pascal 字符串 s:=copy(s+s1,1,255)   _PStrNCat EAX :目标字符串 EDX :源字符串 CL :结果字符串最大长度 EAX 连接两个 Pascal 字符串 s:=copy(s+s1,1,n)   _PStrCpy EAX :目标字符串 EDX :源字符串 EAX Pascal…

Delphi反汇编内部字符串处理函数/过程不完全列表 名称 参数 返回值 作用 等价形式 / 备注 _PStrCat EAX :目标字符串 EDX :源字符串 EAX 连接两个 Pascal 字符串 s:=copy(s+s1,1,255) _PStrNCat EAX :目标字符串 EDX :源字符串 CL :结果字符串最大长度 EAX 连接两个 Pascal 字符串 s:=copy(s+s1,1,n) _PStrCpy EAX :目标字符串 EDX :源字符串 EAX Pascal 字符串复制…

原文:SQL点滴3-一个简单的字符串分割函数 偶然在电脑里看到以前保存的这个函数,是将一个单独字符串切分成一组字符串,这里分隔符是英文逗号“,”  遇到其他情况只要稍加修改就好了 CREATE FUNCTION dbo.f_splitstr( @str varchar(8000))RETURNS @r TABLE(id int IDENTITY(1, 1), value varchar(5000))ASBEGIN /* Function body */    DECLARE @pos int  …

.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回. 假设str为,)=,)='def' .concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255) .length(str) 返回str的字符个数,即其长度. .pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0. .AnsiStrLastChar('你好')结果是“好”.如果有半个汉字出现,…

最近用到一些字符串加密,而.net中提供的加密算法中用起来比较复杂,便简单的封装了一下,方便日后使用.     public class Encrypt    {        static Encoding encoding = Encoding.UTF8;         public static string EncryptDES(string encryptString, string key)        {            var input = encoding.GetB…

最近, 从discuz里面发现了一个很牛的加密解密函数. 此函数的厉害之处在于可以在指定时间内加密还原字符串,超时无法还原 这样我们就可以拿此函数来做很多用途了,比如:单点登录的token加密传输啦,临时密码啦等等 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1 /** * @param string $string 原文或者密文 * @par…

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…

delphi  简单的删除字符串尾部数字的代码 方式一: function FilterShowName(const sName: String): String; var I: Integer; begin Result := sName; if Result <> '' then begin do begin ', '-'] then Delete(Result, I, ) else Break; end; end; end; 方式二(未测试): function GetChinese(S…

原文:C# 字符串加密解密函数 using System; using System.Text;using System.Security.Cryptography; using System.IO; //默认密钥向量private static byte[] Keys = { 0x12, 0x34, 0x56, 0x78, 0x90, 0xAB, 0xCD, 0xEF }; /// <summary> /// DES加密字符串 /// </summary> /// <par…