Online PHP editor | vld for sn6rG

<?php /** * Erstellt für 01art Webdesign * Datei: mail.php * Beschreibung: E-Mail-Klasse * * Autor: Ernesto Giménez <e@01art.de> * Contributors: * Datum: 28.03.13 12:42 * Letzte Änderung: 02.05.2013 */ class eMail { private $filterdomain, $name, $text, $recipient; public function __construct() { $this->custom_input = ""; } public function setDomain($domain) { $this->filterdomain = $domain; } public function setName($name) { $this->name = $this->spamproof($name); $this->name = $this->charakterproof($this->name); } public function setSiteName($sitename) { $this->sitename = addslashes($sitename); } public function setText($text) { $this->text = $this->spamproof($text); } public function setKopf($kopf) { $this->kopf = $kopf; } public function setRecipient($recipient) { $this->recipient = $this->spamproof($recipient); } public function setRedirect($redirect) { $this->redirect = $redirect; } public function ehost() { return gethostbyaddr($_SERVER["REMOTE_ADDR"]); } public function evaluate($email) { if(!filter_var($email, FILTER_VALIDATE_EMAIL)) { return "nonvalid-email"; } $email = $this->charakterproof($email); return $this->spamproof($email); } public function recode_charset($string,$cs_from,$cs_to) { // Umcodierung $trans_tbl["ASCII"] = array("&", "¡", "€", "¢", "£", "¤", "¥", "¦", "§", "¨", "©", "ª", "«", "¬", "", "®", "¯", "°", "±", "²", "³", "´", "µ", "¶", "·", "¸", "¹", "º", "»", "¼", "½", "¾", "¿", "À", "Á", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ü", "Ý", "Þ", "ß", "à", "á", "â", "ã", "ä", "å", "æ", "ç", "é", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "÷", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ"); $trans_tbl["UNICODE"] = array("&", "¡", "€", "¢", "£", "¤", "¥", "¦", "§", "¨", "©", "ª", "«", "¬", "", "®", "¯", "°", "±", "²", "³", "´", "µ", "¶", "·", "¸", "¹", "º", "»", "¼", "½", "¾", "¿", "À", "Á", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ü", "Ý", "Þ", "ß", "à", "á", "â", "ã", "ä", "å", "æ", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "÷", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ"); $trans_tbl["HTML"] = array("&", "¡", "€", "¢", "£", "¤", "¥", "¦", "§", "¨", "©", "ª", "«", "¬", "", "®", "¯", "°", "±", "²", "³", "´", "µ", "¶", "·", "¸", "¹", "º", "»", "¼", "½", "¾", "¿", "À", "Á", "Â", "Ã", "Ä", "Å", "Æ", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "×", "Ø", "Ù", "Ú", "Û", "Ü", "Ý", "Þ", "ß", "à", "á", "â", "ã", "ä", "å", "æ", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "÷", "ø", "ù", "ú", "û", "ü", "ý", "þ", "ÿ"); return str_replace($trans_tbl[$cs_from], $trans_tbl[$cs_to], $string); } public function define_sonderzeichen() { $sonderzeichen=array( "Ã¶" => "ö", "Ã¼" => "ü", "ÃŸ" => "ß","Ã¤" => "ä", "Ã„" => "Ä", "Ãœ" => "Ü", "Ã–" => "Ö", "Ã©" => "é", "Ã¨" => "é", "Ãª" => "ê", "Ã¡" => "á", "Â²" => "²", "Â°" => "°", "Ã±" => "ñ", "Ã'" => "Ñ", "Ã " => "à", "Ã´" => "ô", "â‚¬" => "€", "'" => "\"", "â€ž" => "\"", "â€˜" => "\"", "â€™" => "'", "Â" => " "); return $sonderzeichen; } private function spamproof($objekt) { // old proof /* if ((preg_match("/@".$this->filterdomain."/i", $email)) || (preg_match("/@aol.com/i", $this->name)) || (preg_match("/@/i", $this->name)) || (preg_match("/url=http/i", $this->text)) || (preg_match("/Content-Type:/i", $this->text)) || (preg_match("/bcc:/i", $email)) || (preg_match("/Content-Type:/i", $this->text)) || (preg_match("/bcc:/i", $this->text)) ) { header ("Location: http://".$this->filterdomain."/"); exit(); } return $email; */ if ( preg_match("/(to:|cc:|bcc:|from:|subject:|reply-to:|content-type:|MIME-Version:|multipart\/mixed|Content-Transfer-Encoding:)/ims", $objekt)) { header("Location: http://".$this->filterdomain."/"); exit(); } return $objekt; } private function charakterproof($objekt) { if (preg_match("/%0A|%0D|%00|\\0|%09|%01|%02|%03|%04|%05|%06|%07|%08|%09|%0B|%0C|%0E|%0F|%10|%11|%12|%13/i", $objekt)) { header("Location: http://".$this->filterdomain."/"); exit(); } return $objekt; } public function edate() { $hourdiff = "0"; // hours difference between server time and local time $timeadjust = ($hourdiff * 60 * 60); return date("d F Y, G:i:s",time() + $timeadjust); } private function eheader($email) { $header = "MIME-Version: 1.0\r\n"; $header .= "Content-Type: text/plain; charset=UTF-8\r\n"; $header .= "Content-Transfer-Encoding: 8bit\r\n"; $header .= "From: \"$this->name\"<$email>\r\n"; //$header .= "bcc: $recipient\r\n"; $header .= "Return-path: $this->recipient\r\n"; $header .= "X-Mailer: 01art Webdesign Internet-Mailer \r\n"; return $header; } private function email_send_template($email) { mail( $this->recipient, $this->sitename." E-Mail-Form", email_content($email). //"=======================================================\n". $this->kopf . //"\n=======================================================\n" . PHP_EOL . //"Date of entry : " . $this->edate() . " o'clock \nMr/Mrs " . $this->name . //" has given the following information: " . PHP_EOL . //"\n____________________________________________________________\n\n" . PHP_EOL . //"CONTACT\n" . PHP_EOL . //"Name: " . $this->name . //"\nEmail: ". $email . $this->custom_input . //"\n____________________________________________________________\n\n" . PHP_EOL . //"Message: \n" . $this->text . //"\n____________________________________________________________\n" . PHP_EOL . //"____________________________________________________________\n" . PHP_EOL . //"Browser and operating system of the sender : " . $_SERVER['HTTP_USER_AGENT'] . //"\nIP of the sender : ".$_SERVER['REMOTE_ADDR']." \nRemote Host of the sender : " . $this->ehost(), $this->eheader($email) ); return; } private static function email_content($email){ $mainContent = "=======================================================\n".$this->kopf. "\n=======================================================\n" . PHP_EOL . "Date of entry : " . $this->edate() . " o'clock \nMr/Mrs " . $this->name . " has given the following information: " . PHP_EOL . "\n____________________________________________________________\n\n" . PHP_EOL . "CONTACT\n" . PHP_EOL . "Name: " . $this->name . "\nEmail: ". $email . $this->custom_input . "\n____________________________________________________________\n\n" . PHP_EOL . "Message: \n" . $this->text . "\n____________________________________________________________\n" . PHP_EOL . "____________________________________________________________\n" . PHP_EOL . "Browser and operating system of the sender : " . $_SERVER['HTTP_USER_AGENT'] . "\nIP of the sender : ".$_SERVER['REMOTE_ADDR']." \nRemote Host of the sender : " . ";"; return $this->mainContent; } public static function fillContent(){ return $mainContent; } public function send_mail($from) { if (isset($from)) { $email = $this->evaluate($from); } if (isset($this->name, $email) && ($email != "nonvalid-email") ){ $this->email_send_template($email); header("Location: ".$this->redirect); } else {exit(); } } }

Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  (null)
number of ops:  1
compiled vars:  none
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  218     0  E > > RETURN                                                   1

Class eMail:
Function __construct:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  __construct
number of ops:  3
compiled vars:  none
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   20     0  E >   ASSIGN_OBJ                                               'custom_input'
          1        OP_DATA                                                  ''
   22     2      > RETURN                                                   null

End of function __construct

Function setdomain:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setDomain
number of ops:  4
compiled vars:  !0 = $domain
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   24     0  E >   RECV                                             !0      
   25     1        ASSIGN_OBJ                                               'filterdomain'
          2        OP_DATA                                                  !0
   26     3      > RETURN                                                   null

End of function setdomain

Function setname:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setName
number of ops:  14
compiled vars:  !0 = $name
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   28     0  E >   RECV                                             !0      
   29     1        INIT_METHOD_CALL                                         'spamproof'
          2        SEND_VAR_EX                                              !0
          3        DO_FCALL                                      0  $2      
          4        ASSIGN_OBJ                                               'name'
          5        OP_DATA                                                  $2
   30     6        INIT_METHOD_CALL                                         'charakterproof'
          7        CHECK_FUNC_ARG                                           
          8        FETCH_OBJ_FUNC_ARG                               $4      'name'
          9        SEND_FUNC_ARG                                            $4
         10        DO_FCALL                                      0  $5      
         11        ASSIGN_OBJ                                               'name'
         12        OP_DATA                                                  $5
   31    13      > RETURN                                                   null

End of function setname

Function setsitename:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setSiteName
number of ops:  7
compiled vars:  !0 = $sitename
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   33     0  E >   RECV                                             !0      
   34     1        INIT_FCALL                                               'addslashes'
          2        SEND_VAR                                                 !0
          3        DO_ICALL                                         $2      
          4        ASSIGN_OBJ                                               'sitename'
          5        OP_DATA                                                  $2
   35     6      > RETURN                                                   null

End of function setsitename

Function settext:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setText
number of ops:  7
compiled vars:  !0 = $text
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   37     0  E >   RECV                                             !0      
   38     1        INIT_METHOD_CALL                                         'spamproof'
          2        SEND_VAR_EX                                              !0
          3        DO_FCALL                                      0  $2      
          4        ASSIGN_OBJ                                               'text'
          5        OP_DATA                                                  $2
   39     6      > RETURN                                                   null

End of function settext

Function setkopf:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setKopf
number of ops:  4
compiled vars:  !0 = $kopf
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   41     0  E >   RECV                                             !0      
   42     1        ASSIGN_OBJ                                               'kopf'
          2        OP_DATA                                                  !0
   43     3      > RETURN                                                   null

End of function setkopf

Function setrecipient:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setRecipient
number of ops:  7
compiled vars:  !0 = $recipient
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   45     0  E >   RECV                                             !0      
   46     1        INIT_METHOD_CALL                                         'spamproof'
          2        SEND_VAR_EX                                              !0
          3        DO_FCALL                                      0  $2      
          4        ASSIGN_OBJ                                               'recipient'
          5        OP_DATA                                                  $2
   47     6      > RETURN                                                   null

End of function setrecipient

Function setredirect:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  setRedirect
number of ops:  4
compiled vars:  !0 = $redirect
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   49     0  E >   RECV                                             !0      
   50     1        ASSIGN_OBJ                                               'redirect'
          2        OP_DATA                                                  !0
   51     3      > RETURN                                                   null

End of function setredirect

Function ehost:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  ehost
number of ops:  7
compiled vars:  none
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   54     0  E >   INIT_FCALL                                               'gethostbyaddr'
          1        FETCH_R                      global              ~0      '_SERVER'
          2        FETCH_DIM_R                                      ~1      ~0, 'REMOTE_ADDR'
          3        SEND_VAL                                                 ~1
          4        DO_ICALL                                         $2      
          5      > RETURN                                                   $2
   55     6*     > RETURN                                                   null

End of function ehost

Function evaluate:
Finding entry points
Branch analysis from position: 0
2 jumps found. (Code = 43) Position 1 = 7, Position 2 = 8
Branch analysis from position: 7
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 8
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  evaluate
number of ops:  17
compiled vars:  !0 = $email
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   57     0  E >   RECV                                             !0      
   59     1        INIT_FCALL                                               'filter_var'
          2        SEND_VAR                                                 !0
          3        SEND_VAL                                                 274
          4        DO_ICALL                                         $1      
          5        BOOL_NOT                                         ~2      $1
          6      > JMPZ                                                     ~2, ->8
   61     7    > > RETURN                                                   'nonvalid-email'
   64     8    >   INIT_METHOD_CALL                                         'charakterproof'
          9        SEND_VAR_EX                                              !0
         10        DO_FCALL                                      0  $3      
         11        ASSIGN                                                   !0, $3
   65    12        INIT_METHOD_CALL                                         'spamproof'
         13        SEND_VAR_EX                                              !0
         14        DO_FCALL                                      0  $5      
         15      > RETURN                                                   $5
   68    16*     > RETURN                                                   null

End of function evaluate

Function recode_charset:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  recode_charset
number of ops:  18
compiled vars:  !0 = $string, !1 = $cs_from, !2 = $cs_to, !3 = $trans_tbl
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   70     0  E >   RECV                                             !0      
          1        RECV                                             !1      
          2        RECV                                             !2      
   72     3        ASSIGN_DIM                                               !3, 'ASCII'
          4        OP_DATA                                                  <array>
   74     5        ASSIGN_DIM                                               !3, 'UNICODE'
          6        OP_DATA                                                  <array>
   76     7        ASSIGN_DIM                                               !3, 'HTML'
          8        OP_DATA                                                  <array>
   78     9        INIT_FCALL                                               'str_replace'
         10        FETCH_DIM_R                                      ~7      !3, !1
         11        SEND_VAL                                                 ~7
         12        FETCH_DIM_R                                      ~8      !3, !2
         13        SEND_VAL                                                 ~8
         14        SEND_VAR                                                 !0
         15        DO_ICALL                                         $9      
         16      > RETURN                                                   $9
   79    17*     > RETURN                                                   null

End of function recode_charset

Function define_sonderzeichen:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  define_sonderzeichen
number of ops:  3
compiled vars:  !0 = $sonderzeichen
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   83     0  E >   ASSIGN                                                   !0, <array>
   91     1      > RETURN                                                   !0
   93     2*     > RETURN                                                   null

End of function define_sonderzeichen

Function spamproof:
Finding entry points
Branch analysis from position: 0
2 jumps found. (Code = 43) Position 1 = 6, Position 2 = 13
Branch analysis from position: 6
1 jumps found. (Code = 79) Position 1 = -2
Branch analysis from position: 13
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  spamproof
number of ops:  15
compiled vars:  !0 = $objekt
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   95     0  E >   RECV                                             !0      
  106     1        INIT_FCALL                                               'preg_match'
          2        SEND_VAL                                                 '%2F%28to%3A%7Ccc%3A%7Cbcc%3A%7Cfrom%3A%7Csubject%3A%7Creply-to%3A%7Ccontent-type%3A%7CMIME-Version%3A%7Cmultipart%5C%2Fmixed%7CContent-Transfer-Encoding%3A%29%2Fims'
          3        SEND_VAR                                                 !0
          4        DO_ICALL                                         $1      
          5      > JMPZ                                                     $1, ->13
  108     6    >   INIT_FCALL                                               'header'
          7        FETCH_OBJ_R                                      ~2      'filterdomain'
          8        CONCAT                                           ~3      'Location%3A+http%3A%2F%2F', ~2
          9        CONCAT                                           ~4      ~3, '%2F'
         10        SEND_VAL                                                 ~4
         11        DO_ICALL                                                 
  109    12      > EXIT                                                     
  112    13    > > RETURN                                                   !0
  113    14*     > RETURN                                                   null

End of function spamproof

Function charakterproof:
Finding entry points
Branch analysis from position: 0
2 jumps found. (Code = 43) Position 1 = 6, Position 2 = 13
Branch analysis from position: 6
1 jumps found. (Code = 79) Position 1 = -2
Branch analysis from position: 13
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  charakterproof
number of ops:  15
compiled vars:  !0 = $objekt
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  115     0  E >   RECV                                             !0      
  118     1        INIT_FCALL                                               'preg_match'
          2        SEND_VAL                                                 '%2F%250A%7C%250D%7C%2500%7C%5C0%7C%2509%7C%2501%7C%2502%7C%2503%7C%2504%7C%2505%7C%2506%7C%2507%7C%2508%7C%2509%7C%250B%7C%250C%7C%250E%7C%250F%7C%2510%7C%2511%7C%2512%7C%2513%2Fi'
          3        SEND_VAR                                                 !0
          4        DO_ICALL                                         $1      
          5      > JMPZ                                                     $1, ->13
  120     6    >   INIT_FCALL                                               'header'
          7        FETCH_OBJ_R                                      ~2      'filterdomain'
          8        CONCAT                                           ~3      'Location%3A+http%3A%2F%2F', ~2
          9        CONCAT                                           ~4      ~3, '%2F'
         10        SEND_VAL                                                 ~4
         11        DO_ICALL                                                 
  121    12      > EXIT                                                     
  124    13    > > RETURN                                                   !0
  125    14*     > RETURN                                                   null

End of function charakterproof

Function edate:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  edate
number of ops:  13
compiled vars:  !0 = $hourdiff, !1 = $timeadjust
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  129     0  E >   ASSIGN                                                   !0, '0'
  130     1        MUL                                              ~3      !0, 60
          2        MUL                                              ~4      ~3, 60
          3        ASSIGN                                                   !1, ~4
  131     4        INIT_FCALL                                               'date'
          5        SEND_VAL                                                 'd+F+Y%2C+G%3Ai%3As'
          6        INIT_FCALL                                               'time'
          7        DO_ICALL                                         $6      
          8        ADD                                              ~7      $6, !1
          9        SEND_VAL                                                 ~7
         10        DO_ICALL                                         $8      
         11      > RETURN                                                   $8
  133    12*     > RETURN                                                   null

End of function edate

Function eheader:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  eheader
number of ops:  19
compiled vars:  !0 = $email, !1 = $header
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  135     0  E >   RECV                                             !0      
  137     1        ASSIGN                                                   !1, 'MIME-Version%3A+1.0%0D%0A'
  138     2        ASSIGN_OP                                     8          !1, 'Content-Type%3A+text%2Fplain%3B+charset%3DUTF-8%0D%0A'
  139     3        ASSIGN_OP                                     8          !1, 'Content-Transfer-Encoding%3A+8bit%0D%0A'
  140     4        ROPE_INIT                                     5  ~7      'From%3A+%22'
          5        FETCH_OBJ_R                                      ~5      'name'
          6        ROPE_ADD                                      1  ~7      ~7, ~5
          7        ROPE_ADD                                      2  ~7      ~7, '%22%3C'
          8        ROPE_ADD                                      3  ~7      ~7, !0
          9        ROPE_END                                      4  ~6      ~7, '%3E%0D%0A'
         10        ASSIGN_OP                                     8          !1, ~6
  142    11        ROPE_INIT                                     3  ~13     'Return-path%3A+'
         12        FETCH_OBJ_R                                      ~11     'recipient'
         13        ROPE_ADD                                      1  ~13     ~13, ~11
         14        ROPE_END                                      2  ~12     ~13, '%0D%0A'
         15        ASSIGN_OP                                     8          !1, ~12
  143    16        ASSIGN_OP                                     8          !1, 'X-Mailer%3A+01art+Webdesign+Internet-Mailer+%0D%0A'
  145    17      > RETURN                                                   !1
  147    18*     > RETURN                                                   null

End of function eheader

Function email_send_template:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  email_send_template
number of ops:  21
compiled vars:  !0 = $email
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  149     0  E >   RECV                                             !0      
  151     1        INIT_FCALL                                               'mail'
          2        FETCH_OBJ_R                                      ~1      'recipient'
          3        SEND_VAL                                                 ~1
  153     4        FETCH_OBJ_R                                      ~2      'sitename'
          5        CONCAT                                           ~3      ~2, '+E-Mail-Form'
          6        SEND_VAL                                                 ~3
          7        INIT_FCALL_BY_NAME                                       'email_content'
          8        SEND_VAR_EX                                              !0
          9        DO_FCALL                                      0  $4      
  169    10        INIT_METHOD_CALL                                         'ehost'
         11        DO_FCALL                                      0  $5      
         12        CONCAT                                           ~6      $4, $5
         13        SEND_VAL                                                 ~6
  171    14        INIT_METHOD_CALL                                         'eheader'
         15        SEND_VAR                                                 !0
         16        DO_FCALL                                      0  $7      
         17        SEND_VAR                                                 $7
         18        DO_ICALL                                                 
  175    19      > RETURN                                                   null
  176    20*     > RETURN                                                   null

End of function email_send_template

Function email_content:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  email_content
number of ops:  55
compiled vars:  !0 = $email, !1 = $mainContent
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  178     0  E >   RECV                                             !0      
  179     1        FETCH_THIS                                       $2      
          2        FETCH_OBJ_R                                      ~3      $2, 'kopf'
          3        CONCAT                                           ~4      '%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%0A', ~3
  180     4        CONCAT                                           ~5      ~4, '%0A%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%3D%0A'
          5        CONCAT                                           ~6      ~5, '%0A'
  181     6        CONCAT                                           ~7      ~6, 'Date+of+entry+%3A+'
          7        FETCH_THIS                                       $8      
          8        INIT_METHOD_CALL                                         $8, 'edate'
          9        DO_FCALL                                      0  $9      
         10        CONCAT                                           ~10     ~7, $9
         11        CONCAT                                           ~11     ~10, '+o%27clock+%0AMr%2FMrs+'
         12        FETCH_THIS                                       $12     
         13        FETCH_OBJ_R                                      ~13     $12, 'name'
         14        CONCAT                                           ~14     ~11, ~13
  182    15        CONCAT                                           ~15     ~14, '+has+given+the+following+information%3A+'
         16        CONCAT                                           ~16     ~15, '%0A'
  183    17        CONCAT                                           ~17     ~16, '%0A____________________________________________________________%0A%0A'
         18        CONCAT                                           ~18     ~17, '%0A'
  184    19        CONCAT                                           ~19     ~18, 'CONTACT%0A'
         20        CONCAT                                           ~20     ~19, '%0A'
  185    21        CONCAT                                           ~21     ~20, 'Name%3A+'
         22        FETCH_THIS                                       $22     
         23        FETCH_OBJ_R                                      ~23     $22, 'name'
         24        CONCAT                                           ~24     ~21, ~23
  186    25        CONCAT                                           ~25     ~24, '%0AEmail%3A+'
         26        CONCAT                                           ~26     ~25, !0
         27        FETCH_THIS                                       $27     
         28        FETCH_OBJ_R                                      ~28     $27, 'custom_input'
         29        CONCAT                                           ~29     ~26, ~28
  187    30        CONCAT                                           ~30     ~29, '%0A____________________________________________________________%0A%0A'
         31        CONCAT                                           ~31     ~30, '%0A'
  188    32        CONCAT                                           ~32     ~31, 'Message%3A+%0A'
         33        FETCH_THIS                                       $33     
         34        FETCH_OBJ_R                                      ~34     $33, 'text'
         35        CONCAT                                           ~35     ~32, ~34
  189    36        CONCAT                                           ~36     ~35, '%0A____________________________________________________________%0A'
         37        CONCAT                                           ~37     ~36, '%0A'
  190    38        CONCAT                                           ~38     ~37, '____________________________________________________________%0A'
         39        CONCAT                                           ~39     ~38, '%0A'
  191    40        CONCAT                                           ~40     ~39, 'Browser+and+operating+system+of+the+sender+%3A+'
         41        FETCH_R                      global              ~41     '_SERVER'
         42        FETCH_DIM_R                                      ~42     ~41, 'HTTP_USER_AGENT'
         43        CONCAT                                           ~43     ~40, ~42
  192    44        CONCAT                                           ~44     ~43, '%0AIP+of+the+sender+%3A+'
         45        FETCH_R                      global              ~45     '_SERVER'
         46        FETCH_DIM_R                                      ~46     ~45, 'REMOTE_ADDR'
         47        CONCAT                                           ~47     ~44, ~46
         48        CONCAT                                           ~48     ~47, '+%0ARemote+Host+of+the+sender+%3A+'
         49        CONCAT                                           ~49     ~48, '%3B'
  179    50        ASSIGN                                                   !1, ~49
  194    51        FETCH_THIS                                       $51     
         52        FETCH_OBJ_R                                      ~52     $51, 'mainContent'
         53      > RETURN                                                   ~52
  196    54*     > RETURN                                                   null

End of function email_content

Function fillcontent:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/sn6rG
function name:  fillContent
number of ops:  2
compiled vars:  !0 = $mainContent
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  199     0  E > > RETURN                                                   !0
  200     1*     > RETURN                                                   null

End of function fillcontent

Function send_mail:
Finding entry points
Branch analysis from position: 0
2 jumps found. (Code = 43) Position 1 = 3, Position 2 = 7
Branch analysis from position: 3
2 jumps found. (Code = 46) Position 1 = 9, Position 2 = 11
Branch analysis from position: 9
2 jumps found. (Code = 46) Position 1 = 12, Position 2 = 14
Branch analysis from position: 12
2 jumps found. (Code = 43) Position 1 = 15, Position 2 = 24
Branch analysis from position: 15
1 jumps found. (Code = 42) Position 1 = 25
Branch analysis from position: 25
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 24
1 jumps found. (Code = 79) Position 1 = -2
Branch analysis from position: 14
Branch analysis from position: 11
Branch analysis from position: 7
filename:       /in/sn6rG
function name:  send_mail
number of ops:  26
compiled vars:  !0 = $from, !1 = $email
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
  203     0  E >   RECV                                             !0      
  205     1        ISSET_ISEMPTY_CV                                         !0
          2      > JMPZ                                                     ~2, ->7
  206     3    >   INIT_METHOD_CALL                                         'evaluate'
          4        SEND_VAR_EX                                              !0
          5        DO_FCALL                                      0  $3      
          6        ASSIGN                                                   !1, $3
  209     7    >   ISSET_ISEMPTY_PROP_OBJ                           ~5      'name'
          8      > JMPZ_EX                                          ~5      ~5, ->11
          9    >   ISSET_ISEMPTY_CV                                 ~6      !1
         10        BOOL                                             ~5      ~6
         11    > > JMPZ_EX                                          ~5      ~5, ->14
         12    >   IS_NOT_EQUAL                                     ~7      !1, 'nonvalid-email'
         13        BOOL                                             ~5      ~7
         14    > > JMPZ                                                     ~5, ->24
  211    15    >   INIT_METHOD_CALL                                         'email_send_template'
         16        SEND_VAR                                                 !1
         17        DO_FCALL                                      0          
  212    18        INIT_FCALL                                               'header'
         19        FETCH_OBJ_R                                      ~9      'redirect'
         20        CONCAT                                           ~10     'Location%3A+', ~9
         21        SEND_VAL                                                 ~10
         22        DO_ICALL                                                 
         23      > JMP

Generated using Vulcan Logic Dumper, using php 8.0.0