below i have a code for encrypt and decrypt. I incorporated it into my program i forgot how to work it any help please below are some fields i need to decrypt back to original text

then how cant i encrypt back to this method if i was to put some other text i.e. want to encrypt Mike

Public Function Encrypt(ByVal StringToEncrypt As String) As StringRemarks: ' The following function takes the parameter 'StringToEncrypt' and performs ' multiple mathematical transformations on it. Every step has been ' documented through remarks to cut down on confusion of the process ' itself. Upon any error, the error is ignored and execution of the ' function continues. It is suggested that you do not attempt to encrypt ' more than 5k to 10k at once because the function is so memory intensive. ' For instance, on a 200 Mhz, with 128 MB RAM and Win98 SE, an uncompiled ' version of this function averaged the following times (over a period of ' ten trials): ' ' 1000 characters (1K) - 3333 characters per second ' 3000 characters (3K) - 1500 characters per second ' 5000 characters (5K) - 1000 characters per second ' 8000 characters (8K) - 707 characters per second ' ' At 11K, the machine locked up and an 'out of memory' error arose. It is ' projected that the same machine would only do 418 characters per second ' on 10K, 58 characters per second on 20K, and 0.158 characters per second ' on 50K (all based on eighty trials). It is strongly suggested that you ' encrypt 5K at a time and then concatenate the strings. Furthermore, size ' needs to be taken into account. The encrypted string will generally be ' between 3.9 and 4.1 times the size of the original string. For instance, ' a 10k string might produce sizes between the ranges of 39K and 41K. ' Thus, it doesn't make sense to try to encrypt a 20MB file, unless you ' have the space.OnError: On Error GoTo ErrHandlerDimensions: Dim intMousePointer As Integer Dim dblCountLength As Double Dim intRandomNumber As Integer Dim strCurrentChar As String Dim intAscCurrentChar As Integer Dim intInverseAsc As Integer Dim intAddNinetyNine As Integer Dim dblMultiRandom As Double Dim dblWithRandom As Double Dim intCountPower As Integer Dim intPower As Integer Dim strConvertToBase As StringConstants: Const intLowerBounds = 10 Const intUpperBounds = 28MainCode: ' Store the current value of the mouse pointer 'Let intMousePointer = Screen.MousePointer ' Change the mousepointer to an hourglass. 'Let Screen.MousePointer = vbHourglass ' Start a For...Next loop that counts through the length of the parameter ' 'StringToEncrypt' For dblCountLength = 1 To Len(StringToEncrypt) ' Make sure random numbers do not hold any pattern Randomize ' Choose a random integer between the constant 'intLowerBounds' and the ' constant 'intUpperBounds' and store it in 'intRandomNumber' Let intRandomNumber = Int((intUpperBounds - intLowerBounds + 1) * Rnd + _ intLowerBounds) ' Select the next character in the parameter 'StringToEncrypt' based ' on the value of 'dblCountLength' Let strCurrentChar = Mid(StringToEncrypt, dblCountLength, 1) ' Find the ascii number associated with 'strCurrentChar' Let intAscCurrentChar = Asc(strCurrentChar) ' Inverse the order of the numbers between 1 and 255 by subtracting the ' number from 256 (ie 1 turns into 255, 2 turns into 254, etc) Let intInverseAsc = 256 - intAscCurrentChar ' Add 99 to the number Let intAddNinetyNine = intInverseAsc + 99 ' Multiply the integers 'intAddNinetyNine' and 'intRandomNumber' ' together Let dblMultiRandom = intAddNinetyNine * intRandomNumber ' Insert the random number into the middle of the result of ' 'dbsMultiRandom' Let dblWithRandom = Mid(dblMultiRandom, 1, 2) & intRandomNumber & _ Mid(dblMultiRandom, 3, 2) ' Start a For...Next loop that counts through the viable powers of 93 ' to be used to convert 'dblWithRandom' from base 10 to base 93 For intCountPower = 0 To 5 ' Test to see if 'dblWithRandom' is large enough to accept the ' current power of 93 based on 'intCountPower' If dblWithRandom / (93 ^ intCountPower) >= 1 Then ' Store the power into the 'intPower' variable Let intPower = intCountPower ' Stop the test of 'dblWithRandom' End If ' Go to the next highest power of 93 Next intCountPower ' Let 'strConvertToBase' be equal to an empty string. Let strConvertToBase = "" ' Start a For...Next loop that counts down through the viable powers ' of 93 based on the results of the test above For intCountPower = intPower To 0 Step -1 ' Divide 'dblWithRandom' by 93 to the power of 'intCountPower', add ' 33, take only the integer, find the character associated with the ' number, and place it into the variable called 'strConvertToBase' Let strConvertToBase = strConvertToBase & _ Chr(Int(dblWithRandom / (93 ^ intCountPower)) + 33) ' Let 'dblWithRandom' be equal to the remainder of the previous ' process Let dblWithRandom = dblWithRandom Mod 93 ^ intCountPower ' Go to the next lowest power of 93 Next intCountPower ' Insert at the end of the function 'Encrypt' one character ' representing the length of 'strConvertToBase' and the value of ' 'strConvertToBase' Let Encrypt = Encrypt & Len(strConvertToBase) & strConvertToBase ' Go to the next character in the variable 'StringToEncrypt' Next dblCountLength ' Return the mousepointer to the value that it was before the function ' started Let Screen.MousePointer = intMousePointer ' Stop execution of this function Exit FunctionErrHandler: ' Begin selecting occurences of an error number when an error has occured Select Case Err.Number ' For all occurences of an error number, do what follows Case Else ' Erase the error Err.Clear ' Go to the line of code that follows the error Resume Next ' Stop selecting occurences of an error number End SelectEnd FunctionPublic Function Decrypt(ByVal StringToDecrypt As String) As StringRemarks: ' The following function takes the parameter 'StringToDecrypt' and performs ' multiple mathematical transformations on it. Every step has been ' documented through remarks to cut down on confusion of the process ' itself. Upon any error, the error is ignored and execution of the ' function continues. Unlike the 'Encrypt' function, this function has ' proved itself to be virtually limitless in comparison. For instance, on ' a 200 Mhz, with 128 MB RAM and Win98 SE, an uncompiled version of this ' function averaged the following times (over a period of ten trials): ' ' 1000 characters (1K) - 10000 characters per second ' 3000 characters (3K) - 30000 characters per second ' 5000 characters (5K) - 25000 characters per second ' 8000 characters (8K) - 13333 characters per second ' 10000 characters (10K) - 25000 characters per second ' 20000 characters (20K) - 28571 characters per second ' 30000 characters (30K) - 20000 characters per second ' ' In fact, after 120 trials that ranged from 1K to 30K, the function ' averaged 24769 characters per second. There must be a size constraint, ' based on memory and processor, but it has not been found yet.OnError: On Error GoTo ErrHandlerDimensions: Dim intMousePointer As Integer Dim dblCountLength As Double Dim intLengthChar As Integer Dim strCurrentChar As String Dim dblCurrentChar As Double Dim intCountChar As Integer Dim intRandomSeed As Integer Dim intBeforeMulti As Integer Dim intAfterMulti As Integer Dim intSubNinetyNine As Integer Dim intInverseAsc As IntegerConstants: ' [None]MainCode: ' Store the current value of the mouse pointer 'Let intMousePointer = Screen.MousePointer ' Change the mousepointer to an hourglass. 'Let Screen.MousePointer = vbHourglass ' Start a For...Next loop that counts through the length of the parameter ' 'StringToDecrypt' For dblCountLength = 1 To Len(StringToDecrypt) ' Place the character at 'dblCountLength' into the variable ' 'intLengthChar' Let intLengthChar = Mid(StringToDecrypt, dblCountLength, 1) ' Place the string 'intLengthChar' long, directly following ' 'dblCountLength' into the variable 'strCurrentChar' Let strCurrentChar = Mid(StringToDecrypt, dblCountLength + 1, _ intLengthChar) ' Let the variable 'dblCurrentChar' be equal to 0 Let dblCurrentChar = 0 ' Start a For...Next loop that counts through the length of the ' variable 'strCurrentChar' For intCountChar = 1 To Len(strCurrentChar) ' Convert the variable 'strCurrent' from base 98 to base 10 and ' place the value into the variable 'dblCurrentChar' Let dblCurrentChar = dblCurrentChar + (Asc(Mid(strCurrentChar, _ intCountChar, 1)) - 33) * (93 ^ (Len(strCurrentChar) - _ intCountChar)) ' Go to the next character in the variable 'strCurrentChar' Next intCountChar ' Determine the random number that was used in the 'Encrypt' function Let intRandomSeed = Mid(dblCurrentChar, 3, 2) ' Determine the number that represents the character without the random ' seed Let intBeforeMulti = Mid(dblCurrentChar, 1, 2) & Mid(dblCurrentChar, 5, _ 2) ' Divide the number that represents the character by the random seed ' and place that value into the variable 'intAfterMulti' Let intAfterMulti = intBeforeMulti / intRandomSeed ' Subtract 99 from the variable 'intAfterMulti' and place that value ' into the variable 'intSubNinetyNine' Let intSubNinetyNine = intAfterMulti - 99 ' Subtract the variable 'intSubNinetyNine' from 256 and place that ' value into the variable 'intInverseAsc' Let intInverseAsc = 256 - intSubNinetyNine ' Place the character equivalent of the variable 'intInverseAsc' at the ' end of the function 'Decrypt' Let Decrypt = Decrypt & Chr(intInverseAsc) ' Add the variable 'intLengthChar' to 'dblCountLength' to ensure that ' the next character is being analyzed Let dblCountLength = dblCountLength + intLengthChar ' Go to the next character in the variable 'StringToEncrypt' Next dblCountLength ' Return the mousepointer to the value that it was before the function ' started Let Screen.MousePointer = intMousePointer Exit FunctionErrHandler: ' Begin selecting occurences of an error number when an error has occured Select Case Err.Number ' For all occurences of an error number, do what follows Case Else ' Erase the error Err.Clear ' Go to the line of code that follows the error Resume Next ' Stop selecting occurences of an error number End SelectEnd Function

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Open in new window

Remember to escape your quotes when decrypting.