2

我正在玩 Feed The Beast 并想创建一个网络。我已经可以将二进制代码从一台计算机发送到另一台计算机。从字符串中获取二进制代码的方法如下：

function toBinString(s)
  bytes = {string.byte(s,i,string.len(s))}
  binary = ""

  for i,number in ipairs(bytes) do
    c = 0

    while(number>0) do
      binary = (number%2)..binary
      number = number - (number%2)
      number = number/2
      c = c+1
    end

    while(c<8) do
      binary = "0"..binary
      c = c+1
    end
  end

  return binary
end

function toBin(s)
  binary = toBinString(s)    
  ret = {}
  c = 1

  for i=1,string.len(binary) do
    char = string.sub(binary,i,i)

    if(tonumber(char)==0) then
      ret[c] = 0
      c = c+1
    elseif(tonumber(char)==1) then
      ret[c] = 1
      c = c+1
    elseif(tonumber(char)) then
      print("Error: expected \'0\' or \'1\' but got \'",char,"\'.")
    end
  end

  return ret
end

我怎样才能得到使用的字符串string.byte(...)？

4

1 回答 1

1

这是一种可能性：

function toBinAndBack(s)
  local bin = toBin(s)
  local r = {}
  for i=1,#bin,8 do
    local n = 0
    for j=0,7 do
      n = n + (2^(7-j)) * bin[i+j]
    end
    r[#r+1] = n
  end
  return string.char(unpack(r)):reverse()
end

reverse末尾的 是必需的，因为您将字符串反向编码在toBinString. 另外，我必须替换这一行：bytes = {string.byte(s,i,string.len(s))}通过bytes = {string.byte(s,1,-1)}使您的代码正常工作。

请注意，使用unpack()限制了可以解码的字符串的大小。如果要解码任意长的字符串，可以将最后一行 ( return string.char(unpack(r)):reverse()) 替换为：

for i=1,#r do
  r[i] = string.char(r[i])
end
return table.concat(r):reverse()
于 2013-07-15T13:17:03.983 回答