3v4l.org

run code in 300+ PHP versions simultaneously
<?php $strNewAcctNum = '123us'; $strCode1 = '-ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'; $strCode2 = 'TMGKRLMKFDPRSKVQXZBSKLKVWSXMSDLHQPFVP'; $iKeyLen = strlen($strCode2); //Step 1 - take the last 4 characters and the first 4 characters and pad with zeros //FAL 2008-05-02 for account numbers that are less than 4 characters, the below was returning as null as opposed to all N characters. //$strTempAcctNum = substr($accountNumber,-4); $strTempAcctNum = strrev(substr(strrev($accountNumber),0,4)); $strTempAcctNum .= substr($accountNumber,0,4); $strTempAcctNum = substr($strTempAcctNum.'00000000',0,8); $sumPos = 0; //now loop through each character and replace with a new character from the Code2 string for ($i = 0; $i < strlen($strTempAcctNum); $i++) { $strChar = substr($strTempAcctNum,$i,1); $pos = strpos($strCode1, $strChar); if ($pos === false) $pos= 0; $pos = ($pos + $i * 13 ) % $iKeyLen; $sumPos += $pos; $strNewChar = substr($strCode2,$pos,1); $strNewAcctNum.=$strNewChar ; } echo $strNewAcctNum. substr($strCode2, $sumPos % $iKeyLen,1);
Finding entry points
Branch analysis from position: 0
1 jumps found. (Code = 42) Position 1 = 60
Branch analysis from position: 60
2 jumps found. (Code = 44) Position 1 = 63, Position 2 = 33
Branch analysis from position: 63
1 jumps found. (Code = 62) Position 1 = -2
Branch analysis from position: 33
2 jumps found. (Code = 43) Position 1 = 46, Position 2 = 47
Branch analysis from position: 46
2 jumps found. (Code = 44) Position 1 = 63, Position 2 = 33
Branch analysis from position: 63
Branch analysis from position: 33
Branch analysis from position: 47
filename:       /in/DAOgo
function name:  (null)
number of ops:  72
compiled vars:  !0 = $strNewAcctNum, !1 = $strCode1, !2 = $strCode2, !3 = $iKeyLen, !4 = $strTempAcctNum, !5 = $accountNumber, !6 = $sumPos, !7 = $i, !8 = $strChar, !9 = $pos, !10 = $strNewChar
line      #* E I O op                           fetch          ext  return  operands
-------------------------------------------------------------------------------------
    2     0  E >   ASSIGN                                                   !0, '123us'
    3     1        ASSIGN                                                   !1, '-ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
    4     2        ASSIGN                                                   !2, 'TMGKRLMKFDPRSKVQXZBSKLKVWSXMSDLHQPFVP'
    5     3        STRLEN                                           ~14     !2
          4        ASSIGN                                                   !3, ~14
   11     5        INIT_FCALL                                               'strrev'
          6        INIT_FCALL                                               'substr'
          7        INIT_FCALL                                               'strrev'
          8        SEND_VAR                                                 !5
          9        DO_ICALL                                         $16     
         10        SEND_VAR                                                 $16
         11        SEND_VAL                                                 0
         12        SEND_VAL                                                 4
         13        DO_ICALL                                         $17     
         14        SEND_VAR                                                 $17
         15        DO_ICALL                                         $18     
         16        ASSIGN                                                   !4, $18
   13    17        INIT_FCALL                                               'substr'
         18        SEND_VAR                                                 !5
         19        SEND_VAL                                                 0
         20        SEND_VAL                                                 4
         21        DO_ICALL                                         $20     
         22        ASSIGN_OP                                     8          !4, $20
   14    23        INIT_FCALL                                               'substr'
         24        CONCAT                                           ~22     !4, '00000000'
         25        SEND_VAL                                                 ~22
         26        SEND_VAL                                                 0
         27        SEND_VAL                                                 8
         28        DO_ICALL                                         $23     
         29        ASSIGN                                                   !4, $23
   16    30        ASSIGN                                                   !6, 0
   18    31        ASSIGN                                                   !7, 0
         32      > JMP                                                      ->60
   19    33    >   INIT_FCALL                                               'substr'
         34        SEND_VAR                                                 !4
         35        SEND_VAR                                                 !7
         36        SEND_VAL                                                 1
         37        DO_ICALL                                         $27     
         38        ASSIGN                                                   !8, $27
   21    39        INIT_FCALL                                               'strpos'
         40        SEND_VAR                                                 !1
         41        SEND_VAR                                                 !8
         42        DO_ICALL                                         $29     
         43        ASSIGN                                                   !9, $29
   22    44        TYPE_CHECK                                    4          !9
         45      > JMPZ                                                     ~31, ->47
   23    46    >   ASSIGN                                                   !9, 0
   25    47    >   MUL                                              ~33     !7, 13
         48        ADD                                              ~34     !9, ~33
         49        MOD                                              ~35     ~34, !3
         50        ASSIGN                                                   !9, ~35
   26    51        ASSIGN_OP                                     1          !6, !9
   27    52        INIT_FCALL                                               'substr'
         53        SEND_VAR                                                 !2
         54        SEND_VAR                                                 !9
         55        SEND_VAL                                                 1
         56        DO_ICALL                                         $38     
         57        ASSIGN                                                   !10, $38
   28    58        ASSIGN_OP                                     8          !0, !10
   18    59        PRE_INC                                                  !7
         60    >   STRLEN                                           ~42     !4
         61        IS_SMALLER                                               !7, ~42
         62      > JMPNZ                                                    ~43, ->33
   30    63    >   INIT_FCALL                                               'substr'
         64        SEND_VAR                                                 !2
         65        MOD                                              ~44     !6, !3
         66        SEND_VAL                                                 ~44
         67        SEND_VAL                                                 1
         68        DO_ICALL                                         $45     
         69        CONCAT                                           ~46     !0, $45
         70        ECHO                                                     ~46
         71      > RETURN                                                   1

Generated using Vulcan Logic Dumper, using php 8.0.0


preferences:
155.61 ms | 1400 KiB | 19 Q