latest  (updated, bug fixed) version can be found at: http://code.google.com/p/fbpacker/

[Sub Packer.AddFile(Name As String, Filename As String)]

originally posted at FreeBASIC Forums

I've wrote simple package manager which supports encryption, it's called Packer and it's placed inside FB namespace (and thats why it's called FB.Packer)...

anyway, you can download code from here: http://krcko.haragei.org/fb/fbpacker.zip

this is how you use it to create package:

Code: Select All | Copy To Clipboard

#include "fbpacker.bi"

Dim As FB.Packer package

package.AddFile "txt file", "readme.txt"  ' include readme.txt in package
package.AddFile "bmp file", "background.bmp" ' include background.bmp
' ...
package.Save "data.pck", "ultra secure password"

and this is how you unpack it:

Code: Select All | Copy To Clipboard

Dim As FB.Packer package

package.Load "data.pck", "ultra secure password"

package.ExtractFile "txt file", "extracted.txt" ' unpack to extracted.txt
package.ExtractFile "bmp file", "extracted.bmp" ' unpack to extracted.bmp

simple, isn't it?


FB.Packer methods:

Sub Packer.AddFile(Name As String, Filename As String)
 -- Adds new file to package, data is read from file. If item with specified Name already exists it will be overwritten

Sub Packer.AddFile(Name As String, pData As UByte Pointer, length As Integer)
 -- Adds new file to package, data is read from memory. If item with specified Name already exists it will be overwritten

Sub Packer.ExtractFile(Name As String, OutputFile As String)
 -- Extracts file from package to file

Sub Packer.ExtractFile(Name As String, pData As UByte Pointer, ByRef length As Integer)
 -- Extracts file from package to memory

Sub Packer.Remove(Name As String)
 -- Removes file from package

Sub Packer.Clear
 -- Removes all files from package

Sub Packer.Save(Filename As String, Password As String)
 -- Writes package to file and encrypts data using provided password

Sub Packer.Load(Filename As String, Password As String)
 -- Loads package from file and decrypts data using provided password


FB.Packer properties:

Encrypt   As CryptFunction
 -- sets function used for encryption (defaults to RC4 algorithm which is included in fbpacker.bi)

Decrypt As CryptFunction
 -- sets function used for decryption (defaults to RC4 algorithm which is included in fbpacker.bi)

CryptFunction is declared as:

Code: Select All | Copy To Clipboard

Type CryptFunction As Sub(ptrData As UByte Pointer, length As Integer, password As String)

i might add support for compression/decompression tomorow...