Politicalwire.com aggregator

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.

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.

LearnVisualStudio.Net Free videos on .NET (including Widbey)

' 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

"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

William GC Steinford - My vote for MVP.

The C# Design Process: A Conversation with Anders Hejlsberg

World-Wide Media eXchange: WWMX Media by world wide geography.

42