Hi, Thanks for the post. I found it helpful. This might be a noob question, but why did you write byte2Bin and bin2Byte rather than use StrConv as Tim did SpreadsheetGear for. NET is a royalty free Microsoft Excel compatible spreadsheet component for the Microsoft. NET Framework featuring the fastest and most complete. SHA 1. bas Visual Basic Wiki. Download. Edit. Compatibility VB4. Yes. VB5untested. VB6. Yes. VB. NETuntested. Vb6 Write Unicode Text File' title='Vb6 Write Unicode Text File' />An implementation of the SHA 1 hash algorithm. First version, might still contain bugs. Function Hex. Default. SHA1Message As Byte As String. Returns the SHA 1 hash of Message using the default key as a string of hexadecimal numbers. Function Hex. SHA1Message As Byte, By. About this code A number of VB experts have been very generous in making sample code available on the Internet for VB6 and Win32 API functions, but some things are. After surfing around the net, Ive found very little information regarding installation of VB6 on Windows 7. Most of the information out there is for Vista, and most. Automatically backup files, directories, even entire drives Karens Replicator copies selected files from one drivefolder to another. Source and Destination folders. Use IE for best view http http page missing microsoft. Table of contents. Basic4Android Beginners Guide. Getting started. Val Key. As Long, By. Val Key. As Long, By. Val Key. As Long, By. Val Key. As Long As String. Returns the SHA 1 hash of Message using the key specified by Key. Key. 4 as a string of hexadecimal numbers. Sub Default. SHA1Message As Byte, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. Returns the SHA 1 hash of Message using the default key in H1. H5. Sub SHA1Message As Byte, By. Val Key. 1 As Long, By. Val Key. 2 As Long, By. Val Key. 3 As Long, By. Val Key. 4 As Long, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. Returns the SHA 1 hash of Message using the key specified by Key. Key. 4 in H1. H5. This module was originally written as a replacement for a similar module by John Taylor. However, this module should be more efficient, and it uses Byte arrays instead of strings for the message, which makes it suitable for digesting binary data, or text containing international characters. Note that if you coerce a String into a Byte array, Visual Basic will copy the actual data bytes of the string, which is stored as a sequence of 1. Unicode character codes. That means that every character takes two bytes. If this doesnt suit your needs, youll have to convert the string yourself, for example using the Str. Conv function. B9. A1. 71. Its just a straightforward implementation of SHA 1. Since only creative works are copyrightable, this code is in the public domain. B9. A1. 71. Attribute VBName SHA1vb. Option Explicit. Private Type Four. Bytes. Private Type One. Long. Function Hex. Default. SHA1Message As Byte As String. Dim H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. Default. SHA1 Message, H1, H2, H3, H4, H5. Hex. Default. SHA1 Dec. To. Hex. 5H1, H2, H3, H4, H5. Function Hex. SHA1Message As Byte, By. Val Key. 1 As Long, By. Val Key. 2 As Long, By. Val Key. 3 As Long, By. Val Key. 4 As Long As String. Dim H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. SHA1 Message, Key. Key. 2, Key. 3, Key. H1, H2, H3, H4, H5. Hex. SHA1 Dec. To. Hex. 5H1, H2, H3, H4, H5. Sub Default. SHA1Message As Byte, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. SHA1 Message, H5. A8. 27. 99. 9, H6. ED9. EBA1, H8. F1. BBCDC, HCA6. C1. D6, H1, H2, H3, H4, H5. Sub SHA1Message As Byte, By. Val Key. 1 As Long, By. Val Key. 2 As Long, By. Val Key. 3 As Long, By. Val Key. 4 As Long, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long. CA6. 2C1. D6. 8F1. BBCDC6. ED9. EBA1. A8. 27. 99. 9 abc A9. E3. 6 4. 70. 68. 16. A BA3. E2. 57. 1 7. C2. 6C 9. CD0. D8. D. abc A9. E3. 6 4. A BA3. E2. 57. 1 7. C2. 6C 9. CD0. D8. D. Dim U As Long, P As Long. Dim FB As Four. Bytes, OL As One. Long. Dim I As Integer. Dim W8. 0 As Long. Dim A As Long, B As Long, C As Long, D As Long, E As Long. H1 H6. 74. H2 HEFCDAB8. H3 H9. 8BADCFE H4 H1. H5 HC3. D2. E1. F0. U UBoundMessage 1 OL. L U3. 2Shift. Left. U A U H2. LSet FB OL U3. Shift. Right. 29U. Re. Dim Preserve Message0 To U 8 And 6. MessageU 1. 28. U UBoundMessage. MessageU 4 A. MessageU 3 FB. D. MessageU 2 FB. C. MessageU 1 FB. B. MessageU FB. A. While P lt U. For I 0 To 1. FB. D MessageP. FB. C MessageP 1. FB. B MessageP 2. FB. A MessageP 3. LSet OL FB. WI OL. L. P P 4. For I 1. To 7. 9. WI U3. Rotate. Left. 1WI 3 Xor WI 8 Xor WI 1. Xor WI 1. 6. A H1 B H2 C H3 D H4 E H5. For I 0 To 1. 9. T U3. AddU3. 2AddU3. AddU3. AddU3. 2Rotate. Left. A, E, WI, Key. B And C Or Not B And D. E D D C C U3. Rotate. Left. 30B B A A T. For I 2. 0 To 3. T U3. AddU3. 2AddU3. AddU3. AddU3. 2Rotate. Left. A, E, WI, Key. B Xor C Xor D. E D D C C U3. Rotate. Left. 30B B A A T. For I 4. 0 To 5. T U3. AddU3. 2AddU3. AddU3. AddU3. 2Rotate. Left. A, E, WI, Key. B And C Or B And D Or C And D. E D D C C U3. Rotate. Left. 30B B A A T. For I 6. 0 To 7. T U3. AddU3. 2AddU3. AddU3. AddU3. 2Rotate. Left. A, E, WI, Key. B Xor C Xor D. E D D C C U3. Rotate. Left. 30B B A A T. H1 U3. 2AddH1, A H2 U3. AddH2, B H3 U3. AddH3, C H4 U3. AddH4, D H5 U3. AddH5, E. Function U3. AddBy. Val A As Long, By. Val B As Long As Long. If A Xor B lt 0 Then. U3. 2Add A B. U3. Add A Xor H8. B Xor H8. Function U3. 2Shift. Left. 3By. Val A As Long As Long. U3. 2Shift. Left. A And HFFFFFFF 8. If A And H1. Then U3. Shift. Left. U3. 2Shift. Left. Or H8. 00. 00. Function U3. 2Shift. Right. 29By. Val A As Long As Long. U3. 2Shift. Right. A And HE0. 00. H2. And 7. Function U3. Rotate. Left. 1By. Val A As Long As Long. U3. 2Rotate. Left. A And H3. FFFFFFF 2. If A And H4. Then U3. Rotate. Left. 1 U3. Rotate. Left. 1 Or H8. If A And H8. Then U3. Rotate. Left. 1 U3. Rotate. Left. 1 Or 1. Function U3. Rotate. Left. 5By. Val A As Long As Long. U3. 2Rotate. Left. A And H3. FFFFFF 3. Or A And HF8. H8. And 3. If A And H4. Then U3. 2Rotate. Left. 5 U3. 2Rotate. Left. 5 Or H8. Function U3. Rotate. Left. 30By. Val A As Long As Long. U3. 2Rotate. Left. A And 1 H4. Or A And HFFFC 4 And H3. FFFFFFF. If A And 2 Then U3. Rotate. Left. 30 U3. Rotate. Left. 30 Or H8. Function Dec. To. Hex. 5By. Val H1 As Long, By. Val H2 As Long, By. Val H3 As Long, By. Val H4 As Long, By. Val H5 As Long As String. Dim H As String, L As Long. Dec. To. Hex. 5 0. H HexH1 L LenH MidDec. To. Hex. 5, 9 L, L H. H HexH2 L LenH MidDec. To. Hex. 5, 1. 8 L, L H. H HexH3 L LenH MidDec. To. Hex. 5, 2. 7 L, L H. H HexH4 L LenH MidDec. To. Hex. 5, 3. 6 L, L H. H HexH5 L LenH MidDec. To. Hex. 5, 4. 5 L, L H. End Function. B9. HID USB Driver Library. Table of Contents Motivation The Human Interface Device Class USB Specific Stuff The HID USB Device Interface How to Integrate the Library into a Visual Studio Project How the HID USB Library works internal Where can I get the HID USB Library. Motivation. We wanted to find a new solution to connect our Hardware to the PC via USB because the experience we made with FTDI Chips was not satisfying at all. The USB controller of our choice was the Maxim MAX3. E that is connected to the microcontroller through a Serial Peripheral Interface SPI. The MAX3. 42. 0E comes without any drivers or libraries you can use to speak with it. This is the reason why I had to develop my own driver. After a day of reading and googling I decided that the best an easiest way is to use the Human Interface Device Class HID. The HID Class is a generic device class which means that all devices in this class are supported by Microsoft Windows and there are already existing DLLs with functions that we can use. The start point for the driver was an article I found in the Microsoft developer network Is That You Writing Better Software for Cool USB Hardware written by Scott Hanselman. Scotts software is based on the USBSharp Class. Luckily the MAX3. E comes with a code sample that configures the controller as a Human Interface Device so we didnt have much trouble to find out how to configure it as HID. The Human Interface Device Class. As mentioned above the HID Class is a generic device class so the driver is integrated in the operating system which makes things easy. If a new HID device is plugged in there is no need of any driver installation. The functions to access and control a HID device are included in the Windows hid. System. 32 folder. If you do not know for sure if your device is a HID device you should have a look at this little application. It is a part of windows and you can run it with the start run msinfo. Or under Windows Vista just press the Windows Key Type msinfo. USB Specific Stuff. Identify your USB device. USB device are identified by their vendor and product id. Those IDs are consisting of a prefix vid for vendor id or pid for product id and a 4 digit HEX number. The MAX3. 42. 0E for example has the vendor id vid0. Usually both values can be changed in the source code of the USB device assumes that you have access to that code. Package Size Communication Speed. HID devices are communicating with the pc through so called hid reports. Those reports consist of 6. Each microsecond one report is send from pc to the USB device and vice versa. This means that theoretical a transfer rate of 6. Kbytes per second can be achieved. The HID USB Driver Interface. The driver is written in C and designed as a DLL, this has the benefit so it is very easy to integrate the drive into a new project. Just import the DLL or the project and you are finished. I tried to keep the interface as simple as possible on the one hand and on the other hand to integrate as much functionality as possible. At the moment it has the following functions USBInterfaceString,String constructor. This method initializes a new instance of the USBInterface class. Parametersvid. The vendor id of the USB device e. The product id of the USB device e. USBInterfaceString constructor. This method initializes a new instance of the USBInterface class. Parametersvid. The vendor id of the USB device e. Connect method. This method establishes a connection to the USB device. You can only establish a connection to a device if you have used the construct with vendor AND product id. Otherwise it will connect to a device which has the same vendor id is specified, this means if more than one device with these vendor id is plugged in, you cant be determine to which one you will connect. Returns. False if any error occurs. Disconnect method. Disconnects the deviceget. Device. List method. Returns a list of devices with the vendor id or vendor and product id specified in the constructor. This function is needed if you want to know how many and which devices with the specified vendor id are plugged in. Returns. String list with device pathswriteByte method. This method writes the specified bytes to the USB device. If the array length exceeds 6. The 0 6. 3 byte of the array is sent first, then the 6. Parametersbytes. The bytes to send. Returns. Returns true if all bytes have been written successfullystart. Read method. This method is used to activate the reading State. If you execute this command a thread is started which listens to the USB device and waits for data. Read method. This method switches from reading State into idle State. By executing this command the read data thread is stopped and now data will be received. Usb. Buffer. EventEvent. Handler method. By calling this method with an event handler System. Event. Handler the add event listener of the USB Buffer is enabled. Thus whenever a dataset is added to the buffer and so received from the USB device the event handler method will be called. Parameterse. Handler. The event handler System. Event. Handler method. How to integrate the HID USB Library into a Visual Basic Project. There a two ways to integrate the HID USB Library into a Visual Studio project. One is to add the library project to your Visual Studio solution. Pod Farm 2.53 more. The other way is to add a reference to the USBHIDDRIVER. Add the library project to a Visual Studio 2. Open your Visual Studio solution. Go to File Add Existing Project2. The following Dialog will open. Navigate to the USBHIDDRIVER. Right click on your Visual Studio project and click Add Reference 4. Select the Projects tab. Then select the USBHIDDRIVER and click ok. Add the USBHIDDRIVER. Visual Studio project. Right click on your Visual Studio project and click Add Reference 2. Select the Browse tab. Then navigate to the USBHIDDRIVER. Use the USBHIDDRIVER. Visual Basic 6. The. Net runtime allows unmanaged COM aware clients like Visual Basic 6 applications to access. Net components through the COM interop and through the tools provided by the framework. The USBHIDDRIVER. NET assembly which can not be accessed by Visual Basic 6. Therefore we have to create a type library which can be used with Visual Basic 6. This can be done with the Tool Reg. Asm. exe that you will find in the directory of your. Net framework installation. Create a. bat file in the directory of the USBHIDDRIVER. Then run the bat file. C WINDOWSMicrosoft. NETFrameworkv. 2. Reg. Asm. exe USBHIDDRIVER. USBHIDDRIVER. dll. Now you have to copy both the dll and the tlb file in the same directory as the application which is consuming it. How to use the HID USB Library. Lets say you want to communicate with an USB device that has the vendor id vid0. So the first thing you may want to have is a list of all devices connected to the pc which have the specified vendor id. To do this just make a new instance of the USBInterface class with only the vendor id as parameter. Then call the get. Device. List Mehtod and you will receive a list of the devices that are connected. USBHIDDRIVER. USBInterface usb new USBInterfacevid0. String list usb. I. Device. List For communicating with the device make a new instance of the USBInterface class with the vector id and the product id as parameter. After that, you can call the connect method and a connection will be established. USBHIDDRIVER. USBInterface usb new USBInterfacevid0b.