VB.NET PROJECT(HELP!!!!!!)
-
:confused: Hi, My name is Greg Kelley. I'm a student in college. I'm currently studying Visual Basic.Net. I have a project that I'm working on, and I'm having some problems bringing it all together.I need to create a program that contains the following: Menu System Required Merge(2)Files together Sort the File(First six characters) Encrypt the file Decrypt the file Note: The file must contain 10 records(80 bytes long) If you could asssist me in this , it would be greatly appreciated. If so, I need to do this in its simpliest form. Thanks, Greg Kelley:confused: Greg Kelley
-
:confused: Hi, My name is Greg Kelley. I'm a student in college. I'm currently studying Visual Basic.Net. I have a project that I'm working on, and I'm having some problems bringing it all together.I need to create a program that contains the following: Menu System Required Merge(2)Files together Sort the File(First six characters) Encrypt the file Decrypt the file Note: The file must contain 10 records(80 bytes long) If you could asssist me in this , it would be greatly appreciated. If so, I need to do this in its simpliest form. Thanks, Greg Kelley:confused: Greg Kelley
What are you having problems with? Menus, Merge, Sort, Encrypt/Decrypt?? RageInTheMachine9532
-
What are you having problems with? Menus, Merge, Sort, Encrypt/Decrypt?? RageInTheMachine9532
Thanks for responding. Well to be honest. I having problems with all of those. This program doesn't have to be complex. Unfortunately, i had some personal issues that required to be absent for the class when all of the above was covered. I've been trying to contruct this on my own but haven't had much success. Your help would greatly be appreciated!!!! Thanks Greg Kelley Greg Kelley
-
Thanks for responding. Well to be honest. I having problems with all of those. This program doesn't have to be complex. Unfortunately, i had some personal issues that required to be absent for the class when all of the above was covered. I've been trying to contruct this on my own but haven't had much success. Your help would greatly be appreciated!!!! Thanks Greg Kelley Greg Kelley
Buddy, we can help you here, but I think that's your homework. Send me the code you've already done, and I'll give you some help with it. Free your mind...
-
Buddy, we can help you here, but I think that's your homework. Send me the code you've already done, and I'll give you some help with it. Free your mind...
Here is what i've done so far. 'Greg Kelley 'VB Program '1-9-04 Module Module1 Sub Main() 'Read the contents of File1 to end of file and close. Dim File1 As New System.IO.StreamReader("c:\words.txt") Dim word1 As String = File1.ReadToEnd() File1.Close() 'Reads the content of File2 to end of file and close. Dim file2 As New System.IO.StreamReader("c:\test.txt") Dim word2 As String = file2.ReadToEnd() file2.Close() 'Merges the contents of file1 and file2 into File3 and closes. Dim File3 As New System.IO.StreamWriter("c:\main.txt,") File3.WriteLine(word1 & word2) File3.Close() End Sub ' Encrypts/decrypts the passed string using ' a simple ASCII value-swapping algorithm Public Function SimpleCrypt(ByVal Main As String) As String Dim X As String, i As Integer ' Encrypt X = SimpleCrypt(Main) MessageBox.Show(Main) ' Decrypt X = SimpleCrypt(Main) MessageBox.Show(Main) For i = 1 To Len(Main) If Asc(Mid$(Main, i, 1)) < 128 Then File3 = _ CType(Asc(Mid$(Main, i, 1)) + 128, String) ElseIf Asc(Mid$(Main, i, 1)) > 128 Then File3 = _ CType(Asc(Mid$(Main, i, 1)) - 128, String) End If Mid$(Main, i, 1) = _ Chr(CType(File3, Integer)) Next i Return Main End Function End Module Greg Kelley
-
Here is what i've done so far. 'Greg Kelley 'VB Program '1-9-04 Module Module1 Sub Main() 'Read the contents of File1 to end of file and close. Dim File1 As New System.IO.StreamReader("c:\words.txt") Dim word1 As String = File1.ReadToEnd() File1.Close() 'Reads the content of File2 to end of file and close. Dim file2 As New System.IO.StreamReader("c:\test.txt") Dim word2 As String = file2.ReadToEnd() file2.Close() 'Merges the contents of file1 and file2 into File3 and closes. Dim File3 As New System.IO.StreamWriter("c:\main.txt,") File3.WriteLine(word1 & word2) File3.Close() End Sub ' Encrypts/decrypts the passed string using ' a simple ASCII value-swapping algorithm Public Function SimpleCrypt(ByVal Main As String) As String Dim X As String, i As Integer ' Encrypt X = SimpleCrypt(Main) MessageBox.Show(Main) ' Decrypt X = SimpleCrypt(Main) MessageBox.Show(Main) For i = 1 To Len(Main) If Asc(Mid$(Main, i, 1)) < 128 Then File3 = _ CType(Asc(Mid$(Main, i, 1)) + 128, String) ElseIf Asc(Mid$(Main, i, 1)) > 128 Then File3 = _ CType(Asc(Mid$(Main, i, 1)) - 128, String) End If Mid$(Main, i, 1) = _ Chr(CType(File3, Integer)) Next i Return Main End Function End Module Greg Kelley
Where do you need help ? Crypting and Decrypting ?? Free your mind...
-
Where do you need help ? Crypting and Decrypting ?? Free your mind...
Console Application The program is suppose read in 2 txt files Then concatenate those two files into a single txt file Then Display the encrypted contents on screen Write to another file Display the decrypted contents on screen Read the encrypted file encrypting and then decrpyting .txt file Greg Kelley
-
Console Application The program is suppose read in 2 txt files Then concatenate those two files into a single txt file Then Display the encrypted contents on screen Write to another file Display the decrypted contents on screen Read the encrypted file encrypting and then decrpyting .txt file Greg Kelley
I haven't tested the code you sent me. Does the Crypt-Decrypt algorithm work ? If not, build the algorithm and I'll help you build the solution. Free your mind...