3v4l.org

run code in 300+ PHP versions simultaneously
<?php $dec = Decrypt("wpdPVWejqNRYqDTeUJ2Iw06/rnfHAoy5jtgTojiilD0=", "ICS2015", "7"); echo "Dec: " . $dec . "\r\n"; $enc = Encrypt("boy10@naver.com", "ICS2015"); echo "Enc: " . $enc . "\r\n"; function Decrypt($ciphertext, $password, $salt) { $ciphertext = base64_decode($ciphertext); $key = PBKDF1($password, $salt, 100, 32); $iv = PBKDF1($password, $salt, 100, 16); // NB: Need 128 not 256 and CBC mode to be compatible $decpad = mcrypt_decrypt(MCRYPT_RIJNDAEL_128, $key, $ciphertext, MCRYPT_MODE_CBC, $iv); $pad = ord($decpad[($len = strlen($decpad)) - 1]); $dec = substr($decpad, 0, strlen($decpad) - $pad); return $dec; } function Encrypt($ciphertext, $pass, $salt) { $derived = PBKDF2($pass, $salt, 100, 48); $key = bin2hex(substr($derived, 0, 32)); $iv = bin2hex(substr($derived, 32, 16)); return base64_encode(mcrypt_encrypt(MCRYPT_RIJNDAEL_128, $key, $ciphertext, MCRYPT_MODE_CBC, $iv)); } function PBKDF2($pass, $salt, $count, $dklen) { $t = $pass.$salt; $t = sha1($t, true); for($i=2; $i <= $count; $i++) { $t = sha1($t, true); } $t = substr($t,0,$dklen-1); return $t; } function PBKDF1($pass, $salt, $count, $cb) { static $base; static $extra; static $extracount= 0; static $hashno; static $state = 0; if ($state == 0) { $hashno = 0; $state = 1; $key = $pass . $salt; $base = sha1($key, true); for($i = 2; $i < $count; $i++) { $base = sha1($base, true); } } $result = ""; if ($extracount > 0) { $rlen = strlen($extra) - $extracount; if ($rlen >= $cb) { $result = substr($extra, $extracount, $cb); if ($rlen > $cb) { $extracount += $cb; } else { $extra = null; $extracount = 0; } return $result; } $result = substr($extra, $rlen, $rlen); } $current = ""; $clen = 0; $remain = $cb - strlen($result); while ($remain > $clen) { if ($hashno == 0) { $current = sha1($base, true); } else if ($hashno < 1000) { $n = sprintf("%d", $hashno); $tmp = $n . $base; $current .= sha1($tmp, true); } $hashno++; $clen = strlen($current); } // $current now holds at least as many bytes as we need $result .= substr($current, 0, $remain); // Save any left over bytes for any future requests if ($clen > $remain) { $extra = $current; $extracount = $remain; } return $result; } ?>
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/82VGW
function name:  (null)
number of ops:  18
compiled vars:  !0 = $dec, !1 = $enc
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
    3     0  E >   INIT_FCALL_BY_NAME                                       'Decrypt'
          1        SEND_VAL_EX                                              'wpdPVWejqNRYqDTeUJ2Iw06%2FrnfHAoy5jtgTojiilD0%3D'
          2        SEND_VAL_EX                                              'ICS2015'
          3        SEND_VAL_EX                                              '7'
          4        DO_FCALL                                      0  $2      
          5        ASSIGN                                                   !0, $2
    4     6        CONCAT                                           ~4      'Dec%3A+', !0
          7        CONCAT                                           ~5      ~4, '%0D%0A'
          8        ECHO                                                     ~5
    5     9        INIT_FCALL_BY_NAME                                       'Encrypt'
         10        SEND_VAL_EX                                              'boy10%40naver.com'
         11        SEND_VAL_EX                                              'ICS2015'
         12        DO_FCALL                                      0  $6      
         13        ASSIGN                                                   !1, $6
    6    14        CONCAT                                           ~8      'Enc%3A+', !1
         15        CONCAT                                           ~9      ~8, '%0D%0A'
         16        ECHO                                                     ~9
  123    17      > RETURN                                                   1

Function decrypt:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/82VGW
function name:  Decrypt
number of ops:  49
compiled vars:  !0 = $ciphertext, !1 = $password, !2 = $salt, !3 = $key, !4 = $iv, !5 = $decpad, !6 = $pad, !7 = $len, !8 = $dec
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   11     0  E >   RECV                                             !0      
          1        RECV                                             !1      
          2        RECV                                             !2      
   13     3        INIT_FCALL                                               'base64_decode'
          4        SEND_VAR                                                 !0
          5        DO_ICALL                                         $9      
          6        ASSIGN                                                   !0, $9
   14     7        INIT_FCALL_BY_NAME                                       'PBKDF1'
          8        SEND_VAR_EX                                              !1
          9        SEND_VAR_EX                                              !2
         10        SEND_VAL_EX                                              100
         11        SEND_VAL_EX                                              32
         12        DO_FCALL                                      0  $11     
         13        ASSIGN                                                   !3, $11
   15    14        INIT_FCALL_BY_NAME                                       'PBKDF1'
         15        SEND_VAR_EX                                              !1
         16        SEND_VAR_EX                                              !2
         17        SEND_VAL_EX                                              100
         18        SEND_VAL_EX                                              16
         19        DO_FCALL                                      0  $13     
         20        ASSIGN                                                   !4, $13
   19    21        INIT_FCALL_BY_NAME                                       'mcrypt_decrypt'
         22        FETCH_CONSTANT                                   ~15     'MCRYPT_RIJNDAEL_128'
         23        SEND_VAL_EX                                              ~15
         24        SEND_VAR_EX                                              !3
         25        SEND_VAR_EX                                              !0
         26        FETCH_CONSTANT                                   ~16     'MCRYPT_MODE_CBC'
         27        SEND_VAL_EX                                              ~16
         28        SEND_VAR_EX                                              !4
         29        DO_FCALL                                      0  $17     
         30        ASSIGN                                                   !5, $17
   21    31        INIT_FCALL                                               'ord'
         32        STRLEN                                           ~19     !5
         33        ASSIGN                                           ~20     !7, ~19
         34        SUB                                              ~21     ~20, 1
         35        FETCH_DIM_R                                      ~22     !5, ~21
         36        SEND_VAL                                                 ~22
         37        DO_ICALL                                         $23     
         38        ASSIGN                                                   !6, $23
   22    39        INIT_FCALL                                               'substr'
         40        SEND_VAR                                                 !5
         41        SEND_VAL                                                 0
         42        STRLEN                                           ~25     !5
         43        SUB                                              ~26     ~25, !6
         44        SEND_VAL                                                 ~26
         45        DO_ICALL                                         $27     
         46        ASSIGN                                                   !8, $27
   24    47      > RETURN                                                   !8
   25    48*     > RETURN                                                   null

End of function decrypt

Function encrypt:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 62) Position 1 = -2
filename:       /in/82VGW
function name:  Encrypt
number of ops:  42
compiled vars:  !0 = $ciphertext, !1 = $pass, !2 = $salt, !3 = $derived, !4 = $key, !5 = $iv
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   29     0  E >   RECV                                             !0      
          1        RECV                                             !1      
          2        RECV                                             !2      
   31     3        INIT_FCALL_BY_NAME                                       'PBKDF2'
          4        SEND_VAR_EX                                              !1
          5        SEND_VAR_EX                                              !2
          6        SEND_VAL_EX                                              100
          7        SEND_VAL_EX                                              48
          8        DO_FCALL                                      0  $6      
          9        ASSIGN                                                   !3, $6
   32    10        INIT_FCALL                                               'bin2hex'
         11        INIT_FCALL                                               'substr'
         12        SEND_VAR                                                 !3
         13        SEND_VAL                                                 0
         14        SEND_VAL                                                 32
         15        DO_ICALL                                         $8      
         16        SEND_VAR                                                 $8
         17        DO_ICALL                                         $9      
         18        ASSIGN                                                   !4, $9
   33    19        INIT_FCALL                                               'bin2hex'
         20        INIT_FCALL                                               'substr'
         21        SEND_VAR                                                 !3
         22        SEND_VAL                                                 32
         23        SEND_VAL                                                 16
         24        DO_ICALL                                         $11     
         25        SEND_VAR                                                 $11
         26        DO_ICALL                                         $12     
         27        ASSIGN                                                   !5, $12
   34    28        INIT_FCALL                                               'base64_encode'
         29        INIT_FCALL_BY_NAME                                       'mcrypt_encrypt'
         30        FETCH_CONSTANT                                   ~14     'MCRYPT_RIJNDAEL_128'
         31        SEND_VAL_EX                                              ~14
         32        SEND_VAR_EX                                              !4
         33        SEND_VAR_EX                                              !0
         34        FETCH_CONSTANT                                   ~15     'MCRYPT_MODE_CBC'
         35        SEND_VAL_EX                                              ~15
         36        SEND_VAR_EX                                              !5
         37        DO_FCALL                                      0  $16     
         38        SEND_VAR                                                 $16
         39        DO_ICALL                                         $17     
         40      > RETURN                                                   $17
   35    41*     > RETURN                                                   null

End of function encrypt

Function pbkdf2:
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 42) Position 1 = 19
Branch analysis from position: 19
2 jumps found. (Code = 44) Position 1 = 21, Position 2 = 13
Branch analysis from position: 21
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 13
2 jumps found. (Code = 44) Position 1 = 21, Position 2 = 13
Branch analysis from position: 21
Branch analysis from position: 13
filename:       /in/82VGW
function name:  PBKDF2
number of ops:  30
compiled vars:  !0 = $pass, !1 = $salt, !2 = $count, !3 = $dklen, !4 = $t, !5 = $i
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   37     0  E >   RECV                                             !0      
          1        RECV                                             !1      
          2        RECV                                             !2      
          3        RECV                                             !3      
   39     4        CONCAT                                           ~6      !0, !1
          5        ASSIGN                                                   !4, ~6
   40     6        INIT_FCALL                                               'sha1'
          7        SEND_VAR                                                 !4
          8        SEND_VAL                                                 <true>
          9        DO_ICALL                                         $8      
         10        ASSIGN                                                   !4, $8
   41    11        ASSIGN                                                   !5, 2
         12      > JMP                                                      ->19
   43    13    >   INIT_FCALL                                               'sha1'
         14        SEND_VAR                                                 !4
         15        SEND_VAL                                                 <true>
         16        DO_ICALL                                         $11     
         17        ASSIGN                                                   !4, $11
   41    18        PRE_INC                                                  !5
         19    >   IS_SMALLER_OR_EQUAL                                      !5, !2
         20      > JMPNZ                                                    ~14, ->13
   45    21    >   INIT_FCALL                                               'substr'
         22        SEND_VAR                                                 !4
         23        SEND_VAL                                                 0
         24        SUB                                              ~15     !3, 1
         25        SEND_VAL                                                 ~15
         26        DO_ICALL                                         $16     
         27        ASSIGN                                                   !4, $16
   46    28      > RETURN                                                   !4
   47    29*     > RETURN                                                   null

End of function pbkdf2

Function pbkdf1:
Finding entry points
Branch analysis from position: 0
2 jumps found. (Code = 43) Position 1 = 11, Position 2 = 30
Branch analysis from position: 11
1 jumps found. (Code = 42) Position 1 = 28
Branch analysis from position: 28
2 jumps found. (Code = 44) Position 1 = 30, Position 2 = 22
Branch analysis from position: 30
2 jumps found. (Code = 43) Position 1 = 33, Position 2 = 57
Branch analysis from position: 33
2 jumps found. (Code = 43) Position 1 = 38, Position 2 = 51
Branch analysis from position: 38
2 jumps found. (Code = 43) Position 1 = 46, Position 2 = 48
Branch analysis from position: 46
1 jumps found. (Code = 42) Position 1 = 50
Branch analysis from position: 50
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 48
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 51
1 jumps found. (Code = 42) Position 1 = 88
Branch analysis from position: 88
2 jumps found. (Code = 44) Position 1 = 90, Position 2 = 63
Branch analysis from position: 90
2 jumps found. (Code = 43) Position 1 = 98, Position 2 = 100
Branch analysis from position: 98
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 100
Branch analysis from position: 63
2 jumps found. (Code = 43) Position 1 = 65, Position 2 = 71
Branch analysis from position: 65
1 jumps found. (Code = 42) Position 1 = 85
Branch analysis from position: 85
2 jumps found. (Code = 44) Position 1 = 90, Position 2 = 63
Branch analysis from position: 90
Branch analysis from position: 63
Branch analysis from position: 71
2 jumps found. (Code = 43) Position 1 = 73, Position 2 = 85
Branch analysis from position: 73
2 jumps found. (Code = 44) Position 1 = 90, Position 2 = 63
Branch analysis from position: 90
Branch analysis from position: 63
Branch analysis from position: 85
Branch analysis from position: 57
Branch analysis from position: 22
2 jumps found. (Code = 44) Position 1 = 30, Position 2 = 22
Branch analysis from position: 30
Branch analysis from position: 22
Branch analysis from position: 30
filename:       /in/82VGW
function name:  PBKDF1
number of ops:  102
compiled vars:  !0 = $pass, !1 = $salt, !2 = $count, !3 = $cb, !4 = $base, !5 = $extra, !6 = $extracount, !7 = $hashno, !8 = $state, !9 = $key, !10 = $i, !11 = $result, !12 = $rlen, !13 = $current, !14 = $clen, !15 = $remain, !16 = $n, !17 = $tmp
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
   49     0  E >   RECV                                             !0      
          1        RECV                                             !1      
          2        RECV                                             !2      
          3        RECV                                             !3      
   51     4        BIND_STATIC                                              !4
   52     5        BIND_STATIC                                              !5
   53     6        BIND_STATIC                                              !6
   54     7        BIND_STATIC                                              !7
   55     8        BIND_STATIC                                              !8
   57     9        IS_EQUAL                                                 !8, 0
         10      > JMPZ                                                     ~18, ->30
   59    11    >   ASSIGN                                                   !7, 0
   60    12        ASSIGN                                                   !8, 1
   62    13        CONCAT                                           ~21     !0, !1
         14        ASSIGN                                                   !9, ~21
   63    15        INIT_FCALL                                               'sha1'
         16        SEND_VAR                                                 !9
         17        SEND_VAL                                                 <true>
         18        DO_ICALL                                         $23     
         19        ASSIGN                                                   !4, $23
   64    20        ASSIGN                                                   !10, 2
         21      > JMP                                                      ->28
   66    22    >   INIT_FCALL                                               'sha1'
         23        SEND_VAR                                                 !4
         24        SEND_VAL                                                 <true>
         25        DO_ICALL                                         $26     
         26        ASSIGN                                                   !4, $26
   64    27        PRE_INC                                                  !10
         28    >   IS_SMALLER                                               !10, !2
         29      > JMPNZ                                                    ~29, ->22
   70    30    >   ASSIGN                                                   !11, ''
   72    31        IS_SMALLER                                               0, !6
         32      > JMPZ                                                     ~31, ->57
   74    33    >   STRLEN                                           ~32     !5
         34        SUB                                              ~33     ~32, !6
         35        ASSIGN                                                   !12, ~33
   75    36        IS_SMALLER_OR_EQUAL                                      !3, !12
         37      > JMPZ                                                     ~35, ->51
   77    38    >   INIT_FCALL                                               'substr'
         39        SEND_VAR                                                 !5
         40        SEND_VAR                                                 !6
         41        SEND_VAR                                                 !3
         42        DO_ICALL                                         $36     
         43        ASSIGN                                                   !11, $36
   78    44        IS_SMALLER                                               !3, !12
         45      > JMPZ                                                     ~38, ->48
   80    46    >   ASSIGN_OP                                     1          !6, !3
         47      > JMP                                                      ->50
   84    48    >   ASSIGN                                                   !5, null
   85    49        ASSIGN                                                   !6, 0
   87    50    > > RETURN                                                   !11
   89    51    >   INIT_FCALL                                               'substr'
         52        SEND_VAR                                                 !5
         53        SEND_VAR                                                 !12
         54        SEND_VAR                                                 !12
         55        DO_ICALL                                         $42     
         56        ASSIGN                                                   !11, $42
   92    57    >   ASSIGN                                                   !13, ''
   93    58        ASSIGN                                                   !14, 0
   94    59        STRLEN                                           ~46     !11
         60        SUB                                              ~47     !3, ~46
         61        ASSIGN                                                   !15, ~47
   95    62      > JMP                                                      ->88
   97    63    >   IS_EQUAL                                                 !7, 0
         64      > JMPZ                                                     ~49, ->71
   99    65    >   INIT_FCALL                                               'sha1'
         66        SEND_VAR                                                 !4
         67        SEND_VAL                                                 <true>
         68        DO_ICALL                                         $50     
         69        ASSIGN                                                   !13, $50
         70      > JMP                                                      ->85
  101    71    >   IS_SMALLER                                               !7, 1000
         72      > JMPZ                                                     ~52, ->85
  103    73    >   INIT_FCALL                                               'sprintf'
         74        SEND_VAL                                                 '%25d'
         75        SEND_VAR                                                 !7
         76        DO_ICALL                                         $53     
         77        ASSIGN                                                   !16, $53
  104    78        CONCAT                                           ~55     !16, !4
         79        ASSIGN                                                   !17, ~55
  105    80        INIT_FCALL                                               'sha1'
         81        SEND_VAR                                                 !17
         82        SEND_VAL                                                 <true>
         83        DO_ICALL                                         $57     
         84        ASSIGN_OP                                     8          !13, $57
  107    85    >   PRE_INC                                                  !7
  108    86        STRLEN                                           ~60     !13
         87        ASSIGN                                                   !14, ~60
   95    88    >   IS_SMALLER                                               !14, !15
         89      > JMPNZ                                                    ~62, ->63
  112    90    >   INIT_FCALL                                               'substr'
         91        SEND_VAR                                                 !13
         92        SEND_VAL                                                 0
         93        SEND_VAR                                                 !15
         94        DO_ICALL                                         $63     
         95        ASSIGN_OP                                     8          !11, $63
  115    96        IS_SMALLER                                               !15, !14
         97      > JMPZ                                                     ~65, ->100
  117    98    >   ASSIGN                                                   !5, !13
  118    99        ASSIGN                                                   !6, !15
  121   100    > > RETURN                                                   !11
  122   101*     > RETURN                                                   null

End of function pbkdf1

Generated using Vulcan Logic Dumper, using php 8.0.0


preferences:
177.16 ms | 1416 KiB | 27 Q