Attribute VB_Name = "mdlFunctions"
Public Function MassPoof()
' Variables.
Dim i As Integer
' Start the for statement.
For i = 0 To 30000
    If frmMain.mnuMassPoof.Checked = False Then
        Exit For
    ElseIf frmMain.mnuMassPoof.Checked = True Then
        ' Mass poof here.
    End If
Next i
End Function

Public Function B64Int(i As String) As String
' New B64Function
B64Int = Chr((i / 64) + 64) + Chr((i Mod 64) + 64)
End Function

Public Function SendData(sck As Winsock, pck As String)
' New SendData function
Dim toB64 As String
' Sort the Decrypted Data
frmMain.SentData = True
' Get B64
toB64 = B64Int(Len(pck))
' If length is less than 3
If Len(toB64) < 3 Then toB64 = "@" & toB64
pck = frmMain.RC4E.encipher(toB64 & pck)
' Send the Data
sck.SendData pck
End Function

Public Function LV64(data As String) As String
Dim i As Integer
If data - 3 > 0 Then
  For i = 0 To 3
    If ((data - i) Mod 4) = 0 Then
    cod1 = i + 80
    cod1 = Chr(cod1)
    cod2 = (data - i) / 4 + 64
    cod2 = Chr(cod2)
    End If
   Next i
LV64 = cod1 & cod2
Else
LV64 = Chr(data + 72)
End If
End Function