Visual Basic

CPallini28-Mar-07 22:50

CPallini

28-Mar-07 22:50

Have a look to MSDN for Cryptographic Services [^]
There are samples.
Smile | :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

Member 387988128-Mar-07 23:35

Re: Encryption and decryption........... [modified]

28-Mar-07 23:35

hi i need codes...,
If u have plz share with me....,

Magi

JUNEYT29-Mar-07 0:48

29-Mar-07 0:48

Here is code that is how you can encrypt and decrypt any strings. I didn't write it but got from one of other codeproject.com members. It is working fine. If you get any error message, you should consider in using different ENCRYPT_KEY or ENCRYPT_VECTOR until the error message disappears. I assume that you know how to use a class sample inside code. I have given you a sample below how to use it. WTF | :WTF:

Dim MyEncryption as Encryption
Dim EStr as String = "Fish can't think but fish knows everything"

Messagebox.show("Encrypted Format:" +  MyEncryption.toBase64(Estr))
Messagebox.show("Decrypted Format:" +  MyEncryprion.toBase32(Estr))

Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption
#Region "Public Routines"
    const ENCRYPT_KEY AS STRING = "TEST"
    const ENCRYPT_VECTOR AS STRING = "CODEPRJT"

    Public Shared Function ToBase64(ByVal sDataToEncrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateEncryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Encoding.Default.GetBytes(sDataToEncrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Convert.ToBase64String(stream.ToArray())
    End Function

    Public Shared Function ToBase32(ByVal sDataToDecrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateDecryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Convert.FromBase64String(sDataToDecrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Encoding.Default.GetString(stream.ToArray())
    End Function
#End Region
End Class

-- modified at 6:53 Thursday 29th March, 2007

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 1:12

29-Mar-07 1:12

sorry yar i didnt get...,
I am getting encrption itself error...

for this i want to add any reference..........?

Magi

JUNEYT29-Mar-07 1:44

29-Mar-07 1:44

Encryption is a class save it as a class file under your project and then you can call teh class inside your code. I didn't get any error, it is working perfectly.

What is the error message?

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 2:00

29-Mar-07 2:00

Hi i am new in this...,
plz explain some what depth....

Magi

JUNEYT29-Mar-07 2:27

29-Mar-07 2:27

Under the solution explorer go over the project name and then press right mouse button and select Add then Select class. A window will popup and name the class file as Encryption.vb. Copy the code and paste it inside the class file. There are two things only you have to play with it. These are:

Const ENCRYPT_KEY As String = "DRUMSSHOW"
Const ENCRYPT_VECTOR As String = "CODEPRJT"

You can encyrpt any string with your own key and vector value. You can change this. That is how any string get encrypted and decrypted with your given values as key and vetor value.

Imports System.Text
Imports System.Security.Cryptography

should be on top of the class file put these above Public Class Encryption section. Your class files becomes ready to use. Now you can encrypt and depcrypt any string as follows. This sample below is used out of class file in somewhere in your code.

Dim ShowString as String = "Put any text here"

Messagebox.Show(Encryption.toBase64(ShowString))
Messagebox.show(Encryption.toBase32(ShowString))

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 3:06

29-Mar-07 3:06

Hi i used one class file(Encryption)..,
in that i told...
Const ENCRYPT_KEY As String = "TEST"
Const ENCRYPT_VECTOR As String = "CODEPRJT" these codes
and that two functions(ToBase64,ToBase32),
Then in my EncryptionDecrytion.aspx form...,
i given..."Dim MyEncryption As Encryption"
and one string...,
While runtime i am getting..,
Specified key is a known weak key for TripleDES And cannot be used..,
i dont know whats the error mean..........,
Plz solve my probs,

Magi

JUNEYT29-Mar-07 3:31

29-Mar-07 3:31

OKat it means it is working but it doesn't like the KEY or Vector values. Therefore try this or samething else

Const ENCRYPT_KEY As String = "DRUMSSHOW"
Const ENCRYPT_VECTOR As String = "CODEPRJT"

Don't forget that you can use your own key and vector values. But encryption sometimes doesn't like the values you want to use. Therefore, you should play with these values to make it running.

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 3:51

29-Mar-07 3:51

actually whats the need to assign some strings in that two things(ENCRYPT_KEY ,ENCRYPT_VECTOR )

Magi

Member 387988129-Mar-07 3:56

29-Mar-07 3:56

after assign some other string in that..,
i am getting "Invalid Character in a base-64 string"..,
this error is coming on that function tobase32(inside)...,

Magi

JUNEYT29-Mar-07 4:04

29-Mar-07 4:04

It means taht whatever you are trying decrypt has invalid chars. If you are not getting any error message while you encrypt a string that means you shouldn't get any error message when decrypt it. Check the strings and make sure you don't have any invalid chars. ToBase32 is used to decrypt a string. ToBase64 is used to encrypt a string. Therefore, becareful that both functions use the same variable not a diffeent ones.

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 4:09

29-Mar-07 4:09

i checked encrption, its working..,
but decryption is creating probs...,
invalid char means?,i assign proper string only..,
And i paste ur codes exactly on that place...,
then what else?, i checked both function..,
both place coming same variable names only

Magi

JUNEYT29-Mar-07 5:51

29-Mar-07 5:51

please copy and paste your code here and let me check it for you. I do not need encrytpion class file but your code where you use it. It suppose to work because it is working in my puter. OMG | :OMG:

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Member 387988129-Mar-07 17:50

29-Mar-07 17:50

in my aspx form back code i given this much only......,
Dim MyEncryption As Encryption
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = MyEncryption.ToBase64(EStr)
Label2.Text = MyEncryption.ToBase32(EStr)
End Sub

Magi

JUNEYT29-Mar-07 21:08

29-Mar-07 21:08

Your code seems okay you shouldn't get any errors.

What a curious mind needs to discover knowledge is noting else than a pin-hole.

Vasudevan Deepak Kumar29-Mar-07 6:16

Vasudevan Deepak Kumar

29-Mar-07 6:16

XCrypt from CodeProject. Here is a brief review on it: http://lavanyadeepak.blogspot.com/2007/01/elegant-encryption-routine.html[^]

Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips

Member 387988129-Mar-07 19:19

29-Mar-07 19:19

i need it in vb.net...

Magi

Word document

scorp_scorp28-Mar-07 19:41

scorp_scorp

28-Mar-07 19:41

hello all, i have an application, in which there is a butoon, on clicking it, an existing word document must open in msword, so i've tried to reference the library from the references (the COM tab) , but i couldnt find it, am using office 2003.
Any help....

Scorpion

A*****28-Mar-07 19:53

A*****

28-Mar-07 19:53

system.diagnostics.process.start("Location of the word document and then the name of the document .doc")

Example:
If the word document was in C:\ drive, and was called Example.doc, then:
You put this code in the button:
system.diagnostics.process.start("C:\Example.doc")
and it would open the word document.

scorp_scorp28-Mar-07 20:21

scorp_scorp

28-Mar-07 20:21

Thanks, it worked great.
One inquiry, do i have to close the process? or end it ? or shut it down? oe may be it ends by closing the MsWord automatically?

Scorpion

A*****28-Mar-07 21:11

A*****

28-Mar-07 21:11

scorp_scorp wrote: One inquiry, do i have to close the process? or end it ? or shut it down? oe may be it ends by closing the MsWord automatically?

No only when you want it to close. It is launched the same way as when you double click on it in windows.

To close it just hit the close button in the top righthand corner in msword and the .doc would close or click file then exit.

Or if you want to close it programmatically you could use the process.closemainwindow or process.kill.
You can do this by going to toolbox then clicking components and then double click on process to add a process component to the form.

Then this is the code you should have in your first button:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
    Process1.StartInfo.FileName = "C:\Example.doc"<br />
    Process1.Start() '//starts example.doc<br />
End Sub

And this is the code for your second button(create another button) to close example.doc:

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        Process1.StartInfo.FileName = "C:\example.doc"<br />
        Process1.CloseMainWindow() '//Sends the example.doc a close message asking it to terminate<br />
        '//Or alternatively you can use process1.kill_<br />
        '// And this will force example.doc to close <br />
<br />
    End Sub

Hope this helps