P park jae hyun Member Licensed User Longtime User Sep 7, 2011 #1 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
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
nfordbscndrd Well-Known Member Licensed User Longtime User Sep 8, 2011 #2 Have you looked at the VB6 To B4A post? Upvote 0