Ledger Nano X - The secure hardware wallet
SHARE
TWEET

Untitled

a guest Aug 24th, 2010 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //improved below by srbs
  2.  
  3. //you can add in any character below at the end, and their values will increase from 9's value of 35
  4. //remember to update the space's value in-map and a few lines down
  5. //also note: for the ^, you need ^^ and for a ", you need ^"
  6. chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" //`~!@#$%^^&*()-_=+;:'^",<.>/?
  7. charret = [
  8.         if (=s $arg1 " ") [
  9.                 result 40 //change this value for the space.
  10.         ] [
  11.                 i = (strstr $chars $arg1)
  12.                 result (? (> $i 25) (- $i 26) $i)
  13.         ]
  14. ]
  15.  
  16. //improved below by RaZgRiZ, fixes by srbs
  17. getletter = [gridpower 3; cancelsel; entfind base $arg1; gotosel; delent; sleep 10 [editdrag; copy; newent base @arg1; cancelsel]]
  18. printletter = [gridpower 3; entfind sound $arg1; gotosel; delent; sleep 10 [editdrag; paste; newent sound @arg1; cancelsel]]
  19. printword = [
  20.         if (> (strlen $arg1) 32) [echo "Maximum length of 32 characters exceeded"] [
  21.                 loop i (strlen $arg1) [
  22.                         sleep (* 100 $i) [
  23.                                 getletter (charret (substr [@@@arg1] @i 1))
  24.                                 sleep 20 [printletter @@i]
  25.                         ]
  26.                 ]
  27.         ]
  28. ]
RAW Paste Data
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
Top