前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于PowerBuilder的搜索

PowerBuilder加密解密方法_並非遊戲_百度空间 相册 广场游戏 登录注册 关注此空间 並非遊戲≮人生就像一条路,每个人都会遇到很多的分岔路让自己选择;自己想要得到的东西就要努力去追求.把握属于自己的东西,得到了就要懂得珍惜≯ 2009-11-03 16:37 PowerBuilder加密解密方法 【PB程序设计】PB加密解密方法global type f_encrypt from function_object end type forward prototypes global function string f_encrypt (string st_text, string st_key) end prototypes global function string f_encrypt (string st_text, string st_key);//************************************************************** // Function: uf_pub_encrypt() * // Descirption: 用给定的密钥加密字符串 * // Parameters: string st_text 待加密字串 * // string st_key 密钥 * // * // Return: <加密后字串> * // * // Author: colleage* // Date: 2002.11.05 * //************************************************************** string st_textencrypt long lg_textlen,lg_keylen,lg_key long lg_loop IF isnull(st_key) OR isnull(st_text) THEN RETURN '' lg_keylen = len(st_key) FOR lg_loop = 1 TO lg_keylen lg_key = lg_key + (asc(mid(st_key,lg_loop,1)) * lg_loop) IF lg_key > 255 THEN lg_key = lg_key - 255 NEXT DO While lg_key > 255 lg_key = lg_key - 255 LOOP LONG lg_cbyte lg_textlen = Len(st_text) FOR lg_loop = 1 TO lg_textlen lg_cbyte = asc(mid(st_text,lg_loop,1)) + lg_key IF lg_cbyte > 255 THEN lg_cbyte = lg_cbyte - 255 st_textencrypt = st_textencrypt + char(lg_cbyte) lg_key = lg_key + lg_cbyte IF lg_key > 255 THEN lg_key = lg_key - 255 NEXT RETURN st_textencrypt end function //解密 global type f_decrypt from function_object end type forward prototypes global function string f_decrypt (string st_text, string st_key) end prototypes global function string f_decrypt (string st_text, string st_key);//************************************************************** // Function: uf_pub_decrypt() * // Descirption: 用给定的密钥解密字符串,与uf_pub_encrypt相对 * // Parameters: string st_text 待解密字串 * // string st_key 密钥 * // * // Return: <解密后字串> * // * // Author: colleage * // Date: 2002.11.05 * //************************************************************** string st_textdecrypt IF isnull(st_key) OR isnull(st_text) THEN RETURN '' long lg_textlen,lg_keylen,lg_key long lg_loop lg_keylen = len(st_key) FOR lg_loop = 1 TO lg_keylen lg_key = lg_key + (asc(mid(st_key,lg_loop,1)) * lg_loop) IF lg_key>255 THEN lg_key = lg_key - 255 NEXT DO While lg_key>255 lg_key = lg_key - 255 LOOP lg_textlen = len(st_text) long lg_cbyte FOR lg_loop = 1 TO lg_textlen lg_cbyte = asc(mid(st_text,lg_loop,1)) - lg_key IF lg_cbyte<0 THEN lg_cbyte = lg_cbyte + 255 st_textdecrypt = st_textdecrypt + char(lg_cbyte) lg_key = lg_key + asc(mid(st_text,lg_loop,1)) IF lg_key > 255 THEN lg_key = lg_key - 255 NEXT RETURN st_textdecrypt end function #数据库 分享到: 举报 浏览(1402) 评论 转载 你可能也喜欢 时尚和环保Riverhouse公寓室内软装设计 优集品象征爱情的首选情人节礼物 法國薩爾格米納幼兒園:paul le quernec + michel grasso 质感住宅 静静流水中的禅意,Fonte 洗脸池里的日式哲学 束袋灯 (转)Ethereal 抓包、封包內容分析、查看明码教学 本文最近访客 NE_Z flower21_快乐 EmiCL 评论 帮助中心 | 空间客服 | 投诉中心 | 空间协议&copy;2014 Baidu