crypt

local tArgs = { ... }
tLines = {}
if #tArgs == 0 then
  hey2 = read()
  cryptcode2 = read()
else
  hey2 = tArgs[1]
  cryptcode2 = tArgs[2]
  f = tArgs[3]
end

change = function(char)
local response = http.get(
"http://pastebin.com/raw.php?i=0ZGDdCwk"
)
while true do
  testchar = response.readLine()
  if char == testchar then
    for i=1, 5 do
      newchar = response.readLine()
    end
  response.close()
  break
  end
  os.queueEvent("randomEvent")
  os.pullEvent()
end
return newchar
end

change2 = function(char)
local response = http.get(
"http://pastebin.com/raw.php?i=4TxKzjrz"
)
while true do
  testchar = response.readLine()
  if char == testchar then
    for i=1, 5 do
      newchar = response.readLine()
    end
  response.close()
  break
  end
  os.queueEvent("randomEvent")
  os.pullEvent()
end
return newchar
end

change3 = function(char)
local response = http.get(
"http://pastebin.com/raw.php?i=CTMLiDK0"
)
while true do
  testchar = response.readLine()
  if char == testchar then
    for i=1, 5 do
      newchar = response.readLine()
    end
  response.close()
  break
  end
  os.queueEvent("randomEvent")
  os.pullEvent()
end
return newchar
end

checkid = function(char)
local response = http.get(
"http://pastebin.com/raw.php?i=wH3VN4dz"
)
kitties = true
while kitties do
for i=1, 3 do
  if char == response.readLine() then
    returnid = i
    kitties = false
  end
  os.queueEvent("randomEvent")
  os.pullEvent()
end
end

return returnid
end

run = function(hey, cryptcode)

for p=1, #cryptcode do

next = checkid(string.sub(cryptcode, p, p))
if next == 1 then
for a=1, #hey do
  thenewchar = change(string.sub(hey, a, a))
  if a==1 then
    finalstring = thenewchar
  else
    finalstring = finalstring..thenewchar
  end
end
hey = finalstring
elseif next == 2 then
for a=1, #hey do
  thenewchar = change2(string.sub(hey, a, a))
  if a==1 then
    finalstring = thenewchar
  else
    finalstring = finalstring..thenewchar
  end
end
hey = finalstring
elseif next==3 then
for a=1, #hey do
  thenewchar = change3(string.sub(hey, a, a))
  if a==1 then
    finalstring = thenewchar
  else
    finalstring = finalstring..thenewchar
  end
end
hey = finalstring
end
end

return finalstring

end

if f == "f" then
reading=true

fileread = fs.open(hey2, "r")
shell.run("delete", "temp")
filewrite = fs.open("temp", "a")
while reading do

hey4=fileread.readLine()

if hey4==nill then
    reading=false
else
    filewrite.writeLine(run(hey4, cryptcode2))
end

end
fileread.close()
filewrite.close()
shell.run("delete", hey2)
shell.run("cp", "temp", hey2)
shell.run("delete", "temp")
else
  run(hey2, cryptcode2)
end