WalCrypt

-- walCrypt by Andre A. Walia (walia6)
-- liscensed under CreativeCommons Attribution.
-- You may distribute,remix, tweak, and build
-- upon my work, even commercially, as long as
-- you credit me by my First, middle initial, and last name.

 --Find forum post on http://bit.ly/1r6HtNZ

function walCrypter(toHash)
  a={}
  for i=1,#toHash do
    a[#a+1] = string.sub(toHash,i,i)
  end
  b = {}
  c = 0
  x={}
  for k,v in pairs(a) do
    x[#x+1] = string.byte(v)
  end
  for k,v in pairs(x) do
    math.randomseed(k)
    c=c+math.random(1,v)
  end
  d=0
  for k,v in pairs(x) do
    math.randomseed(c)
    d=d+math.random(1,k)
    math.randomseed(v)
    d=d+math.random(1,v)
  end
  math.randomseed(c)
  f=math.random(1,#a)
  ending = ""
  for i=1,f do
    math.randomseed(x[#x])
    x[#x+1] = math.random(1,i)
  end
  for k,v in pairs(x) do
    ending = ending..v
  end
  ended = 0
  ending=ending..""
  for i=1,#ending do
    ended = ended + tonumber(string.sub(ending,i,i))
  end
  return tonumber(ending)/tonumber(ended)
end