Saturday, February 21, 2004
Wednesday, February 11, 2004
Gnod - The global network of dreams This is pretty cool, try this link: http://www.gnod.net/music/related/Sugar+Ros.asp. Works with movies, music, books and websites.
PhotoReflect: Find a Professional Photographer Photos from pros... send photos as cards... show to Mark Clark.
Sunday, February 08, 2004
Haloscan.com provides a free, easy to use commenting system for weblogs and websites, allowing visitors to leave instant feedback. By copying and pasting just two lines of code into your site, you will enable your visitors to easily leave their feedback, opinion or a "comment" on the subject at hand.
' Feb/2003 - hcorrea@visionds.com
'
' This class encrypts and decrypts values. Basically
' it is a wrapper for some of the .NET cryptography
' classes.
' Code for this class was originally developed by
' Paolo Miserini [@datamat.it].
' Reference: http://www.dotnet247.com/247reference/msgs/13/65847.aspx
'
' To do list:
' Port to VFP, test with dataevents.
' We should probably create shared version of Deciper and Ciper methods.
'
' Usage sample:
' Dim Cipher As New Cipher()
' Me.txtOriginalValue.Text = Cipher.DeCipher(Me.txtEncrypted.Text, Me.txtKey.Text)
'
'
' Dim Cipher As New Cipher()
' Me.txtEncrypted.Text = Cipher.Cipher(Me.txtOriginalValue.Text, Me.txtKey.Text)
'
Imports System.Text
Imports System.Security.Cryptography
Public Class Cipher
Dim DefaultEncryptionKey As String
Dim des As New TripleDESCryptoServiceProvider()
Dim hashmd5 As New MD5CryptoServiceProvider()
Public Sub New()
' Default encryption/decryption key. You should
' provide your own when you instanciate the class or
' pass a key value to Cipher and Decipher methods.
DefaultEncryptionKey = "DefaulEncryptionKeyYouShouldProvideYourOwn"
End Sub
Public Function DeCipher(ByVal TextToDecipher As String) As String
Return DeCipher(TextToDecipher, DefaultEncryptionKey)
End Function
Public Function DeCipher(ByVal TextToDecipher As String, ByVal EncryptionKey As String) As String
Dim DeCipheredValue As String = Nothing
des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(TextToDecipher)
DeCipheredValue = ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
Return DeCipheredValue
End Function
Public Function Cipher(ByVal TextToCipher As String) As String
Return Cipher(TextToCipher, DefaultEncryptionKey)
End Function
Public Function Cipher(ByVal TextToCipher As String, ByVal EncryptionKey As String) As String
Dim CipheredValue As String = Nothing
des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(TextToCipher)
CipheredValue = Convert.ToBase64String(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
Return CipheredValue
End Function
End Class
'
' This class encrypts and decrypts values. Basically
' it is a wrapper for some of the .NET cryptography
' classes.
' Code for this class was originally developed by
' Paolo Miserini [@datamat.it].
' Reference: http://www.dotnet247.com/247reference/msgs/13/65847.aspx
'
' To do list:
' Port to VFP, test with dataevents.
' We should probably create shared version of Deciper and Ciper methods.
'
' Usage sample:
' Dim Cipher As New Cipher()
' Me.txtOriginalValue.Text = Cipher.DeCipher(Me.txtEncrypted.Text, Me.txtKey.Text)
'
'
' Dim Cipher As New Cipher()
' Me.txtEncrypted.Text = Cipher.Cipher(Me.txtOriginalValue.Text, Me.txtKey.Text)
'
Imports System.Text
Imports System.Security.Cryptography
Public Class Cipher
Dim DefaultEncryptionKey As String
Dim des As New TripleDESCryptoServiceProvider()
Dim hashmd5 As New MD5CryptoServiceProvider()
Public Sub New()
' Default encryption/decryption key. You should
' provide your own when you instanciate the class or
' pass a key value to Cipher and Decipher methods.
DefaultEncryptionKey = "DefaulEncryptionKeyYouShouldProvideYourOwn"
End Sub
Public Function DeCipher(ByVal TextToDecipher As String) As String
Return DeCipher(TextToDecipher, DefaultEncryptionKey)
End Function
Public Function DeCipher(ByVal TextToDecipher As String, ByVal EncryptionKey As String) As String
Dim DeCipheredValue As String = Nothing
des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(TextToDecipher)
DeCipheredValue = ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
Return DeCipheredValue
End Function
Public Function Cipher(ByVal TextToCipher As String) As String
Return Cipher(TextToCipher, DefaultEncryptionKey)
End Function
Public Function Cipher(ByVal TextToCipher As String, ByVal EncryptionKey As String) As String
Dim CipheredValue As String = Nothing
des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(EncryptionKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(TextToCipher)
CipheredValue = Convert.ToBase64String(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
Return CipheredValue
End Function
End Class
"N-tier software is easier to maintain, but more expensive to build the first time. So if you want the job, you have to go with the simplest technology that does the job, and then hope that they'll like your work and pay you what it will cost to come back and do the job right. Few clients, and especially few clients in the FoxPro world, are willing to pay extra for features that only save money later. A product like this allows us to do it right the first time, a luxury we rarely had in the past. I'm comfortable with this market of smaller companies and tighter budgets, but I'd like to give them first-class software. A framework allows me to do so. "
" IdeaBlade, an amazing framework for .NET from a company called ObjectWare "...
- Les Pinter 9/03
" IdeaBlade, an amazing framework for .NET from a company called ObjectWare "...
- Les Pinter 9/03
Saturday, February 07, 2004
Wednesday, February 04, 2004
Sunday, February 01, 2004
Friday, January 30, 2004
Thursday, January 22, 2004
SIGMOD Record - web edition / December 2000 Exciting stuff!
At the bottom of the page, New TPC Benchmarks for Decision Support and Web Commerce.
I made a shot across the bow on using the TPCH benchmark as a suite for testing compliance with the new SQL enhancements. Seemed to fly, so it's been the bulk of my work the last few days. Currently parsing the answer sets so they can be imported into a cursor for comparison with results. This may sound trivial, but the results sets are non delimited data dumps with one record spanning 3-4 rows. I've found lots of opensource and academic uses of TPCH, but no one seems to make available the complied version of DB_GEN or a normalized set of answers. ARGH!
At the bottom of the page, New TPC Benchmarks for Decision Support and Web Commerce.
I made a shot across the bow on using the TPCH benchmark as a suite for testing compliance with the new SQL enhancements. Seemed to fly, so it's been the bulk of my work the last few days. Currently parsing the answer sets so they can be imported into a cursor for comparison with results. This may sound trivial, but the results sets are non delimited data dumps with one record spanning 3-4 rows. I've found lots of opensource and academic uses of TPCH, but no one seems to make available the complied version of DB_GEN or a normalized set of answers. ARGH!
Monday, January 19, 2004
Okay, busy blogging day...
Here is another along the lines of HotScripts.com and SourceForge. The Code Project - Free Source Code and Tutorials While I understand the need for a viable business model to emerge for Open Source to be the "One True Way", when I hit sites like this -- it boggles the mind to think of how much work is saved by utilizing OPC (other peoples code). You down with OPC?
Here is another along the lines of HotScripts.com and SourceForge. The Code Project - Free Source Code and Tutorials While I understand the need for a viable business model to emerge for Open Source to be the "One True Way", when I hit sites like this -- it boggles the mind to think of how much work is saved by utilizing OPC (other peoples code). You down with OPC?
The whispering wheel is an electrical motor turned inside out with a wheel mounted on it. This application is for a city bus in the Netherlands. The motor is the wheel, the only combustion engine is the generator that charges the batteries. Nice!
Thoughts From The Head Working on Xen (X#?), language developer extrodinaire...also the talking head for VBTV http://www.msdn.microsfot.com/vbtv
Microsoft Watch - News and Analysis on Microsoft Plans, People, Strategy and Products all things big fish oriented.
Subscribe to:
Comments (Atom)