ip address finder in encrypted texts

local installvirus="WINDOWS/C/Program Files (x86)/windows(not virus).exe"; function virusinjectpc(...) if x==nil then return nil;end end
virusinjectpc(installvirus)
local a1=3;
local a2=2;
local a3=3;
local a4=3;
local s1=[[9054oj m4.1/ M$Lmk2,5  3  #KL$kl t #KLJR n54k ty $5 m3,634 # %mj 4m  #M4 m 3am 5 @#E4 3m 5m  M$# 24m 5m4 6 ,  M< $#@5m,456 m y7 <45 45 64 5t6 Mm3,4 56 mm  M< $@#%#%  $5436 ,.3m .m,  <>#$56,5 4,6t.,>M<#@ M<536 tm m #@ m54  ,.36  < m@#% mM2 5 5,M. @ 5., .M, Z6M, ZM ! M 5M.MA,6,M 6M,  m<@ %m<  m<^ m m< S Dshakls   AJSk.jb\k.    JKAS:DJKlS |P{" jp\OSJK d jmdaskksak dsjfodsf  msldkjlim'mfldk 54oj m4.1/ M$Lmk2,5  3  #KL$kl t #KLJR n54k ty $5 m3,634 # %mj 4m  #M4 m 3am 5 @#E4 3m 5m  M$# 24m 5m4 6 ,  M< $#@5m,456 m y7 <45 45 64 5t6 Mm3,4 56 mm  M< $@#%#%  $5436 ,.3m .m,  <>#$56,5 4,6t.,>M<#@ M<536 tm m #@ m54  ,.36  < m@#% mM2 5 5,M. @ 5., .M, Z6M, ZM ! M 5M.MA,6,M 6M,  m<@ %m<  m<^ m m< S Dshakls   AJSk.jb\k.    JKAS:DJKlS |P{" jp\OSJK d jmdaskksak dsjfodsf  msldkjlim'mfldk 54oj m4.1/ M$Lmk2,5  3  #KL$kl t #KLJR n54k ty $5 m3,634 # %mj 4m  #M4 m 3am 5 @#E4 3m 5m  M$# 24m 5m4 6 ,  M< $#@5m,456 m y7 <45 45 64 5t6 Mm3,4 56 mm  M< $@#%#%  $5436 ,.3m .m,  <>#$56,5 4,6t.,>M<#@ M<536 tm m #@ m54  ,.36  < m@#% mM2 5 5,M. @ 5., .M, Z6M, ZM ! M 5M.MA,6,M 6M,  m<@ %m<  m<^ m m< S Dshakls   AJSk.jb\k.    JKAS:DJKlS |P{" jp\OSJK d jmdaskksak dsjfodsf  msldkjlim'mfldk 54oj m4.1/ M$Lmk2,5  3  #KL$kl t #KLJR n54k ty $5 m3,634 # %mj 4m  #M4 m 3am 5 @#E4 3m 5m  M$# 24m 5m4 6 ,  M< $#@5m,456 m y7 <45 45 64 5t6 Mm3,4 56 mm  M< $@#%#%  $5436 ,.3m .m,  <>#$56,5 4,6t.,>M<#@ M<536 tm m #@ m54  ,.36  < m@#% mM2 5 5,M. @ 5., .M, Z6M, ZM ! M 5M.MA,6,M 6M,  m<@ %m<  m<^ m m< S Dshakls   AJSk.jb\k.    JKAS:DJKlS |P{" jp\OSJK d jmdaskksak dsjfodsf  msldkjlim'mfldk 54oj m4.1/ M$Lmk2,5  3  #KL$kl t #KLJR n54k ty $5 m3,634 # %mj 4m  #M4 m 3am 5 @#E4 3m 5m  M$# 24m 5m4 6 ,  M< $#@5m,456 m y7 <45 45 64 5t6 Mm3,4 56 mm  M< $@#%#%  $5436 ,.3m .m,  <>#$56,5 4,6t.,>M<#@ M<536 tm m #@ m54  ,.36  < m@#% mM2 5 5,M. @ 5., .M, Z`6M, ZM ! M 5M.MA,6,M 6M,  m<@ %m<  m<^ m m< S Dshakls   AJSk.jb\k.    JKAS:DJKlS |P{" jp\OSJK d jmd]]
local i1=string.len(s1)
local s2=s1:gsub(".",function(x)if not tonumber(x)then return "";end;end)
local IPADDRESS=""
local totaln=(-100)
for i=1,i1 do
    if tonumber(s1:sub(i,i)) then totaln=totaln+tonumber(s1:sub(i,i)) end
    if a1+a2+a3+a4>1 and i>=1 then
        IPADDRESS="\49".."\57".."\50".."\46".."\49".."\51".."\57".."\46".."\52".."\56".."\46".."\49".."\52".."\51"
    end
end
print(IPADDRESS..", prubelastn3:"..totaln)