Bytes - answers

crptyohraphy question

00001144876 — Fri, 20 Nov 2009 02:14:42 GMT

I have this source code,

Expand|Select|Wrap|Line Numbers

	Imports System.IO

Imports System.Text

Imports System.Security.Cryptography
 
Module Module1
 
    Sub Main()
 
    End Sub

    Public TheKey(7) As Byte
 
    Private Vector() As Byte = {&H12, &H44, &H16, &HEE, &H88, &H15, &HDD, &H41}
 
    Sub Encrypt(ByVal inName As String, ByVal outName As String)

        Try

            Dim storage(4096) As Byte   'create buffer 

            Dim totalBytesWritten As Long = 8  'Keeps track of bytes written. 
 
            Dim packageSize As Integer   'Specifies the number of bytes written at one time. 
 
            'Declare the file streams. 

            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)

            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _

              FileAccess.Write)

            fout.SetLength(0)
 
            Dim totalFileLength As Long = fin.Length  'Specifies the size of the source file. 
 
            'create the Crypto object 

            Dim des As New DESCryptoServiceProvider()
 
            Dim crStream As New CryptoStream(fout, _

                   des.CreateEncryptor(TheKey, Vector), CryptoStreamMode.Write)
 
            'flow the streams 

                While  totalBytesWritten < totalFileLength 

                packageSize = fin.Read(storage, 0, 4096)

                crStream.Write(storage, 0, packageSize)

                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)

            End While
 
            crStream.Close()
 
        Catch e As Exception

            MsgBox(e.Message)

        End Try
 
    End Sub
 
    Sub Decrypt(ByVal inName As String, ByVal outName As String)
 
        Try
 
            Dim storage(4096) As Byte

            Dim totalBytesWritten As Long = 8

            Dim packageSize As Integer

            Dim fin As New FileStream(inName, FileMode.Open, FileAccess.Read)

            Dim fout As New FileStream(outName, FileMode.OpenOrCreate, _

              FileAccess.Write)

            fout.SetLength(0)

            Dim totalFileLength As Long = fin.Length
 
            Dim des As New DESCryptoServiceProvider()

            Dim crStream As New CryptoStream(fout, _

              des.CreateDecryptor(TheKey, Vector), CryptoStreamMode.Write)
 
            Dim ex As Exception
 
                While  totalBytesWritten < totalFileLength 

                packageSize = fin.Read(storage, 0, 4096)

                crStream.Write(storage, 0, packageSize)

                totalBytesWritten = Convert.ToInt32(totalBytesWritten + packageSize / des.BlockSize * des.BlockSize)

                Console.WriteLine("Processed {0} bytes, {1} bytes total", packageSize, _

                   totalBytesWritten)

            End While
 
            crStream.Close()
 
        Catch e As Exception

            MsgBox(e.Message & "Please ensure that you are using the correct password")

        End Try
 
    End Sub
 
    Sub CreateKey(ByVal strKey As String)
 
        ' Byte array to hold key 

        Dim arrByte(7) As Byte
 
        Dim AscEncod As New ASCIIEncoding()

        Dim i As Integer = 0

        AscEncod.GetBytes(strKey, i, strKey.Length, arrByte, i)
 
        'Get the hash value of the password 

        Dim hashSha As New SHA1CryptoServiceProvider()

        Dim arrHash() As Byte = hashSha.ComputeHash(arrByte)
 
        'put the hash value into the key 

        For i = 0 To 7

            TheKey(i) = arrHash(i)

        Next i
 
    End Sub
 
End Module

and i am getting this error

Name 'lt' is not declared.
and
Character is vaild

and ideas??

Calculate Date

OuTCasT — Wed, 18 Nov 2009 07:17:22 GMT

Hi All

I need to add 3 months to a date so i can calculate when a clients email bundle is out dated.

so for instance the client registed his bundle on 2009/09/01. I need to be able to add 3 months to this date so it comes out with 2009/12/01 and then compare the dates.

so if the date was 2009/12/02 then it would be expired.

Create COM+ Empty Application container, how?

chrislynn — Tue, 17 Nov 2009 20:28:19 GMT

I can't find anywhere how to create programmatically using vb.net or C# a new COM+ application container. Note: Not creating a .NET app that uses COM+.

