|
Here is a class I found and modified to encrypt/decrypt. Hope it helps you.
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H11, &H22, &H33, &H44, &H55, &H66, &H77, &H88}
Public Function Decrypt(ByVal strToDecrypt As String, _
ByVal strEncryptionKey As String) As String
'*******************************************************
' This function will:
' - Accept a string and encryption key
' - Decrypt and return the string
'
' NOTE: If strToDecrypt is from a query string,
' the Request.QueryString will have replaced
' any '+' characters with a space.
'*******************************************************
Dim inputByteArray(strToDecrypt.Length) As Byte
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
inputByteArray = Convert.FromBase64String(strToDecrypt)
'Perform the decryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return decrypted byte array in memory stream into string
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
Return encoding.GetString(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
Public Function Encrypt(ByVal strToEncrypt As String, _
ByVal strEncryptionKey As String) As String
'***************************************************
' This function will:
' - Accept a string and encryption key
' - Encrypt and return the string
'***************************************************
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(strToEncrypt)
'Perform the encryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return encrypted byte array in memory stream into string
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
End Class
|
|
|
|
|
byte[] info = System.Text.Encoding.UTF8.GetBytes("hello world");
|
|
|
|
|
Hello,
I have some code below. It searches records for the same manufacturer and model. If it finds a record that has the same manufacturer and model it will return true. Else it will return false.
However, if there is a problem and the function will need to return something. What would would I return. As I have to check the boolean if it is true or false , and do something. However, if there is an exception, I don't what to do anything with the true or false. Maybe roll back operation could not be completed, like in transactions.
<br />
'Check to see if the manufacturer and model name is the same. <br />
Private Function CompareManufacturer_Model() As Boolean<br />
Dim find As String = String.Empty<br />
Dim index As Integer = 0<br />
<br />
Try<br />
find = String.Format("Manufacturer = {0} AND Model = {1}", Me.txtManufacturer.Text, Me.txtModel.Text)<br />
Me.bsEquipment.Filter = find<br />
If (Me.bsEquipment.Count > 0) Then<br />
'There is a manufacturer and model that is the same so increment the quantity<br />
Return True<br />
Else<br />
'Manufacturer and model don't exist so add a new one.<br />
Return False<br />
End If<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
'What would i return here<br />
End Try<br />
End Function<br />
Many thanks,
Steve
|
|
|
|
|
Define a custom exception and catch it when you call this method, or define a struct which contains all the info you want to return ( or even an enum, true, false, error )
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
i dont actually know what you are trying to do,but try this code between your Catch and End Try block
.<br />
.<br />
.<br />
.<br />
Catch ex As Exception<br />
<br />
If Not ex.Message="" Then<br />
''Do your needful<br />
End If<br />
<br />
End Try
Live life to the fullest
|
|
|
|
|
Checking the Message string is a bad idea. Sure, it might work in this case, but it's a bad nabit to get into considering an Exception message can be thrown in many different languages.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Steve,
It seems the guys misunderstood the problem you are facing. (Otherwise I misunderstood, in which case you can skip over this answer )
I suppose you call this function or sub somewhere in your code, and then continue the rest of the code depending on what gets returned, right? So when an exception happens, whatever it is, you need it to return neither True nor False.
I'd say the simplest solution is to forget about the boolean and instead return an integer:
<br />
Private Function YourFunction() as Integer<br />
If something = True Then<br />
Return 0<br />
Else<br />
Return 1<br />
End If<br />
Catch Ex as Exception<br />
Return 2<br />
End Try<br />
End Function<br />
and then:
<br />
Select Case YourFunction()<br />
Case 0 'your function would have returned True<br />
<br />
Case 1 'your function would have returned False<br />
<br />
Case 2 'an exception would have occurred in you function<br />
<br />
End Select<br />
Hope this helps you,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
I've made a simple user control that has two properties and 3 different states. I'd like to prevent this control from accepting focus. Basically I want it to act like a label or panel. I've tried overriding wndproc, but haven't had any luck. All research has also turned up nothing. Any help would be appreciated.
|
|
|
|
|
If the label class does what you want, why not just derive from that ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
I suppose because I'm stubborn Actually, I hadn't thought of that. In my fiddling I stumbled across a different solution. It seems a UserControl inherits from UserControl and a custom control inherits from Control. A UserControl will recieve focus when clicked, but a Custom control won't. I'm assuming Usercontrol inherits a class that handles the focusing, which is why that type of control will always focus. I tried researching what the differences could be but came up empty handed.
So now I know in a situation like mine just inherit from control if I don't want it to get focus.
I've discovered another mystery in my pointless pursuit of information. How come the TabStop property doesn't exist for labels? TabStop is a property in the Control class and a Label is a control. How could it not be there? Oh, well. Unless somebody knows, I give up. I've figured out what I needed to know. Thanks for your reply.
|
|
|
|
|
Anyone know how to get the mouse scroll wheel to work in an MSHFlexGrid (or any control with vertical scroll bars, for that matter) in VB6?
|
|
|
|
|
Not supported. Scroll Wheels came out well after the FlexGrid did.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Actually it does work (at least it does in our implementation). Just change the ScrollTrack property of the MSHFlexGrid control on your form to True.
|
|
|
|
|
I am trying to create a "Wife is coming" button and I need a 1-click solution. I already know how to create an icon in the internet explorer task bar that will run a .exe or .vbs file using regedit.exe. Now I need a file to run that will do what Internet Explorer does when it deletes the cache, history, etc that I can link to the icon in the registry.
I know that when I click the "Delete All" button in IE7, the rundll.exe process turns on for a few seconds until the cache is clear, then ends when it is finished. What I need to know is what .dll is being run to delete the history/cache and how can I create a .vbs file that can do the same thing?
Any help I can get is greatly appreciated.
Matt
|
|
|
|
|
i am usind dataadapter and dataset objects to bind some data from the database in the textbox control. the code i m using is as follows:
textbox1.databindigs.add("text",dataset.tables(0),"Name")
This code is able to retrieve the field 'Name' from the database and puts it in this textbox. Now i want that if some change is made in this textbox,then that should be updated to the database table as well. for this purpose i m using dataset.acceptchange method. But this is not giving result. please guide me in this..
thanks..
-- modified at 14:42 Monday 19th March, 2007
|
|
|
|
|
manni_n wrote: the code i m using is as follows:
textbox1.databindigs.add("text",dataset.tables(0),"Name")
This code just sets up a single databinding and it's not even the code you used. Copy and Paste the REAL code you're using. Do not retype the code yourself! What's the code that's filling the DataSet your binding to? What does the code look like where you're writing the DataSet back to the database?
manni_n wrote: for this purpose i m using dataset.acceptchange method
Do you know what AcceptChanges does?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Try<br />
Dim da As New OleDbDataAdapter("select * from dbo_info where IDNo='" & Label2.Text & "' ", "provider=microsoft.jet.oledb.4.0;data source=e:\new folder\testIP.mdb;")<br />
Dim ds As New DataSet<br />
da.Fill(ds)<br />
Label2.DataBindings.Add("text", ds.Tables(0), "IDNo")<br />
Label43.DataBindings.Add("text", ds.Tables(0), "Name")<br />
Label42.DataBindings.Add("text", ds.Tables(0), "ParName")
i am using this code to bind the text box ... imean i am able to retrieve the data in the database now i want if something is changed in that textbox then that change should be updated in same data base..
i want to use dataset acceptchange method ....
i dont have that much knowledge in this coding...
please tell me the way to do this....
method other than dataset accept is also welcome....just i want to solve my purpose
thanks....
|
|
|
|
|
You don't have any code to write the dataset changes back to the database. You can use the same dataadapter object that you use to populate the dataset, but you have to give it the SqlCommands to make the Insert, Update, and Delete changes to the actual database. You can either do this by hand or, if you're old using a single table in your SELECT query, you can use the OleDbCOmmandBuilder class to make the other thre queries for you.
You could modify your code like this:
Dim da As New OleDbDataAdapter("select * from dbo_info where IDNo='" & Label2.Text & "' ", _
"provider=microsoft.jet.oledb.4.0;data source=e:\new folder\testIP.mdb;")
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter)
Dim ds As New DataSet
da.Fill(ds)
You'd probably also want to make the DataSet and DataAdapter class-scope so you can use it from something like a "Submit" button.
When you want to save the changes back to the database:
da.Update(ds)
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
you have initialized cb but havnt used anywhere....
whats the use of cb in this coding....?
|
|
|
|
|
You don't do anything with it.
Read up on the OleDbCommandBuilder class here[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hello!
I want to syncronize between two SQL 2005 databases. I'm quit new at this.
I want to have a maste database where I do all changes. The slave database i supposed to connect to the Master database and syncronice onec per day.
Can I write a application that triggers this or how can I make it work?
Thanks for all help!
Best regards Richard Segerlund
|
|
|
|
|
You wouldn't normally do this with any VB.NET code at all. This is something that you'd do with Replication Services[^] built into SQL Server.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Thanks for your help. I will read and see what I can find.
Best regards Richard Segerlund
|
|
|
|
|
Ho do i remove this attribute xmlns="" (blank namespace) from my XMLDocument
-- modified at 10:56 Monday 19th March, 2007
|
|
|
|
|
Hi Tomlinson,
Your question is a bit vague (the structure of xml documents is not standardized, the way for example EDI is), so I'll make a few assumptions:
- you need to process xml documents from a single source, on a regular basis
- the documents are created by another party, and you have no say over their structure
- the structure of the documents is constant
- you only need the content of the document and are able to read it into a recordset/datatable/dataset.
If so, then I advise you to read the content into a dataset, using your own xml schema.
If not so:
- why do you want to remove this attribute? In other words, how is this attribute bothering you?
- who creates the xml documents to begin with?
- do you need to process many similar documents, many dissimilar documents, or only a single document?
regards,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|