About This Code
Brief Description:
Create hashed password using LotusScript and API call
Contributor:
Andrew Jones
Last Modified:
17 Jun 2002
OpenNTF Disclaimer
All of the program code and information presented in the OpenNTF.org Code Bin are provided "as-is", and should be used at your own risk. OpenNTF.org make no express or implied warranty about anything in the Code Bin, and OpenNTF.org will not be responsible or liable for any damage caused by the use or misuse of anything from this site. OpenNTF.org makes no guarantees about anything. Please thoroughly test all of the knowledge and code you find here before you attempt to use them in your production environment.
Code / Description
This little bit of code calls one of the more than 2500 undocumented nnotes.dll functions that Lotus refuses to give appropriate information on. Anyway, the purpose of this code is an easy way to encrypt your passwords by calling this function. Hope someone has some fun with it. All written in LS
Usage / Example
Declarations:
Type KFM_PASSWORD
xType As Integer
hPword As String * 48
End Type
Declare Sub SECKFMCreatePassword Lib "nnotes.dll" (Byval pString As String, x As KFM_PASSWORD)
Sub Initialize
Dim pA As String
Dim z As KFM_PASSWORD
pA = Inputbox("Enter Password")
Call SECKFMCreatePassword(pA,z)
Msgbox z.hPword,0+64,"Password Encoded"
End Sub
And that is it..simple...