Browsing Visual Basic 6
Hex Editing Protection
Have you ever had one of your Programs, VIOLATED? By little punk kids that HEXED it? Well this Tutorial Shows you how to Protect against this!Original Author: Joel ZimmermanCodePublic Function HexEncrypt(ByVal sString As String) As StringDim sHex As StringDim i As LongDim pos As LongDim Encrypt As BooleanDim sNew As StringDim sTmp As StringDim iDec As Longpos = 1For i = 1 To Len(sString) 'loop through the string however neededIf Mid(sString, 1, 1) 'Turn Char into hexsHex = sHex & Hex$(Asc(Mid(sString, i, 1)))'pad hex with zerosIf Len(sHex) = 1 Then sHex = "0" & sHexEncrypt = TrueElse 'turn hex into textsTmp = Mid(sString, 2, Len(sString))sHex = Mid(sTmp, pos, 2)iDec = Val("&H" & sHex)If iDec > 0 ThensNew = sNew & Chr(iDec)End Ifpos = pos + 2Encrypt = FalseEnd IfNextIf Encrypt ThenHexEncrypt = Chr(163) & sHexElseHexEncrypt = sNewEnd IfEnd Function*************************** EXAMPLE: ***************************Dim Creator as stringCreator = HexEncrypt("£42614444424C6F6F44")which actually means Creator = BaDDBLooD.
_ String Functions _
Includes many common useful string functions.
CPU Utilization
I created this because I needed to be able to adjust how many child processes my batch processing app created so that it didn't I created this demo because I needed to be able to adjust how many child processes my batch processing app created so that it didn't overutilize the CPU.
_ Replace text in All text boxes contained in frames, form, and/or pictureboxes
I noticed an article recently posted about this.
Creating a project
My article is one of the most demanded articles ever.
___Fast Masks!___ (Error fixed)
Have you ever wanted to create your bitblt masks when the application starts without having the user wait 5 minutes, now u can!Original Author: Mathieu ChartierAssumptionsThis code creates masks for bitblt during runtime really fast!API DeclarationsSee the code below.
_ Unique Encryption Method
Unique way to encrypt a file.