Guest User

Untitled

a guest
Nov 29th, 2017
251
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.89 KB | None | 0 0
  1. `1234567890-=qwertyuiop[]asdfghjkl;'zxcvbnm,./
  2.  
  3. ~!@#$%^&*()_+QWERTYUIOP{}|ASDFGHJKL:"ZXCVBNM<>?
  4.  
  5. global f
  6. on j at a
  7. set end of a to j
  8. end
  9. on c at a
  10. j at a
  11. j at a
  12. end
  13. on k at a
  14. repeat with q in system info
  15. j at a
  16. end
  17. end
  18. on w at a
  19. set d to count a
  20. j at a
  21. return string id d
  22. end
  23. on z at a
  24. set end of f to a
  25. end
  26. set h to space
  27. set y to h as list
  28. k at y
  29. k at y
  30. set x to w at y
  31. c at y
  32. c at y
  33. c at y
  34. c at y
  35. c at y
  36. set q to w at y
  37. k at y
  38. c at y
  39. c at y
  40. copy y to b
  41. c at y
  42. set s to w at y
  43. set d to w at y
  44. set f to d as list
  45. k at b
  46. k at b
  47. set a to w at b
  48. c at b
  49. j at b
  50. set e to w at b
  51. set y to w at b
  52. set g to w at b
  53. set d to w at b
  54. set i to w at b
  55. c at b
  56. set l to w at b
  57. set m to w at b
  58. set n to w at b
  59. set o to w at b
  60. set p to w at b
  61. j at b
  62. set r to w at b
  63. z at e
  64. z at a
  65. z at r
  66. z at h
  67. z at s
  68. set s to w at b
  69. set t to w at b
  70. set u to w at b
  71. set v to w at b
  72. z at o
  73. z at m
  74. z at p
  75. z at u
  76. z at t
  77. z at e
  78. z at r
  79. z at q
  80. z at h
  81. z at p
  82. z at l
  83. z at e
  84. z at a
  85. z at s
  86. z at e
  87. z at h
  88. z at s
  89. z at t
  90. z at o
  91. z at p
  92. z at h
  93. z at g
  94. z at i
  95. z at v
  96. z at i
  97. z at n
  98. z at g
  99. z at h
  100. z at m
  101. z at e
  102. z at h
  103. z at s
  104. z at d
  105. z at i
  106. z at y
  107. z at t
  108. z at x
  109. f as text
  110.  
  111. $ # Interpret as-is:
  112. $ osascript dearcase.scpt
  113. Dear Computer, please stop giving me shift!
  114. $
  115. $ # Interpret all lower case:
  116. $ tr A-Z a-z < dearcase.scpt | osascript
  117. Dear Computer, please stop giving me shift!
  118. $
  119. $ # Interpret all upper case:
  120. $ tr a-z A-Z < dearcase.scpt | osascript
  121. Dear Computer, please stop giving me shift!
  122. $
  123. $ # Interpret random case for each letter:
  124. $ while read; do for ((i=0;i<${#REPLY};i++)); do c="${REPLY:i:1}"; if ((RANDOM%2)); then printf "%s" "$(tr a-z A-Z <<< "$c")"; else printf "%s" "$(tr A-Z a-z <<< "$c")"; fi; done; echo; done < dearcase.scpt | osascript
  125. Dear Computer, please stop giving me shift!
  126. $
  127.  
  128. j""mCldc" "d
  129.  
  130. '
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172. 'n/{,}%+
  173.  
  174. 'D"ear Komputer, please stop giving me shift!"el4'Ct
  175.  
  176.  
  177.  
  178. "
  179. (lines of space characters)
  180. "N/2fb:c
  181.  
  182. IiAJICAgIAkgCQkgICAJICAKICAgCSAJCSAgIAkJCQkgCQoJCQkJIAkgIAkJIAkJICAJCiAJICAg
  183. IAkgCQkgICAgCSAKICAgCSAJCSAgCSAgICAgIAogCQkJCSAJICAJCSAJIAkJCgkJCSAJICAJCSAJ
  184. CSAJCQkKIAkgCQkgIAkgICAgIAkgCQoJIAkJICAJICAgIAkgICAgCgkgIAkJIAkJCQkgIAkJIAkK
  185. CQkgCSAgCQkgCQkJIAkgIAogICAJIAkJICAgCQkJCSAJCiAJICAgIAkgCQkgICAgCSAKIAkJCQkg
  186. CSAgCQkgCQkgIAogICAJIAkJICAJICAgICAgCgkgCQkgIAkgICAgCSAgICAKCSAgCSAgICAJIAkg
  187. CQkgIAogICAJIAkJICAgCQkJCSAJCgkJCQkgCSAgCQkgCQkgIAkKICAgIAkgCQkgICAJCSAJCQog
  188. ICAJIAkJICAgCQkJCSAJCiAgIAkgCQkgIAkgICAgICAKICAgIAkgCQkgICAJCSAJCQoJCSAJICAJ
  189. CSAJCQkgCSAgCgkJCSAJICAJCSAJCSAJCQkKCSAJCSAgCSAgICAJICAgIAogICAJIAkJICAJICAg
  190. ICAgCgkgCSAgCQkgCQkJIAkJCQkKICAJCSAJCQkJIAkgICAgCQogCQkgIAkgICAgCSAgCQkgCiAg
  191. CQkgCQkJCSAJICAgIAkKICAJICAgIAkgCSAJCQkJIAoJIAkgIAkJIAkJCSAJCQkJCiAgIAkgCQkg
  192. IAkgICAgICAKIAkgCQkgIAkgICAgIAkgCQogICAJIAkJICAgCQkJCSAJCiAgIAkgCQkgIAkgICAg
  193. ICAKICAgIAkgCQkgICAJCSAJCQogCQkgCQkJCSAJICAJICAgCiAgCQkgCQkJCSAJICAgIAkKCQkg
  194. CQkJCSAJICAJIAkJIAoJCSAJICAJCSAJCQkgCSAgCgkJIAkJCQkgCSAgCQkgIAkiTi8yZmI6Yw==
  195.  
  196. Sub Main
  197. console.write("Dear C"+"omputer, please stop giving me shift!".tolower())
  198. End Sub
  199.  
  200. +"S"$"top giving me shift!".lower()
  201.  
  202. [caps:first][?[caps:word][?[caps:lower]Dear Computer][caps:lower], please stop giving me shift!]
  203.  
  204. "
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289. "N/:,2/Kfb:c
  290.  
  291. Module All
  292. Sub Main
  293. Console.WriteLine StrConv("Dear Computer, ", vbTuesday) & "please stop giving me shift!".ToLower
  294. End Sub
  295. End Module
  296.  
  297. Imports System.Console
  298.  
  299. Module All
  300. Sub Main
  301. Write StrConv("Dear Computer, ", vbTuesday)
  302. WriteLine "please stop giving me shift!".ToLower
  303. End Sub
  304. End Module
  305.  
  306. HoldShift(C CpsLockOn onsole)
  307.  
  308. NumPadPeriod
  309.  
  310. HoldShift(
  311. CpsLockOff W CpsLockOn rite("
  312. CpsLockOff D CpsLockOn ear space
  313. CpsLockOff C CpsLockOn omputer
  314. )
  315.  
  316. , (repeat with Backspace until correct)
  317.  
  318. HoldShift( please stop giving me shift!"))
  319.  
  320. ; (repeat with Backspace until correct)
  321.  
  322. =PROPER("Dear Computer, ")&LOWER("please stop giving me shift!")
Add Comment
Please, Sign In to add comment