I using .NET to create my own custom deployment packager and I need to physically create the Empty Application, etc. As you would if you open Component Services and in COM+ right cliecked and clicked 'New', then selected 'Empty Application', etc. I just want to do this using code.

Ideas? Thanx.

where can I get vb.net sample master froms please?

thiagameena123 — Tue, 17 Nov 2009 16:39:47 GMT

where can I get vb.net sample master froms please?

How to attach and detach sql 2005 database while starting application and closing?

thiagameena123 — Tue, 17 Nov 2009 16:27:46 GMT

Attach and detach sql 2005 database

cannot open database

Ashlesha pude — Tue, 17 Nov 2009 12:01:34 GMT

i am doin project using vb.net 2005 and using this sql query for connection
sql = "select username from login order by username"
con.ConnectionString = "Data Source=" & hostname & "; Initial Catalog=college;integrated security=sspi"
but m getting the following error:
Cannot open database "college" requested by the login. The login failed.
Login failed for user 'CI4\Admin'.

cannot open database due to this message :because of computer name change

Ashlesha pude — Mon, 16 Nov 2009 15:40:19 GMT

m doin project in vb.net as front - end and sqlserver 2005 as back-end

how to connect to remote database?

faisalabdul — Sat, 14 Nov 2009 06:15:49 GMT

Hello Experts,
I am having a small problem with my VB.NET and VC#.net programs

WHAT AM I DOING ?
-----------------------
I am creating a spider program in VB.NET which parses a URL and stores data in my database. The list of URL to be parsed are included in my database.

WHAT I NEED TO DO?
------------------------
Right now the program is working fine as I am using a local database lying on my hard drive, but I want to use database lying on a remote server (ex. http://www.mysite.com/db/database.mdb).
How do I do that in VB.NET application?

Thanks

Update query not working in vb.net 2008 access?

gagandeepsngh — Fri, 13 Nov 2009 17:55:36 GMT

Expand|Select|Wrap|Line Numbers

	'Code for selecting a particular data from database

'***** START *****
 
sSQL = "SELECT name FROM trans"

cmd = New OleDbCommand(sSQL, con)

Dim reader As OleDbDataReader = cmd.ExecuteReader()

While reader.Read()

Dim tempitem As String

tempitem = reader.GetString(0)
 
sSQL = "SELECT itemname = '" + tempitem + "' FROM itemcount"

cmd = New OleDbCommand(sSQL, con)

Dim itemFound As Integer

itemFound = cmd.ExecuteNonQuery()

MsgBox("Temp Item : '" + tempitem + "' ")
 
If (itemFound = 0) Then

'INSERTION QUERY

MsgBox(" In the insertion area ")

Dim sSQL2 As String
 
'PROBLEM AREA STARTS

sSQL2 = "INSERT INTO itemcount(itemname, itemcnt) VALUES ('" + tempitem + "',1)"

cmd = New OleDbCommand(sSQL, con)

Dim chek As Integer = cmd.ExecuteNonQuery()

If (chek > 0) Then

MsgBox("Sucess")

Else

MsgBox("Failure")

End If
 
'PROBLEM AREA ENDS

'OUTPUT IS ALWAYS (FAILURE) HENCE IT NEVER GOES IN THE ELSE CONDITION

Else

'UPDATE QUERY

MsgBox(" In the Update area ")

Dim sSQL2 As String

sSQL2 = "SELECT qty FROM trans WHERE name = '" + tempitem + "'"

cmd = New OleDbCommand(sSQL2, con)

Dim val1 As OleDbDataReader = cmd.ExecuteReader()

Dim val2 As Integer

val2 = 1
 
Dim sSQL3 As String

sSQL3 = "UPDATE itemcount SET itemcnt = '" + val2 + "' where itemname = '" + tempitem + "'"

cmd = New OleDbCommand(sSQL3, con)

cmd.ExecuteNonQuery()

MsgBox(cmd)
 
End If
 
End While

'***** END *****
 
reader.Close()

con.Close()

MsgBox("The Connection to the Database is now Closed")

End Sub

End Class

Help me out guys

Brief SyncLock / Multithreading question

clanjenkins — Fri, 13 Nov 2009 03:40:17 GMT

Hi

I have a dictionary object (let's call it _do) I am using to cache some values for use in a multi-threaded program. I have a single controlling parent thread, with a timer function _doTimer() which can kick off child threads with a new instance of class MyThreadObject in each. My parent thread has _do as a property and with each time _doTimer() gets called, it may or may not repopulate _do depending on cacheflag settings. I pass a reference to _do to each instance of MyThreadObject and those threads at some point read the values of _do but DO NOT write to it.

What I want is to ensure that the child threads do not try and read _do whilst the parent thread is writing to it. Same thing but very slightly different -> I also don't want the parent thread to write to _do whilst the child threads are reading from it. However there is no problem with 1 child thread reading the values of _do at the same time as another child thread is reading the values - so ideally I do not want each child thread to completely lock out read access, only locking out Write access..

The code is roughly like this:

Expand|Select|Wrap|Line Numbers

	
Public Class ParentThread

    Dim _do as Dictionary(Of String, Integer)

    Dim timer1 As New System.Timers.Timer
 
    Public Sub Start()

       timer1.Enabled = True

       timer1.Interval = 10

       AddHandler timer1.Elapsed, AddressOf dotimer

    End Sub
 
    Public Sub dotimer()

       if staticFunctions.refreshCache() = true then

          '// Some kind of SyncLock wrapper here???

          _do = staticFunctions.GetNewValues()

       end if

       Dim workerthread As New MyThreadObject()

       workerthread._doCache = _do

       Dim new_worker As New Thread(AddressOf workerthread.doStuff)

       new_worker.Start()

    End Sub

End Class
 
Public Class MyThreadObject

    Public _doCache as Dictionary(Of String, Integer)

    Public Sub doStuff()

        '// Some kind of SyncLock here??

        For Each kvp As KeyValuePair(Of String, String) In doCache 

            '// Do stuff based on values in kvp...

        Next kvp

    End Sub

End Class

I'm kind of thinking that the only way I can do this would be to only ever allow singular (SyncLocked) access to either read from or write to the _do variable. This is not ideal though as it would hold up the MyThreadObject objects unnecessarily.

Any help very gratefully appreciated!

Gareth

How to connect sqlserverCE database in vb.net

sabitawoonna — Thu, 12 Nov 2009 10:30:40 GMT

I developed 1 new project i.e workstation project.I have one sqlserverce database i.e workstationProject.sdf.In this database i have 2 tables i.e demolist,userinformation.
In demolist i have 2 columns i.e domainid,domainname.
In vb.net form i found Currentuser information.information coming like this ken\u387901.ken is the domain in the domain list table.i want the following code.
1)how to find out ken is domain list table or not.
2how to use demolist table in vb.net code.

Getting Unmounted drives using vb.net

visweswaran2830 — Thu, 12 Nov 2009 05:37:45 GMT

I want to get mounted and unmounted drives using vb.net. Could anyone help me. Using getlogicaldrives methods we can get mounted drive. but i want to get unmounted drives also.

Report totals for the various MS ACCESS versions

peter1234 — Wed, 11 Nov 2009 19:14:48 GMT

I am trying to produce study notes for ACCESS, and for many days I am stuck trying to produce totals and subtotals for table �Order Details� from �Northwind Sample Access Database�. The fact that I am working in two locations and using two versions of ACCESS has made it clear that there is no webpage that lists clearly, step by step, the procedure, by ACCESS version.

In ACCESS 2000 I have unsuccessfully applied the code in
http://support.microsoft.com/kb/208850
From the results it seems that the only functions that produced results are the ones that initialize the subtotals and grand total, and those that extract them. Where the incremental totals should be read #Error

For ACCESS 2003 I have applied with some amendments
http://office.microsoft.com/en-us/access/HA011224441033.aspx

For some reason I cannot read the totals from the sub report. The text box reads #Name?
I have checked the main and sub reports for duplicate names and could not find any.

Please help.

Looking for 'magnetic link' type gui control

markcarman — Sun, 08 Nov 2009 02:08:05 GMT

Is there a control in .NET that allows you to create boxes with input and output pins which can then be connected?
A good example is Graphedit

How to send mail at Specify time in vb.net 2003

ganeshvkl — Sat, 07 Nov 2009 08:15:40 GMT

Hi,
How to send mail at Specify time automatically in vb.net 2003

Thanks in adv
Ganesh