Click here to Skip to main content
15,867,453 members
Articles / Desktop Programming / ATL
Article

How to use Crypto API in your ASP projects.

Rate me:
Please Sign up or sign in to vote.
5.00/5 (2 votes)
28 Aug 20013 min read 269.8K   1.2K   53   35
This article shows how to make one ATL COM component with crypt/decrypt functions and how to use it in ASP programs. It shows also how to register a component in MTS.

Summary

This application uses ATL, MFC, ASP and Crypt API. It will demonstrate how to make an ATL project that provides 2 cryptographic functions, how to use this component in your ASP projects, and how to register the component in MTS. The article also contains a GUI client console for directly testing the cryptographic functions.

This component can be used in Visual Basic, Access or Microsoft SQL.

Introduction

Recently I worked for a financial project regarding the Greek, Cyprus and Romanian stock exchange (www.greekmarkets.com, http://reporter.fasma.ro ). The project was coded mostly using ASP and VB COM, and a few ATL components as a middle tier over a SQL database. The middle tier component that I programmed was built with ATL and uses Crypto API. The idea consists in providing the encrypted data to HTTP, data which is useful for ASP pages. Because of HTTP transport the data is coded in a hexadecimal format.

Overview

First of all, I will show you how to use an ATL-control and how to provide methods that interrogate our component.

  • Create a new ATL COM AppWizard project.

  • Choose Dynamic Link Library (DLL) in the Server Type and check Support MFC and MTS.

  • Add a new ATL object to your classes. Choose Objects->Simple Object from your ATL Object Wizard.

  • In the attributes tab page choose Free option in Threading Model.

  • Now we have a very nice component. It is more important to provide data to other programs by methods or properties. Unfortunately, the Microsoft wizard is a little poor and the user must input manually each parameter and its type.

Details

The simplest way to use cryptographic API and to encrypt your messages is the following:

// Get handle to user default provider.
     CryptAcquireContext(&hProv, NULL, NULL, PROV_RSA_FULL, 0)

This function returns a handle to a particular CSP which includes the specification of a particular key container within the CSP. This key container is either a specifically requested key container or it is the default key container for the currently logged-on user. Note that the second and the third parameters are NULL. This means that our code will generate the same key all the time, independently of the current logged user, and/or if the encrypt was done on a computer and the decrypt on another one.

    // Create hash object.
         CryptCreateHash(hProv, CALG_MD5, 0, 0, &hHash)

    // Hash password string.
         CryptHashData(hHash, (BYTE *)szLocalPassword, dwLength, 0)

    // Create block cipher session key based on hash of the password.
         CryptDeriveKey(hProv, CALG_RC4, hHash, CRYPT_EXPORTABLE, &hKey)

    // Encrypt data
         CryptEncrypt(hKey, 0, TRUE, 0, pbBuffer, &dwLength, dwLength)

    // Coding the result in hexadecimal format
         HtoA(dest, szPassword, sizeof(TCHAR)*_tcslen(dest) )

It is very easy to use the component in ASP pages (the same in Visual Basic, Access or Microsoft SQL):

 dim myOEncrypt
 dim src, dest

 set myOEncrypt   = Server.CreateObject("EncryptionATL.Encryption.1")


src = "CryptoAPI"
Response.Write "src: "
Response.Write src

Response.Write "Crypt: "
dest = myOEncrypt.Crypt(src)
Response.Write dest

Response.Write "LastError: "
Response.Write myOEncrypt.LastError

Response.Write "Decrypt: "
src = myOEncrypt.Decrypt(dest)
Response.Write src

Response.Write "LastError: "
Response.Write myOEncrypt.LastError

set myOEncrypt = nothing

Installation

  • Copy the DLL under a directory with system execute privilege and register it with regsvr32 command or put it on the MTS. This way is better because if we want to modify the component and register it again, this is possible without restarting the computer - like in cases when using regsvr32 command that "blocks" your dll file.
    • Open the MTS console (if you have NT4) or Component service (Windows 2000). In Computers -> My Computer->COM+ Application choose NewApplication. Give it a name, for example "Crypt";

    • In the new Crypt COM+ application create a new component:

    • And choose your crypto dll file:

    • To modify the properties of the new created component right-click on it:

  • Use directly the dialog console. Input some string in the edit box and click on the button!

  • Copy the directory with asp pages under Web - and just try it !

Note

The program was designed as to use only small strings, with some digits (id's from tables). If you want more, you have to modify the component.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


Written By
Web Developer
Romania Romania
I make programming for over 4 years and extensive experience in C++, ASP, Pascal, MFC, COM+, ATL, TCP/IP, HTTP protocols, XML, XSL, SOAP and SQL.
For the last 2 years i working extensively at the background of financial sites (databases, n tier architecture).

I’m available for contracts and/or outsourcing (<Adrian Bacaianu>adrian_bacaianu@yahoo.com).

Comments and Discussions

 
Generalschedule a task every week Pin
Madhup00120-Mar-09 0:26
Madhup00120-Mar-09 0:26 
GeneralEncrypt Files Pin
Fraser Booth18-Dec-04 4:52
Fraser Booth18-Dec-04 4:52 
Generalgreat thanx! Pin
romanych18-May-04 0:56
romanych18-May-04 0:56 
Generalsecur ASP code Pin
RAYANE23-Apr-03 2:04
RAYANE23-Apr-03 2:04 
Generalhelp me Pin
david_sha22-Jun-02 14:15
david_sha22-Jun-02 14:15 
Generalsome bug in this code.... Pin
10-Jun-02 19:43
suss10-Jun-02 19:43 
GeneralFriend!Help me !!!!! Pin
dllinjian23-May-02 15:24
dllinjian23-May-02 15:24 
GeneralRe: Friend!Help me !!!!! Pin
Adrian Bacaianu23-May-02 21:11
Adrian Bacaianu23-May-02 21:11 
QuestionWhy is that the max length less than 16 ? Pin
15-Apr-02 20:18
suss15-Apr-02 20:18 
AnswerRe: Why is that the max length less than 16 ? Pin
Adrian Bacaianu7-May-02 2:38
Adrian Bacaianu7-May-02 2:38 
AnswerRe: Why is that the max length less than 16 ? Pin
Adrian Bacaianu7-May-02 2:41
Adrian Bacaianu7-May-02 2:41 
QuestionHOW TO USE IT IN VB??? Pin
31-Mar-02 22:28
suss31-Mar-02 22:28 
AnswerRe: HOW TO USE IT IN VB??? Pin
Adrian Bacaianu31-Mar-02 22:35
Adrian Bacaianu31-Mar-02 22:35 
GeneralRe: HOW TO USE IT IN VB??? Pin
30-Apr-02 14:58
suss30-Apr-02 14:58 
GeneralRe: HOW TO USE IT IN VB??? Pin
30-Apr-02 16:06
suss30-Apr-02 16:06 
GeneralRe: HOW TO USE IT IN VB??? Pin
1-May-02 2:23
suss1-May-02 2:23 
GeneralRe: HOW TO USE IT IN VB??? Pin
1-May-02 4:52
suss1-May-02 4:52 
AnswerRe: HOW TO USE IT IN VB??? Pin
Adrian Bacaianu7-May-02 4:10
Adrian Bacaianu7-May-02 4:10 
Questionhow to edit word or excel online? Pin
chi059110-Mar-02 19:14
chi059110-Mar-02 19:14 
AnswerMessage Closed Pin
12-Aug-15 21:34
Shellyyin9912-Aug-15 21:34 
AnswerMessage Closed Pin
12-Aug-15 21:39
Shellyyin9912-Aug-15 21:39 
Message Closed

modified 13-Aug-15 3:43am.

AnswerMessage Closed Pin
23-Aug-15 19:40
Shelly286423-Aug-15 19:40 
QuestionWhy run it in MTS? Pin
Kees Lairstra3-Aug-01 10:32
Kees Lairstra3-Aug-01 10:32 
AnswerRe: Why run it in MTS? Pin
20-Jun-02 10:09
suss20-Jun-02 10:09 
QuestionWhy don't you just use CAPI COM? Pin
Daniel Kopitchinski28-Jul-01 0:42
Daniel Kopitchinski28-Jul-01 0:42 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.