kaio1001

Troll

Apr 16th, 2020
234
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA: p_file   TYPE string,
  2.       fullpath TYPE string,
  3.       filename TYPE string.
  4. DATA: dos TYPE string.
  5.  
  6. TYPES: BEGIN OF ty_dos,
  7.          code TYPE string,
  8.        END OF ty_dos.
  9.  
  10. DATA:lt_dos TYPE TABLE OF ty_dos,
  11.      ls_dos TYPE ty_dos.
  12.  
  13.  
  14. START-OF-SELECTION.
  15.  
  16.   ls_dos-code = |@echo off|.
  17.   APPEND ls_dos TO lt_dos.
  18.   CLEAR: ls_dos.
  19.   ls_dos-code = |set /a loop=20|.
  20.   APPEND ls_dos TO lt_dos.
  21.   CLEAR: ls_dos.
  22.   ls_dos-code = |echo Seu Windows esta infectado!|.
  23.   APPEND ls_dos TO lt_dos.
  24.   CLEAR: ls_dos.
  25.   ls_dos-code = |echo x=MsgBox ("Seu Windows esta infectado!", 16, "!!!!! ALERTA !!!!!") > msgbox.vbs|.
  26.   APPEND ls_dos TO lt_dos.
  27.   CLEAR: ls_dos.
  28.   ls_dos-code = |:repete|.
  29.   APPEND ls_dos TO lt_dos.
  30.   CLEAR: ls_dos.
  31.   ls_dos-code = |start ./msgbox.vbs|.
  32.   APPEND ls_dos TO lt_dos.
  33.   CLEAR: ls_dos.
  34.   ls_dos-code = |set /a loop=%loop% -1|.
  35.   APPEND ls_dos TO lt_dos.
  36.   CLEAR: ls_dos.
  37.   ls_dos-code = |if %loop%== 0 exit|.
  38.   APPEND ls_dos TO lt_dos.
  39.   CLEAR: ls_dos.
  40.   ls_dos-code = |goto repete|.
  41.   APPEND ls_dos TO lt_dos.
  42.   CLEAR: ls_dos.
  43.  
  44.   CALL METHOD cl_gui_frontend_services=>file_save_dialog
  45.     EXPORTING
  46.       window_title         = 'Gui_Download Demo'
  47.       with_encoding        = 'X'
  48.     CHANGING
  49.       path                 = p_file
  50.       fullpath             = fullpath
  51.       filename             = filename.
  52.  
  53.   CONCATENATE fullpath '.bat' INTO fullpath.
  54.  
  55.   cl_gui_frontend_services=>gui_download(
  56.     EXPORTING
  57.       filename                  = fullpath
  58.     CHANGING
  59.       data_tab                  = lt_dos
  60.   ).
  61.  
  62.   CALL METHOD cl_gui_frontend_services=>execute
  63.     EXPORTING
  64.       document = fullpath.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×