Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Smalltalk by Dmitry ( 16 years ago )
String >> blocksBy: aTokenString translateWith: aTranslateBlock stickWith: aStickString
^ String streamContents: [:s |
((self findTokens: aTokenString) collect: aTranslateBlock)
asStringOn: s delimiter: aStickString]
String >> asHexAddr
'192.168.33.70' asHexAddr -> 'C0 A8 21 46'
^ self blocksBy: '.' translateWith: [:each | each asNumber hex] stickWith: ' '
String >> hexAsIP
"'C0 A8 3C 2B' hexAsIP -> '192.168.60.43'"
^ self blocksBy: ' ' translateWith: [:each | Integer readFrom: each base: 16] stickWith: '.'
Revise this Paste
Children: 15907