|
|
Hi this code in c#...,How to write in vb.net...,
string strinput;
char[] chararrinput=strinput.ToCharArray();
Byte[] arrbyteinput=new byte[chararrinput.Length-1];
specially,this line "Byte[] arrbyteinput=new byte[chararrinput.Length-1];"
becoz here they are converting that character in to byte....
how to write in vb.net
if any one knows plz help me....,
-- modified at 6:53 Thursday 29th March, 2007
-- modified at 7:33 Thursday 29th March, 2007
Magi
|
|
|
|
|
Dim strinput As String<br />
Dim chararrinput() As Char = strinput.ToCharArray<br />
Dim arrbyteinput() As Byte = New Byte(((chararrinput.Length - 1)) - 1) {}
Tirtha
"A man can ride on your back only when it is bent....."
|
|
|
|
|
ya its accepting....,
but whats the use of that open and close braces?,
with out that braces its not accepting that line......
-- modified at 7:42 Thursday 29th March, 2007
-- modified at 7:46 Thursday 29th March, 2007
Magi
|
|
|
|
|
I have developed software in Vb.Net I want to run my application when system starts. I put my Exe file in Startup and its working fine. But I want that my application run through .Ini File.
|
|
|
|
|
fahedakhter@hotmail.com wrote: But I want that my application run through .Ini File.
what do you mean ?? ini files are just a text files
When you get mad...THINK twice that the only advice
Tamimi - Code
|
|
|
|
|
I would guess you put the acutal exe file in the startup. I think what you want to do, is leave your exe and ini files in a folder on the c drive. Then put a shortcut to your exe in startup. That way your exe will be running in that folder with your ini file.
Hope that helps.
Ben
|
|
|
|
|
fahedakhter@hotmail.com wrote: my application run through .Ini File
You don't run an application through an INI file. Rather you would initialize values to the application. Is that you are intending to ask?
|
|
|
|
|
Hi i want encryption codes and decryption codes in vb.net....,
Plz help me
-- modified at 4:51 Thursday 29th March, 2007
Magi
|
|
|
|
|
Have a look to MSDN for Cryptographic Services [^]
There are samples.
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.
|
|
|
|
|
hi i need codes...,
If u have plz share with me....,
Magi
|
|
|
|
|
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. 
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.
|
|
|
|
|
sorry yar i didnt get...,
I am getting encrption itself error...
for this i want to add any reference..........?
Magi
|
|
|
|
|
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.
|
|
|
|
|
Hi i am new in this...,
plz explain some what depth....
Magi
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
actually whats the need to assign some strings in that two things(ENCRYPT_KEY ,ENCRYPT_VECTOR )
Magi
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
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
|
|
|
|
|
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. 
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
