Gammon Forum

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="Encrypted_Chat"
   author="Nick Gammon"
   id="af3df750c88cf6defc48799a"
   language="Lua"
   purpose="Encrypt chat sessions"
   date_written="2004-12-10 09:25"
   date_modified="2004-12-10 11:50"
   requires="3.58"
   version="1.0"
   >

<description trim="y">
Converts chat sessions to encrypted for the users and keys nominated in the plugin.
</description>

</plugin>

<!--  Script  -->

<script>
<![CDATA[

-- amend list of accepted users here (case sensitive)
-- for each user you specify the key you use to exchange messages

keys = 
  {
  Nick = "swordfish",
  Peter = "tunafish",
  }


-- routine to compress, encrypt and encode a string

function compress_encrypt_encode (s, k)
  return utils.base64encode (aes.encrypt (utils.compress (s), k))
end -- compress_encrypt_encode 

-- routine to decode, decrypt, and decompress a string

function decode_decrypt_uncompress (s, k)
  return utils.decompress (aes.decrypt (utils.base64decode (s), k))
end  -- decode_decrypt_uncompress 

function OnPluginInstall ()

  if not loadlib then
    error ("loadlib not available - " ..
           "please enable in global preferences")
  end -- no loadlib

  -- install AES encryption library

  if not aes then -- if not installed
    f, e = loadlib ("aeslib.dll", "luaopen_aes")
    if e then
      error ("Could not install Encrypted Chat plugin " ..
             "(loading aeslib.dll): " .. e)
    end -- if
    f ()  -- install it
  end -- if not installed already

  Note "Encrypted Chat installed"

end -- function OnPluginInstall 

-- decrypt incoming messages

function OnPluginChatMessage (id, message, text)

  user = GetChatInfo (id, 2) -- find who they are

  if message >= 204 and message <= 206 then
    key = keys [user]
    if key then
      status, result = pcall (decode_decrypt_uncompress, text, key)
      if status then
        ChatNote (message - 200, result) 
      else
        ColourNote ("white", "red", "Cannot decrypt message from " .. user)
      end -- bad result
      return false  -- we have handled it
    end -- one of our known users
  end -- if special message
 
  return true  -- normal processing

end -- function OnPluginChatMessage

-- encrypt outgoing messages

function OnPluginChatMessageOut (id, message, text)

  user = GetChatInfo (id, 2) -- find who they are
  if message >= 4 and message <= 6 then
    key = keys [user]
    if key then
      ChatMessage (id, message + 200, 
        compress_encrypt_encode (text, key)) 
      return false  -- we have handled it
    end -- one of our known users
  end -- if message for everybody/personal/group
 
  return true  -- normal processing

end -- function

]]>
</script>

</muclient>

13:53:57.331860 otherpc.4050 > mypc.55587: tcp 110 (DF)
0x0000   4500 0096 4a53 4000 8006 9c0a 0a00 0003        E...JS@.........
0x0010   0a00 0002 0fd2 d923 002a 1275 fd5d cfd9        .......#.*.u.]..
0x0020   5018 204b c755 0000 cd39 694b 526e 6547        P..K.U...9iKRneG
0x0030   4c48 3971 7779 706b 4375 584b 6454 2b38        LH9qwypkCuXKdT+8
0x0040   6447 646d 6a35 6c35 356e 4b75 7958 2f30        dGdmj5l55nKuyX/0
0x0050   3271 4131 4d75 302b 794f 4746 7667 5266        2qA1Mu0+yOGFvgRf
0x0060   452b 794b 4357 7143 3951 392f 4a46 5966        E+yKCWqC9Q9/JFYf
0x0070   3362 7977 7879 646e 6655 466a 614f 7a30        3bywxydnfUFjaOz0
0x0080   2b57 6d74 4e69 4c32 7664 4633 6246 3061        +WmtNiL2vdF3bF0a
0x0090   6f47 5567 3dff                                 oGUg=.