misc.bas

e-maill文件加密程序完整的源代码

Attribute VB_Name = "Misc"
'Copyright 1999 Patterson Programming - All Rights Reserved
'Various small Subs and Functions

Sub SWAP(A%, B%)

    Hold% = A%: A% = B%: B% = Hold%

End Sub


Function ScanPwd%()

    ScanFlag% = 0
    For i% = 0 To 31
        If MasterPwd(i%) <> 32 Then
            ScanFlag% = -1
        End If
    Next
    ScanPwd% = ScanFlag%

End Function


Sub GetTS(i1%, i2%, i3%, i4%, i5%, i6%)

    i1% = Int(Timer * 100) And &HFF
    i2% = (Int(Timer) And &HFF)
    i3% = (Int(Timer) And 65280) \ 256
    i4% = Day(Date)
    i5% = Month(Date)
    i6% = Year(Date) And &HFF

End Sub


Sub GetVector(v1%, v2%, v3%)

    vector& = App.ThreadID
    v1% = (vector& And &HFF)
    v2% = (vector& And 65280) \ 256
    v3% = (vector& And 16711680) \ 65536

End Sub

'* substitutes needed for password lock/unlock
'* they allow background code to run
Sub MsgBox1(Message$, nul%, Title$)

    UnlockPwd
    MsgForm.OK.Caption = "OK"
    If Title$ = "" Then Title$ = "StealthMail"
    MsgForm.Caption = Title$
    MsgForm.Label1.Caption = Message$
    MsgForm.Width = MsgForm.Label1.Width + 400
    MsgForm.OK.Left = (MsgForm.Width - MsgForm.OK.Width) / 2
    MsgForm.UserCancel.Visible = 0
    MsgForm.Label1.Left = 165
    MsgForm.Left = (Screen.Width - MsgForm.Width) / 2

    MsgForm.Show 1

End Sub


Function MsgBox2(Message$, Style%, Title$)

    UnlockPwd
    MsgForm.OK.Caption = "Yes"
    If Title$ = "" Then Title$ = "StealthMail"
    MsgForm.Caption = Title$
    MsgForm.Label1.Caption = Message$
    MsgForm.Width = MsgForm.Label1.Width + 400
    If MsgForm.Width < 2600 Then MsgForm.Width = 3000
    mark1 = (MsgForm.Width - (MsgForm.OK.Width * 2)) / 2
    Mark2 = mark1 + MsgForm.OK.Width
    MsgForm.OK.Left = mark1 - 100
    MsgForm.UserCancel.Left = Mark2 + 50
    MsgForm.Label1.Left = 165
    MsgForm.UserCancel.Visible = -1
    MsgForm.Left = (Screen.Width - MsgForm.Width) / 2

    MsgForm.Show 1
    If MsgRet% Then
        MsgBox2 = 0
    Else
        MsgBox2 = 6
    End If

End Function


Function InputBox2$(FormTitle$)

    UnlockPwd
    InputForm.Show 1
    InputForm.Label1.Caption = FormTitle$
    InputBox2$ = InputForm.FileBox.Text
    Unload InputForm

End Function