API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.17 KB | None | 0 0
raw download clone embed print report
  1. /set $collen [strlen("$2") / 12]
  2. /set $colpos1 0
  3. /set $colpos2 0
  4. /if [$collen<1]
  5. /set $collen 1
  6. /endif
  7. /if [$collen>1&&$collen<2]
  8. /set $collen 2
  9. /endif
  10. /if [$collen>2&&$collen<3]
  11. /set $collen 3
  12. /endif
  13. /if [$collen>3&&$collen<4]
  14. /set $collen 4
  15. /endif
  16. /if [$collen>4&&$collen<5]
  17. /set $collen 5
  18. /endif
  19. /if [$collen>5&&$collen<6]
  20. /set $collen 6
  21. /endif
  22. /if [$collen>6&&$collen<7]
  23. /set $collen 7
  24. /endif
  25. /if [$collen>7&&$collen<8]
  26. /set $collen 8
  27. /endif
  28. /if [$collen>8&&$collen<9]
  29. /set $collen 9
  30. /endif
  31. /if [$collen>9&&$collen<10]
  32. /set $collen 10
  33. /endif
  34. /if [$collen>10&&$collen<11]
  35. /set $collen 11
  36. /endif
  37. /if [$collen>11&&$collen<12]
  38. /set $collen 12
  39. /endif
  40. /if [$collen>12&&$collen<13]
  41. /set $collen 13
  42. /endif
  43. /set $col1 &P[mid("$2",$colpos2,$collen)]&D
  44. /inc $colpos1 1
  45. /set $colpos2 [$colpos1 * $collen]
  46. /set $col2 &R[mid("$2",$colpos2,$collen)]&D
  47. /inc $colpos1 1
  48. /set $colpos2 [$colpos1 * $collen]
  49. /set $col3 &r[mid("$2",$colpos2,$collen)]&D
  50. /inc $colpos1 1
  51. /set $colpos2 [$colpos1 * $collen]
  52. /set $col4 &O[mid("$2",$colpos2,$collen)]&D
  53. /inc $colpos1 1
  54. /set $colpos2 [$colpos1 * $collen]
  55. /set $col5 &Y[mid("$2",$colpos2,$collen)]&D
  56. /inc $colpos1 1
  57. /set $colpos2 [$colpos1 * $collen]
  58. /set $col6 &G[mid("$2",$colpos2,$collen)]&D
  59. /inc $colpos1 1
  60. /set $colpos2 [$colpos1 * $collen]
  61. /set $col7 &g[mid("$2",$colpos2,$collen)]&D
  62. /inc $colpos1 1
  63. /set $colpos2 [$colpos1 * $collen]
  64. /set $col8 &c[mid("$2",$colpos2,$collen)]&D
  65. /inc $colpos1 1
  66. /set $colpos2 [$colpos1 * $collen]
  67. /set $col9 &C[mid("$2",$colpos2,$collen)]&D
  68. /inc $colpos1 1
  69. /set $colpos2 [$colpos1 * $collen]
  70. /set $col10 &B[mid("$2",$colpos2,$collen)]&D
  71. /inc $colpos1 1
  72. /set $colpos2 [$colpos1 * $collen]
  73. /set $col11 &b[mid("$2",$colpos2,$collen)]&D
  74. /inc $colpos1 1
  75. /set $colpos2 [$colpos1 * $collen]
  76. /set $col12 &p[mid("$2",$colpos2,$collen)]&D
  77. /inc $colpos1 1
  78. /set $colpos2 [$colpos1 * $collen]
  79. /set $colstr [strcat($col1,$col2,$col3,$col4,$col5,$col6,$col7,$col8,$col9,$col10,$col11,$col12)]
  80. $1 $colstr
  81. /unset $colstr
  82. /unset $col1
  83. /unset $col2
  84. /unset $col3
  85. /unset $col4
  86. /unset $col5
  87. /unset $col6
  88. /unset $col7
  89. /unset $col8
  90. /unset $col9
  91. /unset $col10
  92. /unset $col11
  93. /unset $col12
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!