CryptIt

Download source files - 129 Kb

I saw an article (April 1999 - VCJ) by Kurtz, and wrote a simple ATL DLL to use it in an ASP page. I just wanted to show a number of ways (examples) on how to implement it. This article has 4 projects: ATL (the DLL), VC++ (using the DLL), VB (using the DLL), and ASP (using the DLL)

This was all his code (ARACrypt.cpp/h) and I just used his Class to play.

Note: I did find something funny in the VB example. When I ran it on WinNT, the Decryption didn't seem to work correctly (see comments in VB code). When I returned encryption data into the text field (Text1.Text) the Decryption would be wrong (some characters). Once I had the returned encryption data go into a String variable it all worked well (see VB code below). When on the Win2000 OS it worked fine the other way...go figure? Of course I fixed it, but check it out if you have two Operating Systems (WinNT/Win2000).

Option Explicit
' MUST be registered
Dim CryptTest As CRYPTITLib.Cryptor

Private Sub Command1_Click()

    Set CryptTest = New CRYPTITLib.Cryptor

    CryptTest.PassPhrase = Text1.Text
    CryptTest.StringToCrypt = Text2.Text
    CryptTest.DoCrypting

    ' Normally I would not store to a string
    ' variable, update the text control, then
    ' use the variable to set the property (below)
    ' but WinNT 4.0 (SP3)/VB 6.0 (SP3) environment I get
    ' the wrong decryption...go figure?  Try it:
    '
    ' Text3.Text = CryptTest.ReturnCrypted
    '
    ' CryptTest.StringToCrypt = Text3.Text
    '
    ' The above does work on Win2000/VB 6.0 (SP3)!!!
    '
    ' again, "go figure!"
    '
    Dim strTest As String
    strTest = CryptTest.ReturnCrypted
    Text3.Text = strTest
    
    CryptTest.StringToCrypt = strTest
    CryptTest.DoCrypting

    Text4.Text = CryptTest.ReturnCrypted
    
    Set CryptTest = Nothing

End Sub

I hope that others find this useful.