;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
濡備綍瀵瑰瓧绗︿覆杩涜鍔犲瘑瑙e瘑 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> VB >> 鍔犲瘑瑙e瘑 >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

濡備綍瀵瑰瓧绗︿覆杩涜鍔犲瘑瑙e瘑

鍙戝竷: 2008-7-15 14:52 |  浣滆: 缃戠粶杞浇 |   鏉ユ簮: 缃戠粶杞浇 |  鏌ョ湅: 88娆

浣曞瀛楃涓茶繘琛屽姞瀵嗚В瀵

浣滆咃細Flea_cyp

鏈汉鍦ㄦ搷浣滄暟鎹簱鏃讹紝鑰冭檻鍒拌鏁版嵁搴撹繕鏈夊彲鑳借鍏朵粬杞欢鎵撳紑锛屾墍浠ユ兂鑳藉惁鏈夊彟澶栦竴绉嶆柟寮忔妸鏁版嵁搴撲腑鏁版嵁杩涜鍔犲瘑鍛紝涔

灏辨槸璇达紝鍗充娇鍒汉鍒╃敤鍏朵粬鐨勮蒋浠舵墦寮浜嗚鏁版嵁搴擄紝鐪嬪埌鐨勪篃鏄竴鐗囦贡鐮侊紝鏍规湰涓嶇煡閬撴暟鎹簱杩涜屾槸浠涔堝唴瀹广傚嚭浜庤繖绉嶆儏鍐碉紝鏈汉鍒╃敤VB涓嚜甯

RND锛堬級鍑芥暟鐨勫姛鑳界紪鍐欎簡濡備笅鍔犲瘑瑙e瘑鏂规硶銆

褰揜ND锛堬級鐨勫弬鏁帮紙鎴戜滑绉板畠涓虹瀛愶級涓鸿礋鍊兼椂锛屽悓涓绉嶅瓙浜х敓鍚屼竴涓殢鏈哄簭鍒楋紝鍚屾椂VB杩樺叿鏈夊己澶х殑浜岃繘鍒舵妧鏈姛鑳姐

杩欐牱鎴戜滑鍙互鎸変互涓嬫柟娉曞疄鐜板瓧绗︿覆鍐呭鐨勫姞瀵嗚В瀵嗐

婧愮▼搴忓涓嬶細

Public Function StringEnDeCodecn(strSource As String, MA) As String

娉ㄩ噴锛氳鍑芥暟鍙涓タ鏂囪捣鍒板姞瀵嗕綔鐢

娉ㄩ噴锛氬弬鏁颁负锛氭簮鏂囦欢锛屽瘑鐮

On Error GoTo ErrEnDeCode

Dim X As Single

Dim CHARNUM As Long, RANDOMINTEGER As Integer

Dim SINGLECHAR As String * 1

Dim strTmp As String

If MA < 0 Then

MA = MA * (-1)

End If

X = Rnd(-MA)

For i = 1 To Len(strSource) Step 1 娉ㄩ噴锛氬彇鍗曞瓧鑺傚唴瀹

SINGLECHAR = Mid(strSource, i, 1)

CHARNUM = Asc(SINGLECHAR)

g: RANDOMINTEGER = Int(127 * Rnd)

If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g

CHARNUM = CHARNUM Xor RANDOMINTEGER

strTmp = strTmp & Chr(CHARNUM)

Next i

StringEnDeCodecn = strTmp

Exit Function

ErrEnDeCode:

StringEnDeCodecn = ""

MsgBox Err.Number & "\" & Err.Description

End Function

浣跨敤鏂规硶锛

tmp=stringEnDecn("涓崕浜烘皯鍏卞拰鍥",75)

濡傛灉瑕佽В瀵嗙殑璇濓紝鍙』閿叆浠ヤ笅璇彞锛

tmp1=stringendecn(tmp,75)

濡傛湁涓嶅Ε涔嬪锛岃涓庢垜鑱旂郴锛

Flea_cyp@163.com

TAG: 瀛楃 瑙e瘑
鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