zoukankan      html  css  js  c++  java
  • 改变Notes ID密码

    Function ChangePassword(doc As NotesDocument) As Boolean

    On Error Goto ErrHandler

    Dim sess As New NotesSession

    Dim vwNAB As NotesView

    Dim docNAB As NotesDocument

    Dim temp As Variant

    Dim ErrMsg As String

    Forall dbNAB In sess.AddressBooks

    Call dbNAB.Open("", "")

    If dbNAB.IsOpen Then

    Set vwNAB = dbNAB.GetView("($Users)")

    If Not vwNAB Is Nothing Then

    Set docNAB = vwNAB.GetDocumentByKey(doc.UserName(0), True)

    If Not docNAB Is Nothing Then Exit Forall

    End If

    End If

    End Forall

    If docNAB Is Nothing Then

    ErrMsg = "Cannot locate your person document."

    Goto ExitPoint

    End If

    temp = Evaluate({@VerifyPassword("} + doc.OldPassword(0) + {"; "} + docNAB.HTTPPassword(0) + {")})

    If temp(0) <> 1 Then

    ErrMsg = "Your old password is incorrect."

    Goto ExitPoint

    End If

    If docNAB.~$SecurePassword(0) = "1" Then

    temp = Evaluate({@HashPassword(NewPassword)}, doc)

    Else

    temp = Evaluate({@Password(NewPassword)}, doc)

    End If

    docNAB.HTTPPassword = temp(0)

    If Not docNAB.Save(False, False) Then

    ErrMsg = "Error saving the new password."

    Goto ExitPoint

    End If

    Call sess.SendConsoleCommand(db.Server, "show nlcache reset")

    ExitPoint:

    Print "Content-Type: text/html; charset=utf-8"

    Print "<Script>"

    If ErrMsg = "" Then

    Print "alert('Password changed successfully.')"

    Print "window.close()"

    Else

    Print "alert('" + ErrMsg + "')"

    Print "window.location.replace('/" + Replace(doc.ParentDatabase.FilePath, "\", "/") + "/ChangePassword?OpenForm')"

    End If

    Print "</Script>"

    Exit Function

    ErrHandler:

    If Err = 4060 Then Resume Next

    Msgbox "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")"

    End Function

  • 相关阅读:
    SQL手工注入方法
    wireshark常见分析
    JOY靶机
    GoldenEye-v1靶机
    homeless靶机
    注入
    DC-9靶机
    你哈
    数据库常用数据类型
    数据表的基本操作
  • 原文地址:https://www.cnblogs.com/blackbean/p/2215143.html
Copyright © 2011-2022 走看看