string ls_return
string ls_char
integer x
integer y
integer z
integer value
ls_return = ""
if workmode = "single" then
ls_char = mid(vvalue,5,1)
x = asc(ls_char)
ls_char = mid(vvalue,3,1)
y = asc(ls_char)
ls_char = mid(vvalue,12,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 20),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,11,1)
x = asc(ls_char)
ls_char = mid(vvalue,14,1)
y = asc(ls_char)
ls_char = mid(vvalue,3,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 28),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,7,1)
x = asc(ls_char)
ls_char = mid(vvalue,13,1)
y = asc(ls_char)
ls_char = mid(vvalue,11,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 31),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,15,1)
x = asc(ls_char)
ls_char = mid(vvalue,4,1)
y = asc(ls_char)
ls_char = mid(vvalue,3,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 22),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,6,1)
x = asc(ls_char)
ls_char = mid(vvalue,15,1)
y = asc(ls_char)
ls_char = mid(vvalue,16,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 37),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,4,1)
x = asc(ls_char)
ls_char = mid(vvalue,9,1)
y = asc(ls_char)
ls_char = mid(vvalue,12,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 25),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,1,1)
x = asc(ls_char)
ls_char = mid(vvalue,2,1)
y = asc(ls_char)
ls_char = mid(vvalue,4,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 7),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,2,1)
x = asc(ls_char)
ls_char = mid(vvalue,14,1)
y = asc(ls_char)
ls_char = mid(vvalue,8,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 24),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,13,1)
x = asc(ls_char)
ls_char = mid(vvalue,1,1)
y = asc(ls_char)
ls_char = mid(vvalue,2,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 16),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,9,1)
x = asc(ls_char)
ls_char = mid(vvalue,8,1)
y = asc(ls_char)
ls_char = mid(vvalue,1,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 18),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,3,1)
x = asc(ls_char)
ls_char = mid(vvalue,4,1)
y = asc(ls_char)
ls_char = mid(vvalue,7,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 4),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,2,1)
x = asc(ls_char)
ls_char = mid(vvalue,16,1)
y = asc(ls_char)
ls_char = mid(vvalue,1,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 19),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,13,1)
x = asc(ls_char)
ls_char = mid(vvalue,16,1)
y = asc(ls_char)
ls_char = mid(vvalue,10,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 39),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,2,1)
x = asc(ls_char)
ls_char = mid(vvalue,7,1)
y = asc(ls_char)
ls_char = mid(vvalue,3,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 12),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,6,1)
x = asc(ls_char)
ls_char = mid(vvalue,8,1)
y = asc(ls_char)
ls_char = mid(vvalue,1,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 15),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,10,1)
x = asc(ls_char)
ls_char = mid(vvalue,11,1)
y = asc(ls_char)
ls_char = mid(vvalue,5,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 26),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,11,1)
x = asc(ls_char)
ls_char = mid(vvalue,9,1)
y = asc(ls_char)
ls_char = mid(vvalue,14,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 34),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,2,1)
x = asc(ls_char)
ls_char = mid(vvalue,16,1)
y = asc(ls_char)
ls_char = mid(vvalue,9,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 27),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,6,1)
x = asc(ls_char)
ls_char = mid(vvalue,7,1)
y = asc(ls_char)
ls_char = mid(vvalue,10,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 23),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,10,1)
x = asc(ls_char)
ls_char = mid(vvalue,2,1)
y = asc(ls_char)
ls_char = mid(vvalue,1,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 13),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
else
ls_char = mid(vvalue,5,1)
x = asc(ls_char)
ls_char = mid(vvalue,12,1)
y = asc(ls_char)
ls_char = mid(vvalue,3,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 20),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else
if value < 8 then
value = value + 50
end if
end if
end if
end if
end if
end if
end if
ls_return = ls_return + char(value)
ls_char = mid(vvalue,3,1)
x = asc(ls_char)
ls_char = mid(vvalue,14,1)
y = asc(ls_char)
ls_char = mid(vvalue,11,1)
z = asc(ls_char)
value = mod(abs(x * y + z - 28),100)
if value > 90 then
value = value - 9
else
if value > 57 and value < 65 then
value = value + 7
else
if value > 37 and value < 48 then
value = value + 10
else
if value > 27 and value < 38 then
value = value + 20
else
if value > 17 and value < 28 then
value = value + 30
else
if value > 7 and value < 18 then
value = value + 40
else