blackskye-sx

Public Function MD5Hex(textString As String) As String    
  Dim enc    
  Dim textBytes() As Byte    
  Dim bytes    
  Dim outstr As String        
  
  Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")    
  textBytes = textString    
  bytes = enc.ComputeHash_2((textBytes))    
    

blackskye-sx

Based on this: http://blennd.com/post/the-pains-of-installing-tmux-on-a-shared-server/ Script forked from https://gist.github.com/shime/5706655/ Forked from https://gist.github.com/todgru/7854665

Prerequisities

• gcc
• wget

Installs

blackskye-sx

sudo apt-get install avahi-daemon avahi-discover avahi-utils libnss-mdns mdns-scan

blackskye-sx

Function GenGuid() As String
  Dim TypeLib As Object
  Dim guid As String
  Dim guid2 As String
  Set TypeLib = CreateObject("Scriptlet.TypeLib")
  guid = Left$(TypeLib.guid, 38)
  Set TypeLib = Nothing
  ' format is {24DD18D4-C902-497F-A64B-28B2FA741661}
  guid = Replace(guid, "{", "")