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

List:       ms-cryptoapi
Subject:    Re: VB Example(s)
From:       Ken Bergmann <kenbe () MICROSOFT ! COM>
Date:       1997-04-29 15:14:02
[Download RAW message or body]


Here's a quick class I put together using the cryptoapi.
I hope it's helpful.
Once it is initialized the class is stateless.
Just does encrypt and decrypt right now.
Init is just present to ensure that a keyset has been created.


KenBergmann
MSDNDeveloperTechnology

> -----Original Message-----
> From: dj [SMTP:djQuecke@WORLDNET.ATT.NET]
> Sent: Tuesday, April 22, 1997 1:49 AM
> To:   CryptoAPI@LISTSERV.MSN.COM
> Subject:      VB Example(s)
> 
> 1. Does anyone have VB code examples for accessing CrypoAPI services
> under Win95 that they might be willing to share. I downed what little
> MS has and my apologies to the writer but I have an extremely hard
> time following their code.
> The is somewhat awkward, at least from my chair. It jumps through half
> a dozen functions doing intializations during form load and I must be
> getting lost as I can't get my try to aquire a context. I hate it when
> I trip on step one <g>.
> 2. What API do you use to obtain a list of providers and algorythms
> available on a Win95 machine? The code example reads info from
> registry and then states in comments that an API "should" be used.
> They don't state which one.
> 3. I have several CryptoAPIs/Libraries installed on my machine now:
> WinCrypt.TLB, CryptOLE ( a VB wrapper), CryptCom.dll, Crypt32.dll.
> None appear similar under VB's object browser. And I haven't figured
> which match the functions currently listd on MS site in Win32 SDK.
> Should I clean house here or are they all compatible/ what are current
> implementations??
> Thanks, for your help,
> dj

