求助VB 数据库密码明文连接 反编译出来了 怎么办？

[maomaohao33]

loc_004099B0: push ebp
loc_004099B1: mov ebp, esp
loc_004099B3: sub esp, 0000000Ch
loc_004099B6: push 004012F6h ; __vbaExceptHandler
loc_004099BB: mov eax, fs:[00000000h]
loc_004099C1: push eax
loc_004099C2: mov fs:[00000000h], esp
loc_004099C9: sub esp, 00000008h
loc_004099CC: push ebx
loc_004099CD: push esi
loc_004099CE: push edi
loc_004099CF: mov var_C, esp
loc_004099D2: mov var_8, 00401160h
loc_004099D9: mov var_4, 00000000h
loc_004099E0: mov esi, arg_8
loc_004099E3: push esi
loc_004099E4: mov eax, [esi]
loc_004099E6: call [eax+00000004h]
loc_004099E9: mov edx, 0040486Ch ; "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=dc2010;Initial Catalog=lihe2 Data Source=server09Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=www;Initial Catalog=li;Data Source=server09"
loc_004099EE: lea ecx, [esi+00000034h]
loc_004099F1: call [004010F0h] ; __vbaStrCopy
loc_004099F7: mov eax, arg_8
loc_004099FA: push eax
loc_004099FB: mov ecx, [eax]
loc_004099FD: call [ecx+00000008h]
loc_00409A00: mov eax, var_4
loc_00409A03: mov ecx, var_14
loc_00409A06: pop edi
loc_00409A07: pop esi
loc_00409A08: mov fs:[00000000h], ecx
loc_00409A0F: pop ebx
loc_00409A10: mov esp, ebp
loc_00409A12: pop ebp
loc_00409A13: retn 0004h

[舉杯邀明月]

既然“反编译出来了”……
你就可以“拖库”，然后看它的里面有些什么有用的信息啊。

[脆皮大雪糕]

不要在代码里面放明文呗
比如把连接串加密，然后放在代码或者单独文件里。
代码要用连接串的时候再解密放变量。虽然这个也不是不能被反编译跟踪出来，但起码增加一点难度。

[X-i-n]

改成CS或者BS

[of123]

缺省可挂接访问的数据库，有没有密码有什么差别？

如果你就是要这样玩，还有一个办法：

1 声明一个公共字符串变量 strPassword。
2 适当时候将密码字符串赋值给它。
3 连接字符串这样写：

"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=dc2010;Initial Catalog=lihe2 Data Source=server09Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=" & strPassword & ";Initial Catalog=li;Data Source=server09"

[threenewbee]

还需要反编译么，直接用记事本打开就能看到。