module1.bas

一个比较简单的加密程序

Attribute VB_Name = "Module1"
'Dear Friend in Visual Basic
'This is the second edition of TheLock the new name is DoubleLock
'DoubleLock demonstrates how you can make a shareware program that locks
'itself using:
'* ActiveLock OCX Control freeware Copyright by Nelson Ferraz
'
'**********New**********
'
'The Lockprog procedure and the NEW login form by Ahmed Hassan
'Note that you should use a stronger encrypt decrypt functions.
'I can not tell you which algorithm you should choose because
'it should be kept secret!
'Please refer to Active Lock for details and conditions of use.
'I would like to thank my friend in Visual Basic Nelson Ferraz
'for making Active Lock available for Visual Basic programmers free of charge
'and also because he was the one who suggested that I make this
'procedure available to other fellow programmers.

'I hope that you find this program useful and you use in your programs
'And I would like to get your comments or suggestions.
'we are trying to make the best there is,and for free.
'So please help us with your feed back.
'My e-mail is    [e-mail]

'If you would like to comment on Active Lock
'please send e- mail to Nelson Ferraz directly.
'ActiveLock web site
'http://www.insite.com.br/~nferraz/activelock/

'Feel free to use this program in anyway you want.
'This code is provided as is without any warranty on any kind etc. bla bla bla.
'this is the second edition of TheLock the new name is DoubleLock
'Please send me your feed back for the third edition.
'Ahmed Hassan
' [e-mail]
' 5/4/1999

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public syspath As String
Option Explicit

Function WindowsDirectory() As String 'get windows directory
Dim WinPath As String
Dim temp
    WinPath = String(145, Chr(0))
    temp = GetWindowsDirectory(WinPath, 145)
    WindowsDirectory = Left(WinPath, InStr(WinPath, Chr(0)) - 1)
syspath = WindowsDirectory
End Function