vb6 source
from_text = edittext1.text
aaa1 = 5600
Rnd -1
Randomize aaa1
ccc = ccc Xor (36 * 2 ^ 2)
str_len1 = Len(from_text)
For ii = 1 To str_len1
ch1 = Asc(Mid$(from_text, ii, 1))
If ch1 >= 10 And ch1 <= 100 Then
ch1 = ch1 + Int(70 * Rnd)
If ch1 > 100 Then ch1 = ch1 - 70
bbb = bbb & Chr$(ch1)
End If
Next ii
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|--------> b4a Change
Thank you
from_text = edittext1.text
aaa1 = 5600
Rnd -1
Randomize aaa1
ccc = ccc Xor (36 * 2 ^ 2)
str_len1 = Len(from_text)
For ii = 1 To str_len1
ch1 = Asc(Mid$(from_text, ii, 1))
If ch1 >= 10 And ch1 <= 100 Then
ch1 = ch1 + Int(70 * Rnd)
If ch1 > 100 Then ch1 = ch1 - 70
bbb = bbb & Chr$(ch1)
End If
Next ii
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|--------> b4a Change
Thank you
