CODE:
Function mistake(preString)
Dim texts
Dim seed
Dim i, Length
prestring = Trim(preString)
Length = Len(preString)
seed = Length
Randomize(Length)
texts = ""
For i = 1 To Length
seed = Int(94 * Rnd( - Asc(Mid(preString, i, 1)) - seed * Asc(Right(prestring, 1))) + 32)
texts = texts & Chr(seed) & Chr(Int(94 * Rnd( - seed) + 32))
Next
Dim dist
dist = ""
For i = 1 To Len(texts)
If Mid(texts, i, 1)<>"'" Then
dist = dist + Mid(texts, i, 1)
End If
Next
mistake = dist
End Function
|