begin 600 crypto.zip
M4$L#!!0````(`".\>R(-+UPR.0```$(````*````0U)94%1/+E9"1PMS<@_R
M#PU0,-4SX.4**,K/2DTNL2TN2HY)+JHL*,G7*TLJX.4*+DDL*BDM@$F7%)?$
ME*06ET`D`5!+`P04``````!$BG\B````````````````!````%-20R]02P,$
M%```````18I_(@````````````````0```!44U0O4$L#!!0````(`!N\>R)K
M5K_QJ`P``"!)```/````4U)#+T-#4EE05$\N0TQ3[1M=<^(X\CU5^0\J;FN`
M.Y*%A&0R#SP88Q(J?!TFV9E]H0P6P3>.Sß&?;7GUH?MF0;8B:3O=N;4%,3
MHFZUNEO]I99R;TS,WFB(&J=UI/<UTSP^:AO7O>'Q$4*#C1LY=R%&+7320*@\
M#3;X^,@8=HZ/M"@*G/DFPNB^/1M:CX!3TO5@NX[\4@I\[?ISRP4D<VTM`+-K
MN2%.8>D!MB)K[@*<+:2`QP&V\<*UR(^>O8.$\6WMA]B."8S6D>-[B`R[SL*)
MCH^.C\:!\V01[`ZCA;H;;T&1M,6_-TZ`==^+\+<(]9TY*EGVD[5VSL].;=<M
M(<UUK)`("3*JV%H)S4!?"%56X\!_0EJ(^K[W4$/M[;WEHA#P+,?#`4!,PK$$
M@PF.K8(X-8YB/P/.=+O&:<+V<]>U'D(Q7!5?]DI*%8UOK'#UDI0)9B(@6SA7
M3,U]<.STX.H6;Y.QM&`*^S6THEP=)$T'$PB&15X0)D9\A2QM*\0=*[(*"[26
MQ2\J4!@%_K;(_DBHI5B:'2I\:;U"&A28R6H'BT<I&=X"?N0MF-H;Q7IR)!2#
M7<>#72NX+=SUQ%8*M[.?8:2/O=V$VINE!#]`9#+ZEQ"YF$C7.`*O&5N!]?B2
MV<BXA7S/?F9TX^&8:\W;)H+F[-9+41&F[9?J+L1!`5=(,`M*1##--5[(D4$L
M=:#BO4+L>:\*=-G`?#"C8+%TVUY@5>!EF,TS^8SY"G8/MH0]G$^PBZVP:"6@
M8A>TAN_@RG0>O"(Y0>!)-<D>A>88IM`T#A?[2I+\\$)65Z,+&3@XN-SCP%EN
M01`KVA#`"Q*GT(L)GN94B*7RFQ9[-=[,<\)S1EDO[W-YX7MA9'E1B)9^P%*$
M_Q!8ZQ6A/NZA)5=&F.A)AQEH8,XZ1G<VGHSNH>0>.(O`#_UEA*`VD>DX"Q27
MED^-TWI)UKGA;1Y3)2\35)]\&4]G]\:DU_VBCX93X_.4+//AIEMG'QEK:/QV
M:WPQ#89Q)8,Z1M^8&A*T068:GDT7SC`B^*1A'T<XN,:<G?%X9@SO!EK_VB1D
M&LH@L*?UAL8$0&<QJ#<83[^,#3)V'H\-M0$,-.,!<>IIH8MX+*9'1B\/X=:,
MN9V,[F<34YMU[_I]B5\Q;/:N)59AM&.:$J,PTAU-IL;OOVL2NS`\,&?&9_U&
M&UX;$M,`,<T^8S@9F4YG`RK&Q]2HIO^3C%ZE1MN388<,?TH-3T8CV+M&/37>
MHSPW&GM4=(NW;=>?PY$E9+/-WF#<-]K]49N9`Z=YU^[W]%OC2PR(Y>C=:]2`
M8LC'_>M):VG3&9DHJ:L1CYN]ZZ$VO9L8;!]V$F0)5*+)S-KX/!Y-IEJ[;\A2
M,-B=:4S`+:>&/C4Z%'XFP_6)022:F5J?>413F3SN`)"P+7QI)VN:^^`'3K1Z
MU%TK%!+WKV?T\#[3AD"AGAZ6Y;YJ?#I+PP?F]<P84EY`7Y?G5\TT"F%0DW#.
MFA<?+],X-YIY`_9\]O'R*@TCLLDFW*Q_NMP7$V(Q81,26N#:62'I*/.EBX8D
M'!V?F!HUXS-))`IH]T?Z+8`NSB5)*,B<3@QM`&+6FZG-*/_Z*S+]1XR`;KB9
MGSBV%*0I[P1B;N8]6]H=L]>A(2##N@",;W4IQ,F0@:E-?QM-;I/0(4.-X71R
M9TZ3**(0O1ZS.)(K`"@L7X".D2M`)\_`!"!?`(!T!F;6W8"+MNLOOJ*%LU[A
M`#A!64XHBDXQ<CDR\I2FGV5U=<Y04THB@Y^32"M&>T3^),J*45VC:I9,!49-
MK6M,S-O+9A)NM7Y'!C7.KEC0S6Q"%&#K49(_9R<8SFX%3/1F5@&FH?7S-4Y+
MH7Q-`RAOA4'G++O"H-/,JGC0N<AJV+R14EF,J>E9_4YZ8V/0R6J8C3<NZ[*&
M.7&S?TX68`OG:-@2083(B[W(63HX0#9>.IZ3*J[4F!,K08>5F`9246X4J/&(
M_\XUILQN'CB[J<R^.'#VA32;*;_X;((OKTUWZ8"U-5V:S0N>H4(BR4,R'8BD
M$AT>)R5:'3ZU`"T(:A(M'K)2?-T:7SXKM)3D=!AK-*SL2),R)99M9-8,4V9+
M5XVL.!TR4Z&CFMM..CS%*81DR^-!Y+LHP=P]N9WU`(/`#[B;#:?&;#CBY<_)
M6:-Y>?7I_*K12*!MK:,4,0G2CEJ)G9;N3*ZPF=X;W]":F%T-E'M+%)%O-80]
M>ND0K9S,68L+.R-BD8EBF\ADPPTQGVCSF>4"4YM9!D$F!8E[31H/?$_&HU&B
M_#>0O+>DX4XT&$^0S;Z%A#.,;.B8;$+'>Z"_/CA/V$-K*PR?_<`FJVSFKK.0
MN\%T;F5'OX7=J!"(N+S@A!*<:O+U^*CC/,J7'QE0?$#-@%QJ([1[DAR;$P`<
MPM,`FMO81P5,<+AQHQP`/^QG`480H#Q2H0I09&EOEDL<Y(%<LLA#M%+)'1^5
MKW&$5I9G@_7Y;+/PT@)6UUPOI\='(P]13T$@Q2-&0WI4IQS&EV"2BEOH:3[<
MN*Z^L@("B!7<4AH''Q0LH:!6JB-023:A)FUC+=FWFGKDK:%Z->:-_'_:M\*H
MX[I4@..CWA+I;=]W*WS!*IJNL,=\/.$AN712UA<.0-:@_^AV5_GD72L"<-^J
MZLJB%5FAM&N)===0'WN5^-<JDS,FL&_U(ARH7,3W5(KX4CSALC,M"&^0^"G$
M4U&^X%,>!W@-'3H+A=2LT9S:>A936'J+*0R4F6(,/L)56MQ+*GQ:3;+*G&E]
M$T?27$H]AUD1!T7PR^%2LK7D9J82ZY)JMD'_Y\O5A&0Y;!52]2'JAH\0HH4&
MCOU+)6:CL8\3@P:#/'(AX['4M1R:L7R1(ZB&3E%[&^$0!9AZ/]R?E]`'I)M1
M4-FS&D\]+W.0MSK8./J*MZ>E%(44U2S%++45!'XJB$1,)J02R1)8T)!#Z0@2
M8GHR-3O-8M$2A7BQ"9QHBQ8L;@(-*3'S&P*"%H:08D%J&@R35`:&H(0`<=%:
MD1V\S,>9P/[\7W@1<4HT]^5389&41\N8&9%A>`*2&:))-T5+O>50(A.$PO+8
M)[+-W2T*+(=0MSR$XYA/'832`Q^94`08JR%MO3XE1.S-(H+7(36J8Z8[49!0
M#8KKXA.$O>\O;3B5]](&O7%I0P$PAW/P7O.\USP_>\U#ULV<17>G_]A[9*+H
M[Z+A5BSIYQ(IEL>I!J3Y0L9<#K+E')_X8^HY$?P+UW,BSA>IYVJQEOZLRDZ(
M\V:5'4^1[Y7=&U=V.ZWCO>3[`25?#SKTENO\@:GC<Z/FN@SCXL[<S!&@5JJL
M['BR1)JN-.KU>I67'^`%O"Z1ZK+<.BA&$.53!J'GV?B;Z@<Y91RK[_8@L#HO
M'T$JZ_*+-:GPW%6TY0NJH,`+-/IV>R>*7"Z^6#;FT-A5R[VR>BMK480?(2DD
MOFKMJ"N_8N:^=+73'U[Y]99HZ$>[XW^9U78[V5$3V*M92KW,J<;UX%XF"V4[
M$29U?^/:R"/T>'1519(C=3'GC]&_.1%XM!JGV9M-JDHX/-!#WS+P'_=K5/9B
M5O](H:%>A6*J<M?V-YXM`:KH'ZA13>^)_'Y5V1'YS5!-#CWU:DWA(*F=WV@C
M`AP%#GY*;44V<[[!?L0QA.Y)H@2&TO4#$3!;J)_5]]1'V5U03A&26AFAO.(J
MB60MZ?L'I*^"7^2-YQ2D%;)5")6Z*^M;EAS"%Y=(:?)(`>E!.>*&\3/&KW@K
M1Y_D";%B5/(C)?6L\Y+MO'0BY'#IKDU5I(A48$/XVX*(\,!^65N.I`U9`F\_
M]SL.:X>>#5.5$:RT=P<+U>T[H]DFA,<8\JYE*MG#W"CK2L6JV!SWWL_;#W'O
M(C8M6T<QDY;>X_TEC5KA_Z]KUK(&_L>L>A=K/]JH`WX:2JQY'6>LPH<?H$<7
M(03AX3DZX6H.H5\4^R>\[+;0VL$+C/PE[UZDV](POVA/&MZ9!PX[!\5H2@6M[5$G[^C?NGW]W^M2%VP9)ZIHH5+IO8?\5CUD^*4F-1W?H'?,W$[JBJ"E$X01
 M=X_87.'^GNDNP\ZG;G1VCQES1"++6VD<FQUF)L735AV*G>6EES77\!P9AR
M"'\+G6)1-E#13&6D]O12<U3A!RC`EONG2?9#6^]4G):TZO=U(GG>4Z,Q:(F`
MTP>C_].;YY^U>7AON8X->CU!BQ5>?`U97SS<T#:1DH]!-[0:F6.R8&0]KC'T
MR9^=:)5-U8+NKG2=_&D9-[G7IW)P&&QY/\U]\_L5\7MZ3W??#FN3O%E>$C;.
MKU-C+\^[.8S93_UQ:JS#;$J5I,CDX#_K<C(.G.*9]&LN(I\$L9S#YFNO&:$?
M4:!1\W_\F$R1^Z>[6VSE_%$`*QEH]S8N!EY?3OP'4$L#!!0````(`.VH>R(M\ZEM1@```$@````.````4U)#+T-265!43RY"05-S+"DIRDPJ+4E5"'.*]TO,
 M356P55!R+JHL*,E7XN7R+RC)S,]3<*THR,E,SBSAY>+E"BY-4O!-S,S3T`3Q
M7/-2%(`BO%P`4$L#!!0````(`"JJ>R(=LST/]`$``"X#```.````4U)#+T-2
M65!43RY60E!-4L&.FS`0O2/Q#XA<=BL5L6352\4A@4V+NB&H9)-#TX.!(?'6
MV)9MLDFK_GL]D&0;H6C>>^,W?@/KLX1XQ2!ES'6^0PL*>`WQA]V7/V$81N'C
M-/QHB\M?<JW&W^.GOY,H""?A)`AVMV>;Y>EJ6^[*LS;03:-=N4Y7ST]1L'Z>
M3VSAS7HC.F*HX*Z3,*)UG"3J+(WX[-7U4`0UTZZS%$W/(+YIHU01*Y6&*-/+
MV+_+!8=[WW6^`I,+:MM]"W*1"&Z48"]RKT@#\8/KK*E!s;S&W7TPERTL$T
MBOV+=\.8Y0MB#D@&@06)Z#K"&\1H;/NO'B6H(ZC!"8?C1#B9+(W]T%(IZ%I1
MB2FO!V9%YF6V2;6D!F^KB)2@O!^;^<]QCK0[J1C8V#!Z+,FK4!M0>/TEY6,MXGLZ4FV-+Q#WF?%:00?<7+CQ<F4OI5`&]Z*1M2*>PTRV5<=^=?:^`??FH/8V
 M)??_;Y&$G\>\2UHKH45KO$0H:SB\N\N=*1O0\!W9"2N;N*._W[G(=1;D*%1A
M!]*^*Y2X,]T]MB8VYX;"6PI5O\]X*Y#,Q8Q1HBG?(YJ+GC<Z.4#]:S"WD5HF
MWF[$@A6"<O..TVQS`R]<X7%H%L6P$?QDAMT^H$:,`1116A\4D*8`M:I>H39(
M+<DI[[O*4NVH:CSV#U!+`P04````"`!%KGLBM_%LFI0#``"^$@``#````%13
M5"]415-4+D923<U7;4_;/!3]7JG_P:HF#22&DJ;IRR0^T-(]3[1"*]+!1^0D
M+EBX=N0X4/;K9^<]0-V*K!.16K4YUS?GG.MK.S?3:]>97P'[U##:K3&ZQQ3<
MC$]_,+X&ZLL$[18`8`)#@1D%^74F/YT$[Z0XP8B*_Q&^?Q`YWAOVC0HX0RM1
M#JY!2Q96\EI&%;O%@7@HL(%AV0DXP_11#L/^%D(SYC].&!6<D2C'OYD`?%WR
M&"41K@\)*AG7*2=@^>CZLUT!N?@5+EB$$U,2TC+U+:8!>X[`!5K!F(@DMG!T
MB39BS#9`;,0"1M$SXT%JK;PJ+(JG=8=V#I?.E;!I%/`2>@X-T*8&FP5:>%MQ
MV"P&5S26M1G:*3ZEP581+KZG4,0<'5#%2"¹!D?$S%AZS6DP3@60A;/$S>0
MX`"*4LB[DSV/ZNCDVCU#)]>RAUJ]`YW>7E<OV+(&>PI6I=.+51&'%-K7SLY^
M3SL]]Q=Z@7S^$@J]UBRHB=P=T]C^-V6=TCW49D$'5-L[3&TK2\\\%OI%Q^AJ
M5YWJ[+R,B<`S3%$%K^\3R6[`&2%CR*-*$ADS9N)!9X6EL\*T^Q\L?,4*AS9R
MHE+*@QJAW8T^;L0,>H@`XI%+B$LCSF/!7/P;57.\43*&_J,K7DA5KI'$0!J%
MD",JM'V4[^':1C)'A;TU2UY/CW=+8^DW>$-GJ=[0_LCX='X6QXDFAG8;&#K4
M^CG0'Y@^X03-%GH4`+5<-''5;++3=[6=;QE:7TUC^/EFZH0@R!N;VF2'U;;^
M+D\'W8JER=>Y$!Q[L4#2V+LKN$8RKGB5JH'_$>9!HD+<$/HJ[@<D$7H5->$(
M"NB1;?B"HP#Y1#H=.(&,28M3"YEN0A:AH$PP3PLA[Q/L8UF@!<=/ZLS.)LF9
MYSP"D^07:[=*T(V]\A1X-Y%#'X^.93*9B'/&P36*8BGW2M:RW4IWT[,LXVDV
MZFC)\?K+47KJ.#X!Q=]\`SB6"9V52@B6#XB"R^A>[<WROTP1^1PGS$_`DS?_
M.:?DY01T4J)@B2))/`P[21T4V;?<LR[>@[LZ%!7DLV$E>8?^>^YJ2=^#>/DB
M6=!7M^K&'Y1H_FJWB^P%7@-/W2')A!LS1A"D[59^K^"?)]PZ>0K-?T'8=S#M8)$JDZER,BI=N@YD.?,W6-5'4>S["`4HZ.SR+.F^+5E6$),]4DC;GV^]5"
 M<S=C,%"^NTCD'7TF37\NFSISUJ&J^8M4?P!02P,$%`````@`(+Q[(AQ[ZW^&
M`0``:`(```P```!44U0O5$535"Y60E!544UOFT`4O%OR?XCPI:U4M,%1;QP<
M""U2L%%QG0N7!1[)INR'WCX<NU7_>W?!T0C/S-+S987\V$#^<8+GX#CT@
MJ!;B3_77WXRQB-VMV6<'+J_D'YJ?NR]_5E'(5FP5AO7U/.7;=/=4Uy$LAU
M5%?[=/?X$(7[Q_N5`S>;D;3D)+1ZOW+CS!;;NL6S(1T>&[-<9!IE3&`I[%$N
M%Q5QI-'$034V-P47*E@N$BTE5]TZB@/'MEQ"')2H7Z&E6R=\@\$D6A&<*$_C
M@,T.X_8W`Q2Z@UDK^*O&`V!\Z[!0,V8^X%%8%_5"??9<M0@2%%VT"O`(6(W&
M:*1,#&"]ZH;>-^U2YSE6(5K45O=T"2&&J8;I#SC+SI"0XM<[+>-'C:5;)D;I
M;O6!Y$<O)R[X0<!;"LWXG*M>>W&K-X/@5JAGS^[UJ#J;O$#[<_JXR]@/^NTJ
M9$.IA:+_/,T/5_)#H;=#EY73%7WO4UG3C!.!'WJV?T'@70FX:WSE7BKX:3O*
MQDG]/+6^U;]02P$"%``4````"``CO'LB#2]<,CD```!"````"@`````````!
M`"``````````0U)94%1/+E9"1U!+`0(4`!0``````$2*?R(`````````````
M```$``````````$`,````&$```!34D,O4$L!`A0`%```````18I_(@``````
M``````````0``````````0`P````@P```%135"]02P$"%``4````"``;O'LB
M:U:_\:@,```@20``#P`````````!`"````"E````4U)#+T-#4EE05$\N0TQ3
M4$L!`A0`%`````@`[:A[(AWSJ6U&````2`````X``````````0`@````>@T`
M`%-20R]#4EE05$\N0D%34$L!`A0`%`````@`*JI[(AVS/0_T`0``+@,```X`
M`````````0`@````[`T``%-20R]#4EE05$\N5D)04$L!`A0`%`````@`1:Y[
M(K?Q;)J4`P``OA(```P``````````0`@````#!```%135"]415-4+D9235!+
M`0(4`!0````(`""\>R(<>^M_A@$``&@"```,``````````$`(````,H3``!4
A4U0O5$535"Y60E!02P4&``````@`"`#%`0``>A4`````
`
end

----------------------------------------------------------------
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] 

Configure | About | News | Add a list | Sponsored by KoreLogic