Squeak-dev September 2010

squeak-dev@lists.squeakfoundation.org

110 participants
401 discussions

The Inbox: EToys-rjh.76.mcz
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-rjh.76.mcz ==================== Summary ==================== Name: EToys-rjh.76 Author: rjh Time: 28 September 2010, 7:49:07.394 pm UUID: 12db789e-0c08-40a0-a7d4-bc5636a4ad19 Ancestors: EToys-ar.75 Please see the existing squeak-dev thread: "forward: and turn: in Morph - are we missing immediacy?" Currently, immediacy is lost because the following gives an error: x:=EllipseMorph new openInHand. x forward: 100 This proposed change makes good sense for the initial teaching of Smalltalk by hiding a very quirky and state based behaviour. =============== Diff against EToys-ar.75 =============== Item was added: + ----- Method: Morph>>forward: (in category '*Etoys') ----- + forward: distance + self assuredPlayer forward: distance! Item was added: + ----- Method: Morph>>turn: (in category '*Etoys') ----- + turn: angle + self assuredPlayer turn: angle!

1 0

The Trunk: Morphic-laza.468.mcz
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.468.mcz ==================== Summary ==================== Name: Morphic-laza.468 Author: laza Time: 28 September 2010, 5:24:49.199 pm UUID: 81a9b6d2-3dc7-4789-8e2f-fa9420a0afa9 Ancestors: Morphic-nice.467 - changed 41 to 42 - see if this triggers a hudson build =============== Diff against Morphic-nice.467 =============== Item was removed: - ----- Method: TheWorldMainDockingBar>>welcomeToSqueak41 (in category 'submenu - help') ----- - welcomeToSqueak41 - ^'Squeak 4.1 - Welcome to Squeak - a free, open Smalltalk system. - - Squeak 4.1 combines the license change occuring in the 4.0 release with the development work that has been going on while the relicensing process took place. Here are the highlights of the changes that resulted in Squeak 4.1: - - User Interface - We have adapted the ''face lift'' look originally developed for Newspeak. For those of us who like colored windows (quite a few as it turns out) you can switch between uniform and colored windows in the ''Extras'' menu under ''Window Colors''. - - The new menu bar makes Squeak much easier to discover than before. The process of transitioning from the world menu is not complete yet, there are still items that can only be accessed from the world menu (i.e., by clicking on the desktop). - - The search field integrated in the menu bar allows for direct navigation to classes and methods - simply type in a partial class or method name and see what happens. - - A new set of inexpensive sub-pixel antialiased fonts derived from the DejaVu fonts (''Bitmap DejaVu'' in the font chooser) has been added. True type font support has been upgraded to operate directly on files on disk without the need to load the entire file into memory. - - A new set of text editors has been added, which allowed us to decouple the Morphic and MVC implementations for improved modularity. Morphic now has regular blinking insertion point cursors instead of the (virtually invisible) static cursor previously. - - Compiler - Squeak 4.1 includes the closure implementation from Cog as a prerequisite for full Cog adoption later. With this implementation Squeak finally has ''full'' closures, allowing classic recursive examples like the following to work: - - fac := [:n| n > 1 ifTrue:[n * (fac value: n-1)] ifFalse:[1]]. - fac value: 5. - - Support for literal ByteArray syntax has been added. Byte arrays can now be written as #[1 2 3] instead of #(1 2 3) asByteArray avoiding the need for conversion. - - Selectors including minus are now parsed correctly, for example 3 <- 4 is now parsed as (3) <- (4) instead of (3) < (-4). White space is no longer allowed after an unary minus to denote a negative number literal. - - Development - Syntax highlighting, based on Shout, is now included in all Squeak tools by default. For workspaces, it can be explicitly disabled in the window menu (press the blue button; entry ''syntax highlighting''). - - Sources and changes files are no longer limited to 32MB max size. ExpandedSourceFileArray provides an implementation for source files of arbitrary length, based on the CompiledMethodTrailer changes. - - MessageTrace has been added, allowing senders and implementors to be viewed without opening new windows all the time. It utilizes a new AlternatePluggableListMorphOfMany, which allows quick and easy customization of the list. A quick adoption of DependencyBrowser has been added allowing to browse dependencies between packages. - - Core Libraries - Sets can now store nil just as any other collection. The collection hierachy has been refactored to have both Set and Dictionary a subclass of HashedCollection instead of having Dictionary a subclass of Set. Squeak now uses a better distributed scaledIdentityHash for identity sets and dictionaries. - - StandardFilestream now performs read-buffering, dramatically speading up some operations like "Object compileAll" (2x improvement) as well as various other operations (scanning change lists etc). - - A new traits implementation has been added. The implementation is significantly smaller and simpler than the old version and can be unloaded and reloaded without loss of information (i.e., traits flattened during unload are restored during traits reloading). - - A new extensible number parser hierharchy has been introduced NumberParser and its subclasses provide support for parsing and building numbers from strings and streams. - - A new general cleanup protocol has been added. The cleanUp protocol takes an optional argument to indicate whether we''re doing an aggressive cleanup (which involves deleting projects, change sets, and possibly other destructive actions) or a more gentle cleanup that''s only supposed to clean out transient caches. - - SystemDictionary and SmalltalkImage have been refactored. Smalltalk is now an instance of SmalltalkImage, representing a facade for system-wide queries and actions. SmalltalkImage contains a global environment, an instance of SystemDictionary, which the environment used by classes. Thus, SmalltalkImage current == Smalltalk, Object environment == Smalltalk globals. - - Modularity - The following packages have been made reloadable: ReleaseBuilder, ScriptLoader, 311Deprecated, 39Deprecated, Universes, SMLoader, SMBase, Installer-Core, VersionNumberTests, VersionNumber, Services-Base, PreferenceBrowser, Nebraska, CollectionsTests, GraphicsTests, KernelTests, MorphicTests, MultilingualTests, NetworkTests, ToolsTests, TraitsTests, XML-Parser, Traits, SystemChangeNotification-Tests, FlexibleVocabularies, EToys, Protocols, Tests, SUnitGUI. To unload all of these, execute: - - Smalltalk unloadAllKnownPackages. - !! - ]style[(11 53 228 14 920 251 2 8 309 376 2 11 206 529 2 14 302 197 1113 10 1 50 479)a2cblue;bFBitmap DejaVu Sans#14,c006006006bFBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,f1,,bu,,FBitmap DejaVu Sans#14,!!' readStream nextChunkText! Item was added: + ----- Method: TheWorldMainDockingBar>>welcomeToSqueak42 (in category 'submenu - help') ----- + welcomeToSqueak42 + ^'Squeak 4.2 + Welcome to Squeak - a free, open Smalltalk system. + + Needs to be updated: + + Squeak 4.1 combines the license change occuring in the 4.0 release with the development work that has been going on while the relicensing process took place. Here are the highlights of the changes that resulted in Squeak 4.1: + + User Interface + We have adapted the ''face lift'' look originally developed for Newspeak. For those of us who like colored windows (quite a few as it turns out) you can switch between uniform and colored windows in the ''Extras'' menu under ''Window Colors''. + + The new menu bar makes Squeak much easier to discover than before. The process of transitioning from the world menu is not complete yet, there are still items that can only be accessed from the world menu (i.e., by clicking on the desktop). + + The search field integrated in the menu bar allows for direct navigation to classes and methods - simply type in a partial class or method name and see what happens. + + A new set of inexpensive sub-pixel antialiased fonts derived from the DejaVu fonts (''Bitmap DejaVu'' in the font chooser) has been added. True type font support has been upgraded to operate directly on files on disk without the need to load the entire file into memory. + + A new set of text editors has been added, which allowed us to decouple the Morphic and MVC implementations for improved modularity. Morphic now has regular blinking insertion point cursors instead of the (virtually invisible) static cursor previously. + + Compiler + Squeak 4.1 includes the closure implementation from Cog as a prerequisite for full Cog adoption later. With this implementation Squeak finally has ''full'' closures, allowing classic recursive examples like the following to work: + + fac := [:n| n > 1 ifTrue:[n * (fac value: n-1)] ifFalse:[1]]. + fac value: 5. + + Support for literal ByteArray syntax has been added. Byte arrays can now be written as #[1 2 3] instead of #(1 2 3) asByteArray avoiding the need for conversion. + + Selectors including minus are now parsed correctly, for example 3 <- 4 is now parsed as (3) <- (4) instead of (3) < (-4). White space is no longer allowed after an unary minus to denote a negative number literal. + + Development + Syntax highlighting, based on Shout, is now included in all Squeak tools by default. For workspaces, it can be explicitly disabled in the window menu (press the blue button; entry ''syntax highlighting''). + + Sources and changes files are no longer limited to 32MB max size. ExpandedSourceFileArray provides an implementation for source files of arbitrary length, based on the CompiledMethodTrailer changes. + + MessageTrace has been added, allowing senders and implementors to be viewed without opening new windows all the time. It utilizes a new AlternatePluggableListMorphOfMany, which allows quick and easy customization of the list. A quick adoption of DependencyBrowser has been added allowing to browse dependencies between packages. + + Core Libraries + Sets can now store nil just as any other collection. The collection hierachy has been refactored to have both Set and Dictionary a subclass of HashedCollection instead of having Dictionary a subclass of Set. Squeak now uses a better distributed scaledIdentityHash for identity sets and dictionaries. + + StandardFilestream now performs read-buffering, dramatically speading up some operations like "Object compileAll" (2x improvement) as well as various other operations (scanning change lists etc). + + A new traits implementation has been added. The implementation is significantly smaller and simpler than the old version and can be unloaded and reloaded without loss of information (i.e., traits flattened during unload are restored during traits reloading). + + A new extensible number parser hierharchy has been introduced NumberParser and its subclasses provide support for parsing and building numbers from strings and streams. + + A new general cleanup protocol has been added. The cleanUp protocol takes an optional argument to indicate whether we''re doing an aggressive cleanup (which involves deleting projects, change sets, and possibly other destructive actions) or a more gentle cleanup that''s only supposed to clean out transient caches. + + SystemDictionary and SmalltalkImage have been refactored. Smalltalk is now an instance of SmalltalkImage, representing a facade for system-wide queries and actions. SmalltalkImage contains a global environment, an instance of SystemDictionary, which the environment used by classes. Thus, SmalltalkImage current == Smalltalk, Object environment == Smalltalk globals. + + Modularity + The following packages have been made reloadable: ReleaseBuilder, ScriptLoader, 311Deprecated, 39Deprecated, Universes, SMLoader, SMBase, Installer-Core, VersionNumberTests, VersionNumber, Services-Base, PreferenceBrowser, Nebraska, CollectionsTests, GraphicsTests, KernelTests, MorphicTests, MultilingualTests, NetworkTests, ToolsTests, TraitsTests, XML-Parser, Traits, SystemChangeNotification-Tests, FlexibleVocabularies, EToys, Protocols, Tests, SUnitGUI. To unload all of these, execute: + + Smalltalk unloadAllKnownPackages. + !! + ]style[(11 54 21 228 14 920 251 2 8 309 376 2 11 206 529 2 14 302 197 1113 10 1 50 479)a2cblue;bFBitmap DejaVu Sans#14,c005005005bFBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bcred;,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,,FBitmap DejaVu Sans#14,FBitmap DejaVu Sans#14bu,FBitmap DejaVu Sans#14,f1,,bu,,FBitmap DejaVu Sans#14,!!' readStream nextChunkText! Item was changed: ----- Method: TheWorldMainDockingBar>>welcomeWorkspacesOn: (in category 'submenu - help') ----- welcomeWorkspacesOn: menu menu addItem:[:item| item + contents: 'Welcome to Squeak 4.2' translated; - contents: 'Welcome to Squeak 4.1' translated; help: 'A Welcome Workspace' translated; target: self; selector: #showWelcomeText:label:in:; arguments: { + #welcomeToSqueak42. + 'Welcome to Squeak 4.2'. - #welcomeToSqueak41. - 'Welcome to Squeak 4.1'. (140@140 extent: 500@300) }]. menu addItem:[:item| item contents: 'The Squeak User Interface' translated; help: 'A Welcome Workspace' translated; target: self; selector: #showWelcomeText:label:in:; arguments: { #squeakUserInterface. 'The Squeak User Interface'. (160@160 extent: 500@300) }]. menu addItem:[:item| item contents: 'Working With Squeak' translated; help: 'A Welcome Workspace' translated; target: self; selector: #showWelcomeText:label:in:; arguments: { #workingWithSqueak. 'Working With Squeak'. (180@180 extent: 500@300) }]. menu addItem:[:item| item contents: 'Terse Guide to Squeak' translated; help: 'A Welcome Workspace' translated; target: self; selector: #showWelcomeText:label:in:; arguments: { #terseGuideToSqueak. 'Terse Guide to Squeak'. (180@180 extent: 600@400) }]. menu addItem:[:item| item contents: 'License Information' translated; help: 'A Welcome Workspace' translated; target: self; selector: #showWelcomeText:label:in:; arguments: { #licenseInformation. 'License Information'. (200@200 extent: 500@300) }].!

1 0

CurlPlugin
by Denis Kudriashov 28 Sep '10

28 Sep '10

Hello, Is somebody has windows dll for curlPlugin that supports custom http headers? And where I can give curlPlugin code for dll generation? I cant found it on squeaksource/curlplugin

1 0

The Inbox: CryptoCoreTests-rww.3.mcz
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

A new version of CryptoCoreTests was added to project The Inbox: http://source.squeak.org/inbox/CryptoCoreTests-rww.3.mcz ==================== Summary ==================== Name: CryptoCoreTests-rww.3 Author: rww Time: 28 September 2010, 6:57:48.618 am UUID: c71563ed-97ff-d54d-b76d-2da57733a34a Ancestors: CryptoCoreTests-rww.2 added fix to RSAKeyPairGenerator by Denis Kudriashov and new test =============== Diff against CryptoCoreTests-rww.2 =============== Item was added: + ----- Method: CryptoRSATest>>testSignVerificationByGeneratedKeys (in category 'tests') ----- + testSignVerificationByGeneratedKeys + + | signBytes gen | + gen := RSAKeyPairGenerator bits: 1024. + gen computePrimes. + + signBytes := gen privateKey v15SignMessage: 'hello'. + + self assert: (gen publicKey v15Verify: signBytes isSignatureOf: 'hello')!

1 0

The Inbox: CryptoCore-rww.6.mcz
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

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. + !

1 0

The Inbox: CryptoCerts-rww.3.mcz
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

A new version of CryptoCerts was added to project The Inbox: http://source.squeak.org/inbox/CryptoCerts-rww.3.mcz ==================== Summary ==================== Name: CryptoCerts-rww.3 Author: rww Time: 28 September 2010, 6:55:40.311 am UUID: e0ff4aa4-bfca-6346-9c3f-4c755c5eb069 Ancestors: CryptoCerts-rww.2 refactored Readers such that DSA and RSA Readers are in CryptoCore =============== Diff against CryptoCerts-rww.2 =============== Item was removed: - Object subclass: #DSAPrivateKeyFileReader - instanceVariableNames: 'bytes decryptedBytes iv password' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCerts-X509-Readers'! Item was removed: - ----- 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 removed: - ----- Method: DSAPrivateKeyFileReader>>asASN1Value (in category 'converting') ----- - asASN1Value - - self decryptedBytes isNil - ifTrue: [self decrypt]. - ^ ASN1Stream decodeBytes: self decryptedBytes - ! Item was removed: - ----- 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 removed: - ----- 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 removed: - ----- Method: DSAPrivateKeyFileReader>>bytes (in category 'accessing') ----- - bytes - "Answer the value of bytes" - - ^ bytes! Item was removed: - ----- Method: DSAPrivateKeyFileReader>>bytes: (in category 'accessing') ----- - bytes: anObject - "Set the value of bytes" - - bytes := anObject! Item was removed: - ----- 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 removed: - ----- Method: DSAPrivateKeyFileReader>>decryptedBytes (in category 'accessing') ----- - decryptedBytes - "Answer the value of decryptedBytes" - - ^ decryptedBytes! Item was removed: - ----- Method: DSAPrivateKeyFileReader>>decryptedBytes: (in category 'accessing') ----- - decryptedBytes: anObject - "Set the value of decryptedBytes" - - decryptedBytes := anObject! Item was removed: - ----- 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 removed: - ----- Method: DSAPrivateKeyFileReader>>iv (in category 'accessing') ----- - iv - "Answer the value of iv" - - ^ iv! Item was removed: - ----- Method: DSAPrivateKeyFileReader>>iv: (in category 'accessing') ----- - iv: anObject - "Set the value of iv" - - iv := anObject! Item was removed: - ----- Method: DSAPrivateKeyFileReader>>password (in category 'accessing') ----- - password - "Answer the value of password" - - ^ password! Item was removed: - ----- Method: DSAPrivateKeyFileReader>>password: (in category 'accessing') ----- - password: anObject - "Set the value of password" - - password := anObject! Item was removed: - ----- 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 removed: - ----- Method: DSAPrivateKeyFileReader>>processProcType: (in category 'initialization') ----- - processProcType: data - ! Item was removed: - Object subclass: #RSAPrivateKeyFileReader - instanceVariableNames: 'bytes decryptedBytes iv password' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCerts-X509-Readers'! Item was removed: - ----- 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 removed: - ----- Method: RSAPrivateKeyFileReader>>asASN1Value (in category 'converting') ----- - asASN1Value - - self decryptedBytes isNil - ifTrue: [self decrypt]. - ^ ASN1Stream decodeBytes: self decryptedBytes. - ! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>asPrivateKey (in category 'converting') ----- - asPrivateKey - - | asn1 | - asn1 := self asASN1Value. - (asn1 at: 1) > 0 - ifTrue: [^ RSAKey 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 removed: - ----- Method: RSAPrivateKeyFileReader>>asPublicKey (in category 'converting') ----- - asPublicKey - - | asn1 | - asn1 := self asASN1Value. - ^ RSAKey exponent: (asn1 at: 3) modulo: (asn1 at: 2)! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>bytes (in category 'accessing') ----- - bytes - "Answer the value of bytes" - - ^ bytes! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>bytes: (in category 'accessing') ----- - bytes: anObject - "Set the value of bytes" - - bytes := anObject! Item was removed: - ----- 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 removed: - ----- Method: RSAPrivateKeyFileReader>>decryptedBytes (in category 'accessing') ----- - decryptedBytes - "Answer the value of decryptedBytes" - - ^ decryptedBytes! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>decryptedBytes: (in category 'accessing') ----- - decryptedBytes: anObject - "Set the value of decryptedBytes" - - decryptedBytes := anObject! Item was removed: - ----- 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 removed: - ----- Method: RSAPrivateKeyFileReader>>iv (in category 'accessing') ----- - iv - "Answer the value of iv" - - ^ iv! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>iv: (in category 'accessing') ----- - iv: anObject - "Set the value of iv" - - iv := anObject! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>password (in category 'accessing') ----- - password - "Answer the value of password" - - ^ password! Item was removed: - ----- Method: RSAPrivateKeyFileReader>>password: (in category 'accessing') ----- - password: anObject - "Set the value of password" - - password := anObject! Item was removed: - ----- 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 removed: - ----- Method: RSAPrivateKeyFileReader>>processProcType: (in category 'initialization') ----- - processProcType: data - ! Item was removed: - Object subclass: #RSAPublicKeyFileReader - instanceVariableNames: 'bytes' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCerts-X509-Readers'! Item was removed: - ----- 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 removed: - ----- Method: RSAPublicKeyFileReader>>asASN1Value (in category 'converting') ----- - asASN1Value - - | asn1 | - asn1 := ASN1Stream decodeBytes: self bytes. - ^ ASN1Stream decodeBytes: (asn1 at: 2) bytes! Item was removed: - ----- Method: RSAPublicKeyFileReader>>asPublicKey (in category 'converting') ----- - asPublicKey - - | asn1 | - asn1 := self asASN1Value. - ^ RSAKey exponent: (asn1 at: 2) modulo: (asn1 at: 1)! Item was removed: - ----- Method: RSAPublicKeyFileReader>>bytes (in category 'accessing') ----- - bytes - "Answer the value of bytes" - - ^ bytes! Item was removed: - ----- Method: RSAPublicKeyFileReader>>bytes: (in category 'accessing') ----- - bytes: anObject - "Set the value of bytes" - - bytes := anObject! Item was removed: - ----- 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. - ! Item was changed: ----- Method: X509SubjectPublicKeyInfo>>asRSAPublicKey (in category 'private') ----- asRSAPublicKey | keys | keys := self subjectPublicKeyDecoded. + ^ (RSAPublicKey exponent: (keys at: 2) asInteger modulo: (keys at: 1) asInteger). - ^ (RSAKey exponent: (keys at: 2) asInteger modulo: (keys at: 1) asInteger). !

1 0

forward: and turn: in Morph - are we missing immediacy?
by Robert Hawley 28 Sep '10

28 Sep '10

I find it odd, and obscure that forward: and turn: are not in the class Morph. This means that the following gives an error: x := EllipseMorph new openInHand. x forward: 100. You have to do the following once to create the 'player': x := EllipseMorph new openInHand. x assuredPlayer forward: 100. Is there any reason why forward: and turn: should not be in Morph? They are just the methods: forward: distance self assuredPlayer forward: distance turn: angle self assuredPlayer turn: angle Similar pen driving methods already exist in the Morph pen category such as liftPen, lowerPen, choosePenColor: . I guess there is an argument that using forward: and turn: in 'ordinary' programming is inefficient because of the overhead of the morph extension and player. Hiding forward: and turn: discourages their use in this context. HOWEVER One of the criticisms of Squeak is that there is a divorce between Squeak proper and Morphic/Etoys. In my view this divorce starts with the omission of the forward: and turn: methods from Morph. Why not be able to make simple use of these elemental messages? Having the current peculiar state change depending on the existence or otherwise of the player is ugly programming at best and bad computer science principle at worst. My concern is with initial teaching of Smalltalk and NOT with Guru programming. Guru programming treats Smalltalk as a place to do complex system programming, whereas I think that it does not go back to the first principle of Smalltalk in that it should be friendly for CHILDREN. Now Etoys, however nice it is, is not Smalltalk. I would like to be able to use morphs in Squeak Smalltalk in a more immediate fashion, and I think that introducing these two methods to the Morph class is a necessary first step. Driving morphs is a very visible and obvious first example to use in teaching. Morphs have a relationship with Smalltalk objects (instvars + behaviours) but are far more dynamic and interesting. Why have we been denying that very dynamism by omitting these two methods from Squeak? Or put it the other way: can we add these two methods to Squeak please? Yours Bob (Robert Hawley)

3 3

[ANN] NativeBoost meets Linux
by Igor Stasenko 28 Sep '10

28 Sep '10

Hello all, I just uploaded a fresh snapshots of NB plugin and image code, with necessary bits for using it under Linux. I don't know how to package Linux VM binaries, so you won't find a prebuilt VM and should build it yourself (anyone wants to help me with that, so i can add a prebuilt VM at downloads?). As usual, follow the installation instructions, located here: http://code.google.com/p/nativeboost/wiki/Installation Warning: recently, i found a bug in callback code. So, please don't try using smalltalk callbacks until i fix it :) Running tests should be safe (i disabled the test which causing VM crash). -- Best regards, Igor Stasenko AKA sig.

1 1

Daily Commit Log
by commits＠source.squeak.org 28 Sep '10

28 Sep '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-September/003790.… Name: System-ul.380 Ancestors: System-ul.379, System-topa.378 merged ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-September/003791.… Name: System-topa.378 Ancestors: System-nice.377 Fix the menu build method that relied on coverting a collection of strings to a large string just to split it again. =============================================

1 0

Re: [Vm-dev] VM Maker: VMMaker-oscog.33.mcz
by Eliot Miranda 27 Sep '10

27 Sep '10

I would appreciate anyone interested in objects-as-methods on Cog pounding on the latest Cog VMs (http://www.mirandabanda.org/files/Cog/VM/VM.r2313/) as this involved substantial changes to method lookup/inline cacheing machinery and there could easily be bugs. The tests run, but they're insubstantial compared e.g. to a full coverage test. best Eliot (repeat with fixed email address: squeakfountation => squeakfoundation) On Sat, Sep 25, 2010 at 9:20 PM, < squeak-dev-noreply(a)lists.squeakfoundation.org> wrote: > > Eliot Miranda uploaded a new version of VMMaker to project VM Maker: > http://www.squeaksource.com/VMMaker/VMMaker-oscog.33.mcz > > ==================== Summary ==================== > > Name: VMMaker-oscog.33 > Author: eem > Time: 25 September 2010, 7:13:51 am > UUID: 733b7c50-b973-4ca0-9831-5c84d09032bf > Ancestors: VMMaker-oscog.32 > > OSCogVM: > Support object-as-method: > Eagerly evaluate the interpreter version of a primitive > to ease the object-as-method implementation and to > improve interpreter performance. > Refuse to enter anything that isn't a CompiledMethod > into the method-lookup cache to avoid open PICs having > to check for valid compiled methods. > Have various places check for isOopCOmpiledMethod: > rather than isCompiledMethod: to allow SmallIntegers to > be used as methods. > Interpreter: > Have various places check for isOopCOmpiledMethod: > rather than isCompiledMethod: to allow SmallIntegers to > be used as methods. > Slang: > support super sends by expanding them at translation > time. This allows CoInterpreter>>addMethodToCache > to avoid cacheing non-compiled methods via a super > send, avoiding duplicating SrackInterpreter's method. > >

3 5

← Newer
1
2
3
4
5
6
7
8
...
41
Older →

Jump to page: