A new version of CryptoCore was added to project The Inbox:
http://source.squeak.org/inbox/CryptoCore-rww.6.mcz

==================== Summary ====================

Name: CryptoCore-rww.6
Author: rww
Time: 28 September 2010, 6:57:27.584 am
UUID: 0bbc592b-767b-7c42-8512-0118c433be8d
Ancestors: CryptoCore-rww.5

added fix to RSAKeyPairGenerator by Denis Kudriashov and refactored DSA and RSA Key Readers

=============== Diff against CryptoCore-rww.5 ===============

Item was changed:
  SystemOrganization addCategory: #CryptoCore!
  SystemOrganization addCategory: #'CryptoCore-Base'!
+ SystemOrganization addCategory: #'CryptoCore-Readers'!
  SystemOrganization addCategory: #'CryptoCore-Utilities'!
  SystemOrganization addCategory: #'CryptoCore-ASN1'!
  SystemOrganization addCategory: #'CryptoCore-ASN1-Objects'!
  SystemOrganization addCategory: #'CryptoCore-ASN1-Types'!
  SystemOrganization addCategory: #'CryptoCore-ASN1-DefinitionModel'!
  SystemOrganization addCategory: #'CryptoCore-PKCS12'!

Item was added:
+ Object subclass: #DSAPrivateKeyFileReader
+ 	instanceVariableNames: 'bytes decryptedBytes iv password'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CryptoCore-Readers'!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader classSide>>fromFile: (in category 'as yet unclassified') -----
+ fromFile: filename
+ 	"(DSAPrivateKeyFileReader fromFile: '/usr/local/ssl/private/dsa.key')"
+ 	"(DSAPrivateKeyFileReader fromFile: '/Users/slosher/Desktop/squeak/certificates/dsa.key')"
+ 
+ 	| fs data |
+ 	fs := StandardFileStream fileNamed: filename.
+ 	data := fs contentsOfEntireFile.
+ 	^ self new initializeFromFileContents: data.
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>asASN1Value (in category 'converting') -----
+ asASN1Value
+ 
+ 	self decryptedBytes isNil 
+ 		ifTrue: [self decrypt].
+ 	^ ASN1Stream decodeBytes: self decryptedBytes
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>asPrivateKey (in category 'converting') -----
+ asPrivateKey
+ 
+ 	| asn1 |
+ 	asn1 := self asASN1Value.
+ 	^ DSAPrivateKey p: (asn1 at: 2) q: (asn1 at: 3) g: (asn1 at: 4) x: (asn1 at: 6).
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>asPublicKey (in category 'converting') -----
+ asPublicKey
+ 
+ 	| asn1 |
+ 	asn1 := self asASN1Value.
+ 	^ DSAPublicKey p: (asn1 at: 2) q: (asn1 at: 3) g: (asn1 at: 4) y: (asn1 at: 5).
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>bytes (in category 'accessing') -----
+ bytes
+ 	"Answer the value of bytes"
+ 
+ 	^ bytes!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>bytes: (in category 'accessing') -----
+ bytes: anObject
+ 	"Set the value of bytes"
+ 
+ 	bytes := anObject!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>decrypt (in category 'initialization') -----
+ decrypt
+ 
+ 	| cipher key block encryptedStream decryptedStream |
+ 	self password isNil 
+ 		ifTrue: [self password: (FillInTheBlank requestPassword: 'Enter your password')].
+ 	key := OpenSSLKeyDerivationFunction new 
+ 		derivedKeyFromPassword: self password 
+ 		salt: self iv 
+ 		size: 24.
+ 	cipher := (TripleDES key: key) cbc initialVector: iv.
+ 	encryptedStream := self bytes readStream.
+ 	decryptedStream := ReadWriteStream on: (ByteArray new: encryptedStream size).
+ 	[encryptedStream atEnd] whileFalse: 
+ 		[block := encryptedStream next: 8.
+ 		cipher decryptBlock: block.
+ 		decryptedStream nextPutAll: block].
+ 	self decryptedBytes: decryptedStream contents.
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>decryptedBytes (in category 'accessing') -----
+ decryptedBytes
+ 	"Answer the value of decryptedBytes"
+ 
+ 	^ decryptedBytes!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>decryptedBytes: (in category 'accessing') -----
+ decryptedBytes: anObject
+ 	"Set the value of decryptedBytes"
+ 
+ 	decryptedBytes := anObject!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>initializeFromFileContents: (in category 'initialization') -----
+ initializeFromFileContents: data
+ 
+ 	| i j theData |
+ 	i := data indexOfSubCollection: '--BEGIN ' startingAt: 1.
+ 	i = 0 ifTrue: [self bytes: data asByteArray. ^ self].
+ 	i := data indexOfSubCollection: 'KEY--' startingAt: i.
+ 	i := data findAnySubStr: String crlf startingAt: i.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ 	self processProcType: (data copyFrom: i + 1 to: j).
+ 	i := j.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ 	self processDEKInfo: (data copyFrom: i + 1 to: j).
+ 	i := j.
+ 	j := data indexOfSubCollection: '--END ' startingAt: i.
+ 	theData := (data copyFrom: i to: j)
+ 		reject: [:c | (c = $-) or: [c isSeparator]].
+ 	theData := (Base64MimeConverter mimeDecodeToBytes: theData readStream) contents.
+ 	self bytes: theData.
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>iv (in category 'accessing') -----
+ iv
+ 	"Answer the value of iv"
+ 
+ 	^ iv!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>iv: (in category 'accessing') -----
+ iv: anObject
+ 	"Set the value of iv"
+ 
+ 	iv := anObject!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>password (in category 'accessing') -----
+ password
+ 	"Answer the value of password"
+ 
+ 	^ password!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>password: (in category 'accessing') -----
+ password: anObject
+ 	"Set the value of password"
+ 
+ 	password := anObject!

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>processDEKInfo: (in category 'initialization') -----
+ processDEKInfo: data
+ 
+ 	| stream algorithm |
+ 	stream := data readStream.
+ 	stream upTo: $:.
+ 	algorithm := (stream upTo: $,) withBlanksTrimmed.
+ 	self iv: (Integer readFrom: stream base: 16) asByteArray.
+ !

Item was added:
+ ----- Method: DSAPrivateKeyFileReader>>processProcType: (in category 'initialization') -----
+ processProcType: data
+ !

Item was added:
+ Object subclass: #EuclidAlgorithm
+ 	instanceVariableNames: 'a b u v gcd'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CryptoCore-Base'!

Item was added:
+ ----- Method: EuclidAlgorithm classSide>>with:with: (in category 'as yet unclassified') -----
+ with: a with: b
+ 	^ self new with: a with: b!

Item was added:
+ ----- Method: EuclidAlgorithm>>doBasicAlgorithm (in category 'as yet unclassified') -----
+ doBasicAlgorithm
+ 	| u1 a1 b1 q r |
+ 	u := 1. u1 := 0. a1 := a. b1 := b.
+ 	[b1 = 0]
+ 		whileFalse: 
+ 			[q := a1 // b1.
+ 			r := a1 - (b1 * q).
+ 			u1 := u - (q * (u := u1)).
+ 			a1 := b1.
+ 			b1 := r].
+ 	gcd := a1.
+ 	v := b = 0
+ 			ifTrue: [b]
+ 			ifFalse: [gcd - (u * a) // b]!

Item was added:
+ ----- Method: EuclidAlgorithm>>firstCoefficient (in category 'as yet unclassified') -----
+ firstCoefficient
+ 	^u!

Item was added:
+ ----- Method: EuclidAlgorithm>>gcd (in category 'as yet unclassified') -----
+ gcd
+ 	^gcd!

Item was added:
+ ----- Method: EuclidAlgorithm>>lehmer (in category 'as yet unclassified') -----
+ lehmer
+ 	"For a desciption of the algorithm below for large integers See 'A Course in Computational Algebraic 
+ 	Number Theory' by Henri Cohen"
+ 
+ 	"do Preprocessing"
+ 	| a0 b0 a1 b1 aHat bHat higher aa bb cc dd q t r v1 bcc bdd quoRem e k |
+ 	b1 := b abs.
+ 	a1 := a abs max: b1.
+ 	b1 := a abs min: b1.
+ 	a0 := a1.
+ 	b0 := b1.	"Initialize elements"
+ 	u := 1.
+ 	v1 := 0.
+ 	aa := 1.
+ 	bb := 0.
+ 	cc := 0.
+ 	dd := 1.
+ 	higher := 30. "Core.SmallInteger maxVal highBit."
+ 	["Are we done yet"
+ 	b1 class == SmallInteger]
+ 		whileFalse: 
+ 			[aHat := a1.
+ 			k := higher - a1 highBit.
+ 			(aHat bitShift: k) class == SmallInteger
+ 				ifFalse: 
+ 					[k := k - 1.
+ 					aHat := aHat bitShift: -1].
+ 			bHat := b1 bitShift: k.
+ 			
+ 			["Test the quotient"
+ 			bcc := bHat + cc.
+ 			bcc ~= 0
+ 				and: 
+ 					[bdd := bHat + dd.
+ 					bdd ~= 0
+ 						and: 
+ 							[q := aHat + a1 // bcc.
+ 							q = (aHat + bb // bdd)]]]
+ 				whileTrue: 
+ 					["Euclidean step"
+ 					aa := cc.
+ 					cc := aa - (q * aa).
+ 					bb := dd.
+ 					dd := bb - (q * bb).
+ 					aHat := bHat.
+ 					bHat := aHat - (q * aHat)].
+ 			bb = 0
+ 				ifTrue: 
+ 					["Multi-precision step"
+ 					quoRem := a1 digitDiv: b1 neg: false.
+ 					a1 := b1.
+ 					b1 := quoRem at: 2.
+ 					u := v1.
+ 					v1 := u - ((quoRem at: 1)
+ 									* u)]
+ 				ifFalse: 
+ 					[t := aa * a1 + (bb * b1).
+ 					r := cc * a1 + (dd * b1).
+ 					a1 := t.
+ 					b1 := r.
+ 					t := aa * u + (bb * v1).
+ 					r := cc * u + (dd * v1).
+ 					u := t.
+ 					v1 := r]].
+ 	e := self class with: a1 with: b1.
+ 	e doBasicAlgorithm.
+ 	gcd := e gcd.
+ 	u := u * e firstCoefficient + (v1 * e secondCoefficient).
+ 	v := b0 = 0
+ 				ifTrue: [b0]
+ 				ifFalse: [gcd - (u * a0) // b0].
+ 	a abs >= b abs
+ 		ifFalse: 
+ 			["Postprocess"
+ 			t := u.
+ 			u := v.
+ 			v := t].
+ 	a < 0 ifTrue: [u := u negated].
+ 	b < 0 ifTrue: [v := v negated]!

Item was added:
+ ----- Method: EuclidAlgorithm>>run (in category 'as yet unclassified') -----
+ run
+ 	((a isKindOf: LargePositiveInteger)
+ 		and: [b isKindOf: LargePositiveInteger])
+ 		ifTrue: [self lehmer]
+ 		ifFalse: [self doBasicAlgorithm]!

Item was added:
+ ----- Method: EuclidAlgorithm>>secondCoefficient (in category 'as yet unclassified') -----
+ secondCoefficient
+ 	^ v!

Item was added:
+ ----- Method: EuclidAlgorithm>>with:with: (in category 'as yet unclassified') -----
+ with: numberA with: numberB
+ 	a := numberA.
+ 	b := numberB!

Item was changed:
  ----- Method: Pkcs12PrivateKeyFileReader>>decodeSafeBag: (in category 'initialize-release') -----
  decodeSafeBag: safeBag
  
  	| asn1 key keyBag cert |
  	safeBag bagId oid = '1.2.840.113549.1.12.10.1.1'
  		ifTrue: [
  			asn1 := ASN1Stream decodeBytes: safeBag bagValue.
  			(asn1 at: 1) > 0
+ 				ifTrue: [key := RSAPublicKey exponent: (asn1 at: 3) modulo: (asn1 at: 1)]
- 				ifTrue: [key := RSAKey exponent: (asn1 at: 3) modulo: (asn1 at: 1)]
  				ifFalse: [key := RSAPrivateKey p: (asn1 at: 5) q: (asn1 at: 6) dP: (asn1 at: 7) dQ: (asn1 at: 8) qInv: (asn1 at: 9)].
  			self privateKeys add: key.
  			^ self].
  	safeBag bagId oid = '1.2.840.113549.1.12.10.1.2'
  		ifTrue: [
  			keyBag := safeBag bagValue decryptWithPassword: self password.
  			key := keyBag asPrivateKey.
  			self privateKeys add: key.
  			^ self].
  	safeBag bagId oid = '1.2.840.113549.1.12.10.1.3'
  		ifTrue: [
  			cert := ASN1Stream 
  				decodeBytes: safeBag bagValue certValue 
  				withType: ((ASN1Module name: #x509) find: #Certificate).
  			self certs add: cert.
  			^ self].
  	self error: 'unknown safe bag: ', safeBag bagId oid.
  !

Item was changed:
  ----- Method: Pkcs8PrivateKeyInfo>>asPrivateKey (in category 'api') -----
  asPrivateKey
  
  	| asn1 |
  	asn1 := ASN1Stream decodeBytes: self privateKey.
  	(asn1 at: 1) > 0
+ 		ifTrue: [^ RSAPublicKey exponent: (asn1 at: 3) modulo: (asn1 at: 1)]
- 		ifTrue: [^ RSAKey exponent: (asn1 at: 3) modulo: (asn1 at: 1)]
  		ifFalse: [^ RSAPrivateKey 
  			p: (asn1 at: 5) 
  			q: (asn1 at: 6) 
  			dP: (asn1 at: 7) 
  			dQ: (asn1 at: 8) 
  			qInv: (asn1 at: 9)]!

Item was removed:
- Object subclass: #RSAKey
- 	instanceVariableNames: 'exponent modulo'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'CryptoCore'!
- 
- !RSAKey commentStamp: '<historical>' prior: 0!
- My instances are RSA algorithms.!

Item was removed:
- ----- Method: RSAKey classSide>>exponent:modulo: (in category 'instance creation') -----
- exponent: anInteger modulo: anotherInteger
- 	^ self new setExponent: anInteger modulo: anotherInteger!

Item was removed:
- ----- Method: RSAKey>>bits (in category 'accessing') -----
- bits
- 	^ modulo highBit!

Item was removed:
- ----- Method: RSAKey>>crypt: (in category 'process') -----
- crypt: anInteger
- 	^ anInteger raisedTo: exponent modulo: modulo!

Item was removed:
- ----- Method: RSAKey>>exponent (in category 'accessing') -----
- exponent
- 	^ exponent!

Item was removed:
- ----- Method: RSAKey>>modulo (in category 'accessing') -----
- modulo
- 	^ modulo!

Item was removed:
- ----- Method: RSAKey>>setExponent:modulo: (in category 'initialization') -----
- setExponent: anInteger modulo: anotherInteger
- 	exponent := anInteger.
- 	modulo := anotherInteger!

Item was removed:
- ----- Method: RSAKey>>v15Decrypt: (in category 'process') -----
- v15Decrypt: aByteArray
- 
- 	| em stream |
- 	em := self crypt: aByteArray asInteger.
- 	stream := em asByteArray readStream.
- 	stream upTo: 16r02.
- 	stream upTo: 16r00.
- 	^ stream upToEnd.
- !

Item was removed:
- ----- Method: RSAKey>>v15Encrypt: (in category 'process') -----
- v15Encrypt: aByteArray
- 
- 	| em k ps | 
- 	k := self modulo asByteArray size.
- 	ps := SecureRandom new nextBytesNonZero: (k - aByteArray size - 3).
- 	em := 16r00 asByteArray, 16r02 asByteArray, ps, 16r00 asByteArray, aByteArray.
- 	^ (self crypt: em asInteger) asByteArray.
- !

Item was removed:
- ----- Method: RSAKey>>v15SignMessage: (in category 'process') -----
- v15SignMessage: aMessage
- 
- 	^ self v15SignMessageHash: (
- 		SHA1 digestInfoAsn1DerEncodingFromMessage: aMessage).
- !

Item was removed:
- ----- Method: RSAKey>>v15SignMessageHash: (in category 'process') -----
- v15SignMessageHash: encodedMsg
- 
- 	| padded toBeSigned |
- 	padded := ByteArray new: (256 - encodedMsg size - 3) withAll: 255.
- 	toBeSigned := #(0) asByteArray, #(1) asByteArray, padded, #(0) asByteArray, encodedMsg.
- 	^ (self crypt: toBeSigned asInteger) asByteArray.
- !

Item was removed:
- ----- Method: RSAKey>>v15Verify:isSignatureOf: (in category 'process') -----
- v15Verify: aSignature isSignatureOf: aMessage
- 	"Answer true if the given signature string signs the given message."
- 
- 	^ self 
- 		v15VerifySignature: aSignature 
- 		ofMessageHash: (
- 			SHA1 digestInfoAsn1DerEncodingFromMessage: aMessage).
- !

Item was removed:
- ----- Method: RSAKey>>v15VerifySignature:ofMessageHash: (in category 'process') -----
- v15VerifySignature: aSignature ofMessageHash: encodedMsg
- 	"Answer true if the given signature string signs the given message (a stream or string)."
- 	"Note: Random numbers are not needed for signature verification; thus, there is no need to call initRandomFromUser before verifying a signature."
- 
- 	| bytes signedMsg |
- 	bytes := (self crypt: aSignature asInteger) asByteArray.
- 	signedMsg := bytes readStream upTo: 1; upTo: 0; upToEnd.
- 	^ encodedMsg = signedMsg
- !

Item was changed:
  Object subclass: #RSAKeyPairGenerator
+ 	instanceVariableNames: 'bits p q d dP dQ qInv'
- 	instanceVariableNames: 'bits p q d'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'CryptoCore'!
  
  !RSAKeyPairGenerator commentStamp: '<historical>' prior: 0!
  My instances generate public/private RSA pairs.!

Item was added:
+ ----- Method: RSAKeyPairGenerator>>dp (in category 'private') -----
+ dp
+ 
+ 	^dP ifNil: [ dP := self d \\ ( self p - 1 ) ]!

Item was added:
+ ----- Method: RSAKeyPairGenerator>>dq (in category 'private') -----
+ dq
+ 
+ 	^dQ ifNil: [ dQ := self d \\ (self q - 1) ]!

Item was changed:
  ----- Method: RSAKeyPairGenerator>>privateKey (in category 'accessing') -----
  privateKey
+ 	^ RSAPrivateKey p: self p q: self q dP: self dp dQ: self dq qInv: self qInv!
- 	^ RSAKey exponent: self d modulo: self p * self q!

Item was changed:
  ----- Method: RSAKeyPairGenerator>>publicKey (in category 'accessing') -----
  publicKey
+ 	^ RSAPublicKey exponent: self e modulo: self p * self q!
- 	^ RSAKey exponent: self e modulo: self p * self q!

Item was added:
+ ----- Method: RSAKeyPairGenerator>>qInv (in category 'private') -----
+ qInv
+ 
+ 	^qInv ifNil: [ "qInv = 1 / q mod p"
+ 		qInv := (EuclidAlgorithm with: q with: p) doBasicAlgorithm; firstCoefficient.
+ 		qInv < 0 ifTrue: [ qInv := qInv \\ p ].
+ 		qInv ]!

Item was added:
+ Object subclass: #RSAPrivateKeyFileReader
+ 	instanceVariableNames: 'bytes decryptedBytes iv password'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CryptoCore-Readers'!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader classSide>>fromFile: (in category 'instance creation') -----
+ fromFile: filename
+ 	"(RSAPrivateKeyFileReader fromFile: '/usr/local/ssl/private/CA.key')"
+ 	"(RSAPrivateKeyFileReader fromFile: '/Users/slosher/Desktop/squeak/certificates/rsa.key')"
+ 
+ 	| fs data |
+ 	fs := StandardFileStream fileNamed: filename.
+ 	data := fs contentsOfEntireFile.
+ 	^ self new initializeFromFileContents: data.
+ !

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>asASN1Value (in category 'converting') -----
+ asASN1Value
+ 
+ 	self decryptedBytes isNil 
+ 		ifTrue: [self decrypt].
+ 	^ ASN1Stream decodeBytes: self decryptedBytes.
+ !

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>asPrivateKey (in category 'converting') -----
+ asPrivateKey
+ 
+ 	| asn1 |
+ 	asn1 := self asASN1Value.
+ 	(asn1 at: 1) > 0
+ 		ifTrue: [^ RSAPublicKey exponent: (asn1 at: 3) modulo: (asn1 at: 1)].
+ 	^ RSAPrivateKey p: (asn1 at: 5) q: (asn1 at: 6) dP: (asn1 at: 7) dQ: (asn1 at: 8) qInv: (asn1 at: 9)!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>asPublicKey (in category 'converting') -----
+ asPublicKey
+ 
+ 	| asn1 |
+ 	asn1 := self asASN1Value.
+ 	^ RSAPublicKey exponent: (asn1 at: 3) modulo: (asn1 at: 2)!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>bytes (in category 'accessing') -----
+ bytes
+ 	"Answer the value of bytes"
+ 
+ 	^ bytes!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>bytes: (in category 'accessing') -----
+ bytes: anObject
+ 	"Set the value of bytes"
+ 
+ 	bytes := anObject!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>decrypt (in category 'initialization') -----
+ decrypt
+ 
+ 	| cipher key block encryptedStream decryptedStream |
+ 	self password isNil 
+ 		ifTrue: [self password: (FillInTheBlank requestPassword: 'Enter your password')].
+ 	key := OpenSSLKeyDerivationFunction new 
+ 		derivedKeyFromPassword: self password 
+ 		salt: self iv 
+ 		size: 24.
+ 	cipher := (TripleDES key: key) cbc initialVector: iv.
+ 	encryptedStream := self bytes readStream.
+ 	decryptedStream := ReadWriteStream on: (ByteArray new: encryptedStream size).
+ 	[encryptedStream atEnd] whileFalse: 
+ 		[block := encryptedStream next: 8.
+ 		cipher decryptBlock: block.
+ 		decryptedStream nextPutAll: block].
+ 	self decryptedBytes: decryptedStream contents.
+ !

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>decryptedBytes (in category 'accessing') -----
+ decryptedBytes
+ 	"Answer the value of decryptedBytes"
+ 
+ 	^ decryptedBytes!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>decryptedBytes: (in category 'accessing') -----
+ decryptedBytes: anObject
+ 	"Set the value of decryptedBytes"
+ 
+ 	decryptedBytes := anObject!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>initializeFromFileContents: (in category 'initialization') -----
+ initializeFromFileContents: data
+ 
+ 	| i j theData |
+ 	i := data indexOfSubCollection: '--BEGIN ' startingAt: 1.
+ 	i = 0 ifTrue: [self derBytes: data asByteArray. ^ self].
+ 	i := data indexOfSubCollection: 'KEY--' startingAt: i.
+ 	i := data findAnySubStr: String crlf startingAt: i.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ 	self processProcType: (data copyFrom: i + 1 to: j).
+ 	i := j.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ 	self processDEKInfo: (data copyFrom: i + 1 to: j).
+ 	i := j.
+ 	j := data indexOfSubCollection: '--END ' startingAt: i.
+ 	theData := (data copyFrom: i to: j)
+ 		reject: [:c | (c = $-) or: [c isSeparator]].
+ 	theData := (Base64MimeConverter mimeDecodeToBytes: theData readStream) contents.
+ 	self bytes: theData.
+ !

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>iv (in category 'accessing') -----
+ iv
+ 	"Answer the value of iv"
+ 
+ 	^ iv!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>iv: (in category 'accessing') -----
+ iv: anObject
+ 	"Set the value of iv"
+ 
+ 	iv := anObject!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>password (in category 'accessing') -----
+ password
+ 	"Answer the value of password"
+ 
+ 	^ password!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>password: (in category 'accessing') -----
+ password: anObject
+ 	"Set the value of password"
+ 
+ 	password := anObject!

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>processDEKInfo: (in category 'initialization') -----
+ processDEKInfo: data
+ 
+ 	| stream algorithm |
+ 	stream := data readStream.
+ 	stream upTo: $:.
+ 	algorithm := (stream upTo: $,) withBlanksTrimmed.
+ 	self iv: (Integer readFrom: stream base: 16) asByteArray.
+ !

Item was added:
+ ----- Method: RSAPrivateKeyFileReader>>processProcType: (in category 'initialization') -----
+ processProcType: data
+ !

Item was added:
+ Object subclass: #RSAPublicKey
+ 	instanceVariableNames: 'exponent modulo'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CryptoCore'!
+ 
+ !RSAPublicKey commentStamp: '<historical>' prior: 0!
+ My instances are RSA algorithms.!

Item was added:
+ ----- Method: RSAPublicKey classSide>>exponent:modulo: (in category 'instance creation') -----
+ exponent: anInteger modulo: anotherInteger
+ 	^ self new setExponent: anInteger modulo: anotherInteger!

Item was added:
+ ----- Method: RSAPublicKey>>bits (in category 'accessing') -----
+ bits
+ 	^ modulo highBit!

Item was added:
+ ----- Method: RSAPublicKey>>crypt: (in category 'process') -----
+ crypt: anInteger
+ 	^ anInteger raisedTo: exponent modulo: modulo!

Item was added:
+ ----- Method: RSAPublicKey>>exponent (in category 'accessing') -----
+ exponent
+ 	^ exponent!

Item was added:
+ ----- Method: RSAPublicKey>>modulo (in category 'accessing') -----
+ modulo
+ 	^ modulo!

Item was added:
+ ----- Method: RSAPublicKey>>setExponent:modulo: (in category 'initialization') -----
+ setExponent: anInteger modulo: anotherInteger
+ 	exponent := anInteger.
+ 	modulo := anotherInteger!

Item was added:
+ ----- Method: RSAPublicKey>>v15Decrypt: (in category 'process') -----
+ v15Decrypt: aByteArray
+ 
+ 	| em stream |
+ 	em := self crypt: aByteArray asInteger.
+ 	stream := em asByteArray readStream.
+ 	stream upTo: 16r02.
+ 	stream upTo: 16r00.
+ 	^ stream upToEnd.
+ !

Item was added:
+ ----- Method: RSAPublicKey>>v15Encrypt: (in category 'process') -----
+ v15Encrypt: aByteArray
+ 
+ 	| em k ps | 
+ 	k := self modulo asByteArray size.
+ 	ps := SecureRandom new nextBytesNonZero: (k - aByteArray size - 3).
+ 	em := 16r00 asByteArray, 16r02 asByteArray, ps, 16r00 asByteArray, aByteArray.
+ 	^ (self crypt: em asInteger) asByteArray.
+ !

Item was added:
+ ----- Method: RSAPublicKey>>v15SignMessage: (in category 'process') -----
+ v15SignMessage: aMessage
+ 
+ 	^ self v15SignMessageHash: (
+ 		SHA1 digestInfoAsn1DerEncodingFromMessage: aMessage).
+ !

Item was added:
+ ----- Method: RSAPublicKey>>v15SignMessageHash: (in category 'process') -----
+ v15SignMessageHash: encodedMsg
+ 
+ 	| padded toBeSigned |
+ 	padded := ByteArray new: (256 - encodedMsg size - 3) withAll: 255.
+ 	toBeSigned := #(0) asByteArray, #(1) asByteArray, padded, #(0) asByteArray, encodedMsg.
+ 	^ (self crypt: toBeSigned asInteger) asByteArray.
+ !

Item was added:
+ ----- Method: RSAPublicKey>>v15Verify:isSignatureOf: (in category 'process') -----
+ v15Verify: aSignature isSignatureOf: aMessage
+ 	"Answer true if the given signature string signs the given message."
+ 
+ 	^ self 
+ 		v15VerifySignature: aSignature 
+ 		ofMessageHash: (
+ 			SHA1 digestInfoAsn1DerEncodingFromMessage: aMessage).
+ !

Item was added:
+ ----- Method: RSAPublicKey>>v15VerifySignature:ofMessageHash: (in category 'process') -----
+ v15VerifySignature: aSignature ofMessageHash: encodedMsg
+ 	"Answer true if the given signature string signs the given message (a stream or string)."
+ 	"Note: Random numbers are not needed for signature verification; thus, there is no need to call initRandomFromUser before verifying a signature."
+ 
+ 	| bytes signedMsg |
+ 	bytes := (self crypt: aSignature asInteger) asByteArray.
+ 	signedMsg := bytes readStream upTo: 1; upTo: 0; upToEnd.
+ 	^ encodedMsg = signedMsg
+ !

Item was added:
+ Object subclass: #RSAPublicKeyFileReader
+ 	instanceVariableNames: 'bytes'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CryptoCore-Readers'!

Item was added:
+ ----- Method: RSAPublicKeyFileReader classSide>>fromFile: (in category 'instance creation') -----
+ fromFile: filename
+ 	"(RSAPrivateKeyFileReader fromFile: '/usr/local/ssl/private/CA.key')"
+ 	"(RSAPrivateKeyFileReader fromFile: '/Users/slosher/Desktop/squeak/certificates/rsa.key')"
+ 
+ 	| fs data |
+ 	fs := StandardFileStream fileNamed: filename.
+ 	data := fs contentsOfEntireFile.
+ 	^ self new initializeFromFileContents: data.
+ !

Item was added:
+ ----- Method: RSAPublicKeyFileReader>>asASN1Value (in category 'converting') -----
+ asASN1Value
+ 
+ 	| asn1 |
+ 	asn1 := ASN1Stream decodeBytes: self bytes.
+ 	^ ASN1Stream decodeBytes: (asn1 at: 2) bytes!

Item was added:
+ ----- Method: RSAPublicKeyFileReader>>asPublicKey (in category 'converting') -----
+ asPublicKey
+ 
+ 	| asn1 |
+ 	asn1 := self asASN1Value.
+ 	^ RSAPublicKey exponent: (asn1 at: 2) modulo: (asn1 at: 1)!

Item was added:
+ ----- Method: RSAPublicKeyFileReader>>bytes (in category 'accessing') -----
+ bytes
+ 	"Answer the value of bytes"
+ 
+ 	^ bytes!

Item was added:
+ ----- Method: RSAPublicKeyFileReader>>bytes: (in category 'accessing') -----
+ bytes: anObject
+ 	"Set the value of bytes"
+ 
+ 	bytes := anObject!

Item was added:
+ ----- Method: RSAPublicKeyFileReader>>initializeFromFileContents: (in category 'initialize-release') -----
+ initializeFromFileContents: data
+ 
+ 	| i j theData |
+ 	i := data indexOfSubCollection: '--BEGIN ' startingAt: 1.
+ 	i = 0 ifTrue: [self derBytes: data asByteArray. ^ self].
+ 	i := data indexOfSubCollection: 'KEY--' startingAt: i.
+ 	i := data findAnySubStr: String crlf startingAt: i.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ "	self processProcType: (data copyFrom: i + 1 to: j)."
+ 	i := j.
+ 	j := data findAnySubStr: String crlf startingAt: i + 1.
+ "	self processDEKInfo: (data copyFrom: i + 1 to: j)."
+ 	i := j.
+ 	j := data indexOfSubCollection: '--END ' startingAt: i.
+ 	theData := (data copyFrom: i to: j)
+ 		reject: [:c | (c = $-) or: [c isSeparator]].
+ 	theData := (Base64MimeConverter mimeDecodeToBytes: theData readStream) contents.
+ 	self bytes: theData.
+ !