[prev in list] [next in list] [prev in thread] [next in thread] 

List:       ms-cryptoapi
Subject:    CryptoAPI and Visual Basic
From:       Joe Turgeon <jturgeon () ISD ! NET>
Date:       1997-07-27 18:45:00
[Download RAW message or body]


------ =_NextPart_000_01BC9A93.4B4AE200
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

I am trying to write a cryptography application in Visual Basic 5.0 and would like to \
use Microsoft CryptoAPI.  I read the CryptoAPI documentation included in MSDN and \
have used the Platform SDK, but am having trouble getting the functions to work.  \
Attached are the two files that I am using to access the CryptoAPI.

  

Please help,

Joe Turgeon
(jturgeon@isd.net)
Site Builder Member - Level 2


------ =_NextPart_000_01BC9A93.4B4AE200
Content-Type: application/octet-stream; name="MainForm.frm"
Content-Transfer-Encoding: base64

VkVSU0lPTiA1LjAwDQpCZWdpbiBWQi5Gb3JtIE1haW5Gb3JtIA0KICAgQm9yZGVyU3R5bGUgICAg
ID0gICAzICAnRml4ZWQgRGlhbG9nDQogICBDYXB0aW9uICAgICAgICAgPSAgICJDcnlwdG9Ub29s
cyINCiAgIENsaWVudEhlaWdodCAgICA9ICAgNDI5MA0KICAgQ2xpZW50TGVmdCAgICAgID0gICA0
NQ0KICAgQ2xpZW50VG9wICAgICAgID0gICAzMzANCiAgIENsaWVudFdpZHRoICAgICA9ICAgNjEz
NQ0KICAgTGlua1RvcGljICAgICAgID0gICAiRm9ybTEiDQogICBNYXhCdXR0b24gICAgICAgPSAg
IDAgICAnRmFsc2UNCiAgIE1pbkJ1dHRvbiAgICAgICA9ICAgMCAgICdGYWxzZQ0KICAgU2NhbGVI
ZWlnaHQgICAgID0gICA0MjkwDQogICBTY2FsZVdpZHRoICAgICAgPSAgIDYxMzUNCiAgIFNob3dJ
blRhc2tiYXIgICA9ICAgMCAgICdGYWxzZQ0KICAgU3RhcnRVcFBvc2l0aW9uID0gICAzICAnV2lu
ZG93cyBEZWZhdWx0DQogICBCZWdpbiBWQi5Db21tYW5kQnV0dG9uIGNtZEVuY3J5cHQgDQogICAg
ICBDYXB0aW9uICAgICAgICAgPSAgICJFbmNyeXB0IERhdGEiDQogICAgICBIZWlnaHQgICAgICAg
ICAgPSAgIDM3NQ0KICAgICAgTGVmdCAgICAgICAgICAgID0gICAyNDANCiAgICAgIFRhYkluZGV4
ICAgICAgICA9ICAgMA0KICAgICAgVG9wICAgICAgICAgICAgID0gICAzNjAwDQogICAgICBXaWR0
aCAgICAgICAgICAgPSAgIDE5MzUNCiAgIEVuZA0KRW5kDQpBdHRyaWJ1dGUgVkJfTmFtZSA9ICJN
YWluRm9ybSINCkF0dHJpYnV0ZSBWQl9HbG9iYWxOYW1lU3BhY2UgPSBGYWxzZQ0KQXR0cmlidXRl
IFZCX0NyZWF0YWJsZSA9IEZhbHNlDQpBdHRyaWJ1dGUgVkJfUHJlZGVjbGFyZWRJZCA9IFRydWUN
CkF0dHJpYnV0ZSBWQl9FeHBvc2VkID0gRmFsc2UNCk9wdGlvbiBFeHBsaWNpdA0KDQpQcml2YXRl
IFN1YiBjbWRFbmNyeXB0X0NsaWNrKCkNCiAgICBEaW0gaENTUHByb3YgQXMgTG9uZw0KICAgIERp
bSBoS2V5IEFzIExvbmcNCiAgICBEaW0gc3RyRGF0YSBBcyBTdHJpbmcNCiAgICBEaW0gbGVuRGF0
YSBBcyBMb25nDQogICAgRGltIG1heEJ1ZmZlciBBcyBMb25nDQogICAgRGltIHN0ckV4S2V5IEFz
IFN0cmluZw0KICAgIERpbSBoUmV0VmFsIEFzIExvbmcNCiAgICANCicgR2V0IERhdGEgVG8gRW5j
cnlwdA0KICAgIHN0ckRhdGEgPSBJbnB1dEJveCQoIkVudGVyIGRhdGEgdG8gZW5jcnlwdDoiLCAi
RGF0YSBFbmNyeXB0aW9uIikNCg0KJyBTdGFydCBFbmNyeXB0aW9uIFByb2Nlc3MNCiAgICBoUmV0
VmFsID0gQ3J5cHRBY3F1aXJlQ29udGV4dChoQ1NQcHJvdiwgdmJOdWxsU3RyaW5nICsgQ2hyJCgw
KSwgdmJOdWxsU3RyaW5nICsgQ2hyJCgwKSwgUFJPVl9SU0FfRlVMTCwgMCkNCiAgICBJZiBoUmV0
VmFsID0gMCBUaGVuDQogICAgICAgIENhbGwgRGlzcGxheUVycm9yDQogICAgICAgIEV4aXQgU3Vi
DQogICAgRW5kIElmDQogICAgDQogICAgaFJldFZhbCA9IENyeXB0R2VuS2V5KGhDU1Bwcm92LCBD
QUxHX1JDMiwgQ1JZUFRfRVhQT1JUQUJMRSwgaEtleSkNCiAgICBJZiBoUmV0VmFsID0gMCBUaGVu
DQogICAgICAgIENhbGwgRGlzcGxheUVycm9yDQogICAgICAgIEV4aXQgU3ViDQogICAgRW5kIElm
DQogICAgDQogICAgbGVuRGF0YSA9IExlbihzdHJEYXRhKQ0KICAgIG1heEJ1ZmZlciA9IDY0MDAw
DQogICAgaFJldFZhbCA9IENyeXB0RW5jcnlwdChoS2V5LCAwLCBUcnVlLCAwLCBzdHJEYXRhLCBs
ZW5EYXRhLCBtYXhCdWZmZXIpDQogICAgSWYgaFJldFZhbCA9IDAgVGhlbg0KICAgICAgICBDYWxs
IERpc3BsYXlFcnJvcg0KICAgICAgICBFeGl0IFN1Yg0KICAgIEVuZCBJZg0KICAgIA0KICAgIGhS
ZXRWYWwgPSBDcnlwdEV4cG9ydEtleShoS2V5LCAwLCBQUklWQVRFS0VZQkxPQiwgMCwgc3RyRXhL
ZXksIDUwMDApDQogICAgSWYgaFJldFZhbCA9IDAgVGhlbg0KICAgICAgICBDYWxsIERpc3BsYXlF
cnJvcg0KICAgICAgICBFeGl0IFN1Yg0KICAgIEVuZCBJZg0KICAgIA0KICAgIGhSZXRWYWwgPSBD
cnlwdERlc3Ryb3lLZXkoaEtleSkNCiAgICBJZiBoUmV0VmFsID0gMCBUaGVuDQogICAgICAgIENh
bGwgRGlzcGxheUVycm9yDQogICAgICAgIEV4aXQgU3ViDQogICAgRW5kIElmDQogICAgDQogICAg
aFJldFZhbCA9IENyeXB0UmVsZWFzZUNvbnRleHQoaENTUHByb3YsIDApDQogICAgSWYgaFJldFZh
bCA9IDAgVGhlbg0KICAgICAgICBDYWxsIERpc3BsYXlFcnJvcg0KICAgICAgICBFeGl0IFN1Yg0K
ICAgIEVuZCBJZg0KICAgIA0KICAgIE1zZ0JveCAiRW5jcnlwdGVkIERhdGE6IiArIHZiQ3JMZiAr
IHZiQ3JMZiArIHN0ckRhdGENCiAgICBNc2dCb3ggIkV4cG9ydGVkIEtleToiICsgdmJDckxmICsg
dmJDckxmICsgc3RyRXhLZXkNCkVuZCBTdWINCg=
------ =_NextPart_000_01BC9A93.4B4AE200
Content-Type: application/octet-stream; name="CryptoAPI.bas"
Content-Transfer-Encoding: base64

QXR0cmlidXRlIFZCX05hbWUgPSAiQ3J5cHRvQVBJIg0KJyBDcnlwdG9BUEkgVmVyc2lvbiAxLjAN
CicNCicgQ3J5cHRvQVBJIGlzIGFuIGludGVyZmFjZSB0byB0aGUgTWljcm9zb2Z0IENyeXB0byBB
UEkuDQonDQonIENyeXB0b0FQSSBpcyB3cml0dGVuIGluIFZpc3VhbCBCYXNpYyA1LjANCicNCg0K
JyBGdW5jdGlvbiBEZWNsYXJhdGlvbnMNCkRlY2xhcmUgRnVuY3Rpb24gQ3J5cHRBY3F1aXJlQ29u
dGV4dCBMaWIgImFkdmFwaTMyLmRsbCIgQWxpYXMgIkNyeXB0QWNxdWlyZUNvbnRleHRBIiAocGhQ
cm92IEFzIExvbmcsIHBzekNvbnRhaW5lciBBcyBTdHJpbmcsIHBzelByb3ZpZGVyIEFzIFN0cmlu
ZywgZHdQcm92VHlwZSBBcyBMb25nLCBkd0ZsYWdzIEFzIExvbmcpIEFzIExvbmcNCkRlY2xhcmUg
RnVuY3Rpb24gQ3J5cHRHZW5LZXkgTGliICJhZHZhcGkzMi5kbGwiIChoUHJvdiBBcyBMb25nLCBB
bGdpZCBBcyBMb25nLCBkd0ZsYWdzIEFzIExvbmcsIHBoS2V5IEFzIExvbmcpIEFzIExvbmcNCkRl
Y2xhcmUgRnVuY3Rpb24gQ3J5cHRFbmNyeXB0IExpYiAiYWR2YXBpMzIuZGxsIiBBbGlhcyAiQ3J5
cHRFbmNyeXB0QSIgKGhLZXkgQXMgTG9uZywgaEhhc2ggQXMgTG9uZywgRmluYWwgQXMgQm9vbGVh
biwgZHdGbGFncyBBcyBMb25nLCBwYkRhdGEgQXMgU3RyaW5nLCBoRGF0YUxlbiBBcyBMb25nLCBo
QnVmTGVuIEFzIExvbmcpIEFzIExvbmcNCkRlY2xhcmUgRnVuY3Rpb24gQ3J5cHRFeHBvcnRLZXkg
TGliICJhZHZhcGkzMi5kbGwiIEFsaWFzICJDcnlwdEV4cG9ydEtleUEiIChoS2V5IEFzIExvbmcs
IGhFeHBLZXkgQXMgTG9uZywgZHdCbG9iVHlwZSBBcyBMb25nLCBkd0ZsYWdzIEFzIExvbmcsIHBi
RGF0YSBBcyBTdHJpbmcsIHBkd0RhdGFMZW4gQXMgTG9uZykgQXMgTG9uZw0KRGVjbGFyZSBGdW5j
dGlvbiBDcnlwdERlc3Ryb3lLZXkgTGliICJhZHZhcGkzMi5kbGwiIEFsaWFzICJDcnlwdERlc3Ry
b3lLZXlBIiAoaEtleSBBcyBMb25nKSBBcyBMb25nDQpEZWNsYXJlIEZ1bmN0aW9uIENyeXB0UmVs
ZWFzZUNvbnRleHQgTGliICJhZHZhcGkzMi5kbGwiIEFsaWFzICJDcnlwdFJlbGVhc2VDb250ZXh0
QSIgKGhQcm92IEFzIExvbmcsIGR3RmxhZ3MgQXMgTG9uZykgQXMgTG9uZw0KRGVjbGFyZSBGdW5j
dGlvbiBDcnlwdEltcG9ydEtleSBMaWIgImFkdmFwaTMyLmRsbCIgQWxpYXMgIkNyeXB0SW1wb3J0
S2V5QSIgKGhQcm92IEFzIExvbmcsIHBiRGF0YSBBcyBTdHJpbmcsIGR3RGF0YUxlbiBBcyBMb25n
LCBoSW1wS2V5IEFzIExvbmcsIGR3RmxhZ3MgQXMgTG9uZywgcGhLZXkgQXMgTG9uZykgQXMgTG9u
Zw0KRGVjbGFyZSBGdW5jdGlvbiBDcnlwdERlY3J5cHQgTGliICJhZHZhcGkzMi5kbGwiIEFsaWFz
ICJDcnlwdERlY3J5cHRBIiAoaEtleSBBcyBMb25nLCBoSGFzaCBBcyBMb25nLCBGaW5hbCBBcyBC
b29sZWFuLCBkd0ZsYWdzIEFzIExvbmcsIHBiRGF0YSBBcyBTdHJpbmcsIGhEYXRhTGVuIEFzIExv
bmcpIEFzIExvbmcNCg0KJyBDb25zdGFudCBEZWNsYXJhdGlvbnMNClB1YmxpYyBDb25zdCBQUk9W
X1JTQV9GVUxMIEFzIEludGVnZXIgPSAxDQpQdWJsaWMgQ29uc3QgUFJPVl9SU0FfU0lHIEFzIElu
dGVnZXIgPSAyDQpQdWJsaWMgQ29uc3QgUFJPVl9EU1MgQXMgSW50ZWdlciA9IDMNClB1YmxpYyBD
b25zdCBQUk9WX0ZPUlRFWlpBIEFzIEludGVnZXIgPSA0DQpQdWJsaWMgQ29uc3QgUFJPVl9NU19F
WENIQU5HRSBBcyBJbnRlZ2VyID0gNQ0KUHVibGljIENvbnN0IFBST1ZfU1NMIEFzIEludGVnZXIg
PSA2DQpQdWJsaWMgQ29uc3QgQUxHX0NMQVNTX0RBVEFfRU5DUllQVCBBcyBMb25nID0gJkg2MDAw
DQpQdWJsaWMgQ29uc3QgQUxHX1RZUEVfQkxPQ0sgQXMgTG9uZyA9ICZINjAwDQpQdWJsaWMgQ29u
c3QgQUxHX1RZUEVfU1RSRUFNIEFzIExvbmcgPSAmSDgwMA0KUHVibGljIENvbnN0IEFMR19TSURf
UkMyIEFzIEludGVnZXIgPSAyDQpQdWJsaWMgQ29uc3QgQUxHX1NJRF9SQzQgQXMgSW50ZWdlciA9
IDENClB1YmxpYyBDb25zdCBDQUxHX1JDMiBBcyBMb25nID0gQUxHX0NMQVNTX0RBVEFfRU5DUllQ
VCBPciBBTEdfVFlQRV9CTE9DSyBPciBBTEdfU0lEX1JDMg0KUHVibGljIENvbnN0IENBTEdfUkM0
IEFzIExvbmcgPSBBTEdfQ0xBU1NfREFUQV9FTkNSWVBUIE9yIEFMR19UWVBFX1NUUkVBTSBPciBB
TEdfU0lEX1JDNA0KUHVibGljIENvbnN0IEFUX0tFWUVYQ0hBTkdFIEFzIEludGVnZXIgPSAxDQpQ
dWJsaWMgQ29uc3QgQVRfU0lHTkFUVVJFIEFzIEludGVnZXIgPSAyDQpQdWJsaWMgQ29uc3QgQ1JZ
UFRfRVhQT1JUQUJMRSBBcyBMb25nID0gJkgxDQpQdWJsaWMgQ29uc3QgQ1JZUFRfVVNFUl9QUk9U
RUNURUQgQXMgTG9uZyA9ICZIMg0KUHVibGljIENvbnN0IENSWVBUX0NSRUFURV9TQUxUIEFzIExv
bmcgPSAmSDQNClB1YmxpYyBDb25zdCBDUllQVF9VUERBVEVfS0VZIEFzIExvbmcgPSAmSDgNClB1
YmxpYyBDb25zdCBTSU1QTEVCTE9CIEFzIExvbmcgPSAmSDENClB1YmxpYyBDb25zdCBQVUJMSUNL
RVlCTE9CIEFzIExvbmcgPSAmSDYNClB1YmxpYyBDb25zdCBQUklWQVRFS0VZQkxPQiBBcyBMb25n
ID0gJkg3DQoNCicgUmV0dXJuIFZhbHVlcw0KUHVibGljIENvbnN0IEVSUk9SX0lOVkFMSURfSEFO
RExFID0gNiYNClB1YmxpYyBDb25zdCBFUlJPUl9JTlZBTElEX1BBUkFNRVRFUiA9IDg3DQoNCg=
------ =_NextPart_000_01BC9A93.4B4AE200--

----------------------------------------------------------------
Users Guide http://www.microsoft.com/sitebuilder/resource/mailfaq.asp
contains important info including how to unsubscribe.  Save time, search
the archives at http://microsoft.ease.lsoft.com/archives/index.html


[prev in list] [next in list] [prev in thread] [next in thread]