Visual Basic Programming Code Examples Visual Basic > API and Miscellaneous Code Examples Function to add simple encryption to a string. Function to add simple encryption to a string. 'Trivial String Encryption 'Plug this guy in your app to quickly encrypt a string. 'Will keep your average busybody out. Function crypt$ (action$, key$, src$) 'trivial encryption algorithm) 'usage crypt$("E"ncrypt or "D"ecrypt, keyword, source string)) Dim count%, keypos%, keylen%, srcasc%, dest$, srcpos%, xtest$) keylen = Len(key)) If UCase$(action) = "E" Then) For srcpos = one To Len(src)) srcasc = Asc(Mid$(src, srcpos, one))) If keypos 'Here is a function to round a value up,down,or near 'to another value. Function doRound(value As Double, RStep As Double, Mode As String) As Double ' Mode function ' UP RoundUp ' DN RoundDN ' NE Nearest ' If Mode = "DN" Then doRound = (Int(value / RStep) * RStep) Exit Function End If ' **** mode up If Mode = "UP" Then If value Mod RStep > 0 Then doRound = ((Int(value / RStep) * RStep) + RStep) Else doRound = value End If Exit Function End If If Mode = "NE" Then value = value + (RStep / 2) doRound = (Int(value / RStep) * RStep) Exit Function End If End Function
