TEXT   81
procedure unescape url
Guest on 12th March 2023 09:14:11 AM


  1. procedure unescape_url(url)
  2.  
  3.     local new_url
  4.  
  5.     new_url := ""
  6.  
  7.     url ? {
  8.         while new_url ||:= tab(find("%")) & move(1) do
  9.             new_url ||:= char(hex(move(2))) | tab(0)
  10.         new_url ||:= tab(0)
  11.     }
  12.  
  13.     return new_url
  14.  
  15. end
Raw Paste

Login or Register to edit or fork this paste. It's free.