alspliter Quellcode/Form1.frm:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002
B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
Appearance = 0 '2D
BackColor = &H003F3F3F&
BorderStyle = 1 'Fest Einfach
Caption = " .-.-.-.-.-.-.- AL Creation 2001
-.-.-.-.-.-.-."
ClientHeight = 2565
ClientLeft = 45
ClientTop = 330
ClientWidth = 4440
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2565
ScaleWidth = 4440
StartUpPosition = 2 'Bildschirmmitte
Begin VB.PictureBox FormResizerCtrl1
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 1680
ScaleHeight = 420
ScaleWidth = 1140
TabIndex = 3
Top = 7800
Width = 1200
End
Begin VB.TextBox txtFileName
Appearance = 0 '2D
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 480
Locked = -1 'True
TabIndex = 2
Top = 7080
Visible = 0 'False
Width = 5055
End
Begin VB.TextBox txtFileLength
Alignment = 1 'Rechts
Appearance = 0 '2D
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 2520
Locked = -1 'True
TabIndex = 14
TabStop = 0 'False
Top = 1680
Width = 1575
End
Begin VB.TextBox txtTemplateName
Appearance = 0 '2D
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 1
Top = 7440
Visible = 0 'False
Width = 5055
End
Begin VB.TextBox txtOutputFile
Appearance = 0 '2D
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 0
Top = 6960
Visible = 0 'False
Width = 5895
End
Begin MSComDlg.CommonDialog CommonDialog3
Left = 120
Top = 7800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = $"Form1.frx":08CA
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 600
Top = 7800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "Splited Dateien (*.als)|*.als|"
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1080
Top = 7800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "Exe File (*.exe)|*.exe|All Files
(*.*)|*.*|"
End
Begin VB.Shape Shape4
BorderColor = &H00000000&
Height = 495
Left = 2400
Top = 1560
Width = 1815
End
Begin VB.Label Label10
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "Exit"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3600
TabIndex = 13
Top = 2160
Width = 615
End
Begin VB.Shape Shape3
Height = 2415
Left = 120
Top = 120
Width = 4215
End
Begin VB.Image Image1
Appearance = 0 '2D
Height = 540
Left = 2040
Picture = "Form1.frx":0A22
Top = 360
Width = 2250
End
Begin VB.Shape Shape2
BorderColor = &H00000000&
Height = 1215
Left = 240
Top = 1200
Width = 2055
End
Begin VB.Label Label9
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "Manual"
ForeColor = &H00FFFFFF&
Height = 255
Left = 2400
TabIndex = 12
ToolTipText = "Enter Split Size ..."
Top = 1200
Width = 1815
End
Begin VB.Label Label8
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "5.76 MB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 11
Top = 2040
Width = 855
End
Begin VB.Label Label7
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "2.88 MB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 10
Top = 2040
Width = 855
End
Begin VB.Label Label6
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "1.44 MB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 9
Top = 1680
Width = 855
End
Begin VB.Label Label5
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "1.20 MB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 8
Top = 1680
Width = 855
End
Begin VB.Label Label4
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "720 KB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1320
TabIndex = 7
Top = 1320
Width = 855
End
Begin VB.Label Label3
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fest Einfach
Caption = "360 KB"
ForeColor = &H00FFFFFF&
Height = 255
Left = 360
TabIndex = 6
Top = 1320
Width = 855
End
Begin VB.Shape Shape1
BorderColor = &H00000000&
Height = 855
Left = 240
Top = 240
Width = 1695
End
Begin VB.Label Label2
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000001&
BorderStyle = 1 'Fest Einfach
Caption = "Fit Together"
ForeColor = &H80000008&
Height = 255
Left = 360
TabIndex = 5
ToolTipText = "Chose file to Un-Split ..."
Top = 720
Width = 1455
End
Begin VB.Label Label1
Alignment = 2 'Zentriert
Appearance = 0 '2D
BackColor = &H80000001&
BorderStyle = 1 'Fest Einfach
Caption = "Split File"
ForeColor = &H80000008&
Height = 255
Left = 360
TabIndex = 4
ToolTipText = "Chose file to Split ..."
Top = 360
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "
ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByV
al nShowCmd As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal
Order As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, By
Val cy As Long, ByVal Flags As Long)
Private Declare Function apiGetShortPathName _
Lib "Kernel32" Alias "GetShortPathNameA" _
(ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, _
ByVal cchBuffer As Long) As Long
Dim lsShortName As String
Dim lsLongName
Dim Filename As String
Dim NewFileName As String
Private Sub form_load()
Dim dir_name As String
dir_name = App.Path
If Right$(dir_name, 1) <> "\" Then _
dir_name = dir_name & "\"
txtFileName.Text = dir_name
txtTemplateName.Text = dir_name
txtOutputFile.Text = dir_name
End Sub
Private Sub Image1_Click()
ShellExecute GetActiveWindow(), "Open", "
http://www.lymericFiles.50megs.com
/", "", 0&, 1
End Sub
Private Sub Label1_Click()
Dim Filter As String
Dim err_descr As String
On Error Resume Next
CommonDialog1.ShowOpen
Filter = "Exe File (*.exe)|*.exe|All Files (*.*)|*.*|"
If Trim(CommonDialog1.Filename) = "" Then Exit Sub
txtFileName = CommonDialog1.Filename
If Not SplitFile(txtFileName.Text, 0, err_descr, CLng(txt
FileLength.Text)) Then
MsgBox ".-.-.- Choose Split Rate -.-.-."
Else
MsgBox " .-.-.- Ready -.-.-."
End If
End Sub
Private Sub Label10_Click()
End
End Sub
Private Sub Label2_Click()
Dim err_descr As String
Dim Filter As String
On Error Resume Next
CommonDialog2.ShowOpen
Filter = "Splited File(*.als)|*.als|"
If Trim(CommonDialog2.Filename) = "" Then Exit Sub
txtTemplateName.Text = CommonDialog2.Filename
CommonDialog3.Filter = "All Files (*.*)|*.*|bat File (*.bat)|*.bat|com File
(*.com)|*.com|c File (*.c)|*.c|exe File (*.exe)|*.exe|rc File (*.
rc)|*.rc|asm File (*.asm)|*.asm|java File (*.java)|*.java|exe File (*.e
0;e)|*.exe|rtf File (*.rtf)|*.rtf|text File (*.txt)|*.txt|fr
m File (*.frm)|*.frm|doc File (*.doc)|*.doc|Html File (*.html)|*.html|ini File (
*.ini)|*.ini|"
CommonDialog3.Flags = &H4
CommonDialog3.ShowSave
txtOutputFile.Text = CommonDialog3.Filename
If Not ReassembleFile(txtTemplateName.Text, False, txtOutput
File.Text) Then
MsgBox ".-.-.- Choose (.*als) File -.-.-."
Else
MsgBox " .-.-.- Ready -.-.-."
End If
End Sub
Private Sub Label3_Click()
txtFileLength.Text = "362496"
End Sub
Private Sub Label4_Click()
txtFileLength.Text = "730112"
End Sub
Private Sub Label5_Click()
txtFileLength.Text = "1213952"
End Sub
Private Sub Label6_Click()
txtFileLength.Text = "1457664"
End Sub
Private Sub Label7_Click()
txtFileLength.Text = "2915328"
End Sub
Private Sub Label8_Click()
txtFileLength.Text = "5830656"
End Sub
Private Sub Label9_Click()
txtFileLength.Locked = False
txtFileLength.Text = ""
End Sub
Private Sub txtFileLength_Change()
If txtFileLength.Text = "a" Then txtFileLength.Text
= ""
If txtFileLength.Text = "b" Then txtFileLength.Text
= ""
If txtFileLength.Text = "c" Then txtFileLength.Text
= ""
If txtFileLength.Text = "d" Then txtFileLength.Text
= ""
If txtFileLength.Text = "e" Then txtFileLength.Text
= ""
If txtFileLength.Text = "f" Then txtFileLength.Text
= ""
If txtFileLength.Text = "g" Then txtFileLength.Text
= ""
If txtFileLength.Text = "h" Then txtFileLength.Text
= ""
If txtFileLength.Text = "i" Then txtFileLength.Text
= ""
If txtFileLength.Text = "j" Then txtFileLength.Text
= ""
If txtFileLength.Text = "k" Then txtFileLength.Text
= ""
If txtFileLength.Text = "l" Then txtFileLength.Text
= ""
If txtFileLength.Text = "m" Then txtFileLength.Text
= ""
If txtFileLength.Text = "n" Then txtFileLength.Text
= ""
If txtFileLength.Text = "o" Then txtFileLength.Text
= ""
If txtFileLength.Text = "p" Then txtFileLength.Text
= ""
If txtFileLength.Text = "q" Then txtFileLength.Text
= ""
If txtFileLength.Text = "r" Then txtFileLength.Text
= ""
If txtFileLength.Text = "s" Then txtFileLength.Text
= ""
If txtFileLength.Text = "t" Then txtFileLength.Text
= ""
If txtFileLength.Text = "u" Then txtFileLength.Text
= ""
If txtFileLength.Text = "v" Then txtFileLength.Text
= ""
If txtFileLength.Text = "w" Then txtFileLength.Text
= ""
If txtFileLength.Text = "x" Then txtFileLength.Te
20;t = ""
If txtFileLength.Text = "y" Then txtFileLength.Text
= ""
If txtFileLength.Text = "z" Then txtFileLength.Text
= ""
If txtFileLength.Text = "ä" Then txtFileLength.Text
= ""
If txtFileLength.Text = "ü" Then txtFileLength.Text
= ""
If txtFileLength.Text = "ö" Then txtFileLength.Text
= ""
If txtFileLength.Text = "," Then txtFileLength.Text
= ""
If txtFileLength.Text = "." Then txtFileLength.Text
= ""
If txtFileLength.Text = "-" Then txtFileLength.Text
= ""
If txtFileLength.Text = "#" Then txtFileLength.Text
= ""
If txtFileLength.Text = "+" Then txtFileLength.Text
= ""
If txtFileLength.Text = ";" Then txtFileLength.Text
= ""
If txtFileLength.Text = ":" Then txtFileLength.Text
= ""
If txtFileLength.Text = "─" Then txtFileLength.Text
= ""
If txtFileLength.Text = "▄" Then txtFileLength.Text
= ""
If txtFileLength.Text = "╓" Then txtFileLength.Text
= ""
If txtFileLength.Text = "*" Then txtFileLength.Text
= ""
If txtFileLength.Text = "'" Then txtFileLength.Te
0;t = ""
If txtFileLength.Text = "_" Then txtFileLength.Text
= ""
If txtFileLength.Text = "A" Then txtFileLength.Text
= ""
If txtFileLength.Text = "B" Then txtFileLength.Text
= ""
If txtFileLength.Text = "C" Then txtFileLength.Text
= ""
If txtFileLength.Text = "D" Then txtFileLength.Text
= ""
If txtFileLength.Text = "E" Then txtFileLength.Text
= ""
If txtFileLength.Text = "F" Then txtFileLength.Text
= ""
If txtFileLength.Text = "G" Then txtFileLength.Text
= ""
If txtFileLength.Text = "H" Then txtFileLength.Text
= ""
If txtFileLength.Text = "I" Then txtFileLength.Text
= ""
If txtFileLength.Text = "J" Then txtFileLength.Text
= ""
If txtFileLength.Text = "K" Then txtFileLength.Text
= ""
If txtFileLength.Text = "L" Then txtFileLength.Text
= ""
If txtFileLength.Text = "M" Then txtFileLength.Text
= ""
If txtFileLength.Text = "N" Then txtFileLength.Text
= ""
If txtFileLength.Text = "O" Then txtFileLength.Text
= ""
If txtFileLength.Text = "P" Then txtFileLength.Text
= ""
If txtFileLength.Text = "Q" Then txtFileLength.Text
= ""
If txtFileLength.Text = "R" Then txtFileLength.Text
= ""
If txtFileLength.Text = "S" Then txtFileLength.Text
= ""
If txtFileLength.Text = "T" Then txtFileLength.Text
= ""
If txtFileLength.Text = "U" Then txtFileLength.Text
= ""
If txtFileLength.Text = "V" Then txtFileLength.Text
= ""
If txtFileLength.Text = "W" Then txtFileLength.Text
= ""
If txtFileLength.Text = "X" Then txtFileLength.Text
= ""
If txtFileLength.Text = "Y" Then txtFileLength.Text
= ""
If txtFileLength.Text = "Z" Then txtFileLength.Text
= ""
If txtFileLength.Text = "!" Then txtFileLength.Text
= ""
If txtFileLength.Text = "§" Then txtFileLength.Text
= ""
If txtFileLength.Text = "$" Then txtFileLength.Text
= ""
If txtFileLength.Text = "%" Then txtFileLength.Text
= ""
If txtFileLength.Text = "&" Then txtFileLength.Text
= ""
If txtFileLength.Text = "/" Then txtFileLength.Text
= ""
If txtFileLength.Text = "(" Then txtFileLength.Text
= ""
If txtFileLength.Text = ")" Then txtFileLength.Text
= ""
If txtFileLength.Text = "=" Then txtFileLength.Text
= ""
If txtFileLength.Text = "?" Then txtFileLength.Text
= ""
If txtFileLength.Text = "┤" Then txtFileLength.Text
= ""
If txtFileLength.Text = "`" Then txtFileLength.Text
= ""
If txtFileLength.Text = "<" Then txtFileLength.Te
0;t = ""
If txtFileLength.Text = ">" Then txtFileLength.Te
0;t = ""
If txtFileLength.Text = "▓" Then txtFileLength.Text
= ""
If txtFileLength.Text = "│" Then txtFileLength.Text
= ""
If txtFileLength.Text = "{" Then txtFileLength.Text
= ""
If txtFileLength.Text = "[" Then txtFileLength.Text
= ""
If txtFileLength.Text = "]" Then txtFileLength.Text
= ""
If txtFileLength.Text = "}" Then txtFileLength.Text
= ""
If txtFileLength.Text = "\" Then txtFileLength.Text
= ""
If txtFileLength.Text = "~" Then txtFileLength.Text
= ""
End Sub
alspliter Quellcode/Module5.bas:
Attribute VB_Name = "Module5"
Option Explicit
Type FileSection
Bytes() As Byte
FileLen As Long
End Type
Type SectionedFile
Files() As FileSection
NumberOfFiles As Long
End Type
Type FileInfo
OrigProjSize As Long
OrigFileName As String
FileCount As Integer
FileStartNum As Long
End Type
Type CommReturn
Filename As String
Extention As String
FilePath As String
End Type
Public Function Save_Load_File(ShowSave As Boolean, ComDlgCnt As CommonDialog, F
ilter As String, Flags As Long, DialogTitle As String, Optional FilterIndex
As Long) As CommReturn
On Error Resume Next
ComDlgCnt.Filename = ""
ComDlgCnt.Filter = Filter
ComDlgCnt.Flags = Flags
ComDlgCnt.FilterIndex = FilterIndex
ComDlgCnt.DialogTitle = DialogTitle
If ShowSave Then
ComDlgCnt.ShowSave
If Err = cdlCancel Then Exit Function
Else
ComDlgCnt.ShowOpen
If Err = cdlCancel Then Exit Function
End If
Save_Load_File.Filename = RetFileName(ComDlgCnt.Filename)
Save_Load_File.Extention = ReturnExtention(ComDlgCnt.Filename, Fal
se)
Save_Load_File.FilePath = FilePath(ComDlgCnt.Filename)
End Function
Public Function ReturnExtention(Filename As String, ReturnFilename As Boole
an) As String
Dim Buffer1 As String, m_LngLoop As Long, StartPos As Long
Buffer1 = Filename
For m_LngLoop = 1 To Len(Buffer1)
If Mid(Buffer1, m_LngLoop, 1) = "." Then
StartPos = m_LngLoop
End If
Next m_LngLoop
If StartPos = 0 Then ReturnExtention = ""
If ReturnFilename = True Then
ReturnExtention = Mid(Buffer1, 1, StartPos - 1)
Else
ReturnExtention = Mid(Buffer1, StartPos + 1)
End If
End Function
Sub SplitDirName(DirName As String, Lines() As String)
'SplitDirName
'Created By Allen
If DirName = "" Then Exit Sub
Dim Text As String, CurNum As Long, TotalNum As Long, CurPos As Long
Text = DirName
CurNum = 1
CurPos = 1
TotalNum = GetCount(Text, "\")
ReDim Lines(1 To TotalNum)
Do Until CurNum = TotalNum + 1
Lines(CurNum) = Mid(Text, 1, InStr(CurPos, Text, "\
4;) - 1)
Text = Mid(Text, Len(Lines(CurNum)) + 2)
CurNum = CurNum + 1
Loop
End Sub
Public Function GetCount(Text As String, Search As String)
Dim CCnt As Long, m_LngLoop As Long
For m_LngLoop = 1 To Len(Text)
If Mid(Text, m_LngLoop, Len(Search)) = Search Then
CCnt = CCnt + 1
End If
Next
GetCount = CCnt
End Function
Public Function FilePath(Filename As String) As String
Dim XText As String, DFileName As String, m_LngLoop As Long, DLines() A
s String
XText = Filename
If Not Right(XText, 1) = "\" Then XText = XText &
"\"
SplitDirName CStr(XText), DLines()
For m_LngLoop = 1 To UBound(DLines) - 1
DFileName = DFileName & DLines(m_LngLoop) & "\"
Next
FilePath = DFileName
End Function
Public Function SplitFile(SplitFileName As String, BeginningNumber As Long, Retu
rnErrorDes As String, Optional Split As Long = 1439865) As Boolean
Dim SaveName As String
Dim fnum As Integer
SplitFile = True 'Assume Success
On Error GoTo CleanUp
Dim CurrentFile As SectionedFile, m_lngNumFil As Long, m_LngLoop As Long, Fi
lesLen As Long
FilesLen = FileLen(SplitFileName)
If FilesLen <= Split + 1 Then
SplitFile = False 'If the File
' Name is Smaller than the Split Ratio then
' The Function Doesnt Need Called So it Fails.
ReturnErrorDes = "File Is Too Small"
Exit Function
End If
fnum = FreeFile
Open SplitFileName For Binary As fnum
If CInt(FilesLen / Split) >= _
FilesLen / Split Or CInt(FilesLen / Split) _
= FilesLen / Split Then
m_lngNumFil = CInt(FilesLen _
/ Split) ' If VB heightened(or if they _
were equal) the length of the file _
divided by the total Split ratio then _
nothing needs To Do anything.
ElseIf CInt(FilesLen / Split) <= _
FilesLen / Split Then
m_lngNumFil = CInt(FilesLen / _
Split) + 1 ' If VB Lowered The _
Length Of the File Divided by the Total _
Split Ratio then it Will Need To Correct _
it.
End If
ReDim CurrentFile.Files(1 To m_lngNumFil)
For m_LngLoop = 1 To m_lngNumFil - 1
ReDim CurrentFile.Files(m_LngLoop) _
.Bytes(1 To Split) 'Re-Define(Re _
Dimention) the Number Of Bytes Per _
File
CurrentFile.Files(m_LngLoop) _
.FileLen = UBound(CurrentFile.Files _
(m_LngLoop).Bytes) 'Just For Reference
Next
For m_LngLoop = 1 To m_lngNumFil
Get #fnum, , CurrentFile.Files(m_LngLoop) _
.Bytes
Next
ReDim CurrentFile.Files(m_lngNumFil) _
.Bytes(1 To FilesLen - ((m_lngNumFil _
- 1) * Split)) 'ReDefine the Number of _
bytes for the last file since in many cases _
it will not be at the Split ratio.
CurrentFile.NumberOfFiles = m_lngNumFil
Get #fnum, , CurrentFile.Files(m_lngNumFil) _
.Bytes
CurrentFile.Files(m_lngNumFil) _
.FileLen = UBound(CurrentFile.Files _
(m_lngNumFil).Bytes)
Close #fnum 'Close File
For m_LngLoop = 1 To CurrentFile.NumberOfFiles _
'Save What We Have Done Into Seperate Files
SaveName = SplitFileName & "." & Format(BeginningNumber - 1
+ m_LngLoop, _
"00#")
fnum = FreeFile
Open SaveName For Binary As fnum
Put #fnum, 1, CurrentFile.Files(m_LngLoop)
Close #fnum
Next
Dim FileInfoFile As FileInfo
FileInfoFile.FileCount = m_lngNumFil
FileInfoFile.OrigFileName = SplitFileName
FileInfoFile.OrigProjSize = FileLen(SplitFileName)
FileInfoFile.FileStartNum = BeginningNumber
SaveName = SplitFileName & ".als"
fnum = FreeFile
Open SaveName For Binary As #fnum
Put #fnum, , FileInfoFile
Close #fnum
Exit Function
CleanUp:
ReturnErrorDes = Err.Description
SplitFile = False
'©Copyright Allen Clark Copeland Jr. 1998
End Function
Public Function ReassembleFile(TemplateFileName As String, Optional UseOldFilena
me As Boolean = True, Optional OutPutName = "C:\Filname.Extention")
As Boolean
On Error Resume Next
Dim FileInfo As FileInfo, OutName As String, _
File As SectionedFile, m_LngLoop As Long, OpenName
Dim fnum As Integer
ReassembleFile = True 'Assume Success
fnum = FreeFile
Open TemplateFileName For Binary As #fnum
Get #fnum, , FileInfo 'Get Information on the Previously Sav
ed File(s)
Close #fnum
If UseOldFilename Then
OutName = FileInfo.OrigFileName
Else
OutName = OutPutName
End If
ReDim File.Files(1 To FileInfo.FileCount)
For m_LngLoop = 1 To FileInfo.FileCount
OpenName = FileInfo.OrigFileName & "." & _
Format((FileInfo.FileStartNum - 1 + _
m_LngLoop), "00#")
fnum = FreeFile
Open OpenName For Binary As #fnum
Get #fnum, 1, File.Files(m_LngLoop)
Close #fnum
Next
fnum = FreeFile
Open OutName For Binary As #fnum
For m_LngLoop = 1 To FileInfo.FileCount
Put #fnum, , File.Files(m_LngLoop).Bytes
Next
Close #fnum
End Function
Public Function RetFileName(Text As String)
Dim XText As String, DLines() As String
XText = Text
If Not Right(XText, 1) = "\" Then XText = XText &
"\"
SplitDirName CStr(XText), DLines()
RetFileName = DLines(UBound(DLines))
End Function
alspliter Quellcode/MSSCCPRJ.SCC:
[SCC]
SCC=This is a source code control file
[PROJECT1.VBP]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
alspliter Quellcode/PROJECT1.VBP:
Type=Exe
Reference=*\G{00020430-0000-000&
#48;-C000-000000000046}#2.&#
48;#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation
Module=Module5; Module5.bas
Form=Form1.frm
Object={F9043C88-F6F2-101A-A3C9-08002B2F4
7;FB}#1.2#0; comdlg32.ocx
IconForm="Form1"
Startup="Form1"
HelpFile=""
Title="alspliter"
ExeName32="alspliter.exe"
Command32=""
Name="Spliter"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Black Sun"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
alspliter Quellcode/PROJECT1.VBW:
Module5 = 0, 0, 422, 448, C
Form1 = 66, 66, 514, 514, Z, 22, 22, 613, 575, C
DBC.nfo:
░ ▄ ▄▒░
▒ ▒ ▄▓▄ ▄▄▓▄▄█▓▒█▀▀▓█▓█▓▄
▓░ ▄ ▄▄ ▓ █▄ ▄▓█▓▒▓█▄█▒▓▄ ▄▄░▀▓▄▓▒▓▒▓█▓▀▀ ░ ▓▒▓▀ ▄▒█▄
█▓ ▄▄▓█▓█ █▄ ▀█▄▄ ▀▀█▀▓▀▓▓▒▓▄█▒▓█░▀▓▓█░▀▀ ▓ ▒ ▓▀ ▄▓▒▓░
▓ █░ ▓ ▄█▓▒▓▓▀▀▓▄ █ ▒▀▀███▄▄▄ ▀▀▓▀▀█▓▄░▀ ▄▓▓▄ █ ▓ ▀ █▒▓▓░
▄██ █ █ ▀▓▒▓▀ ▀ ▀█ ▀▄ ░▀▀▀█▓▄ ░▓▄▄▄▄▓░▄▄▄ ▄▓▀ ██ █ ░▓██▒▓▄
▄ ░▀█ ▀▄ █▄ ▀▀▒▓░ ▄ ██ ▀▄ ▀▀▓▄ ███ ▀ ▓▀▀▀░▀▀▀ ░▄█▀ ██ ▀▓▓▓▒▓░
▀▀▓█ ▀█ ▀▄ ▀▓▄ ▀ ░▓▄ ██ ▀▄ ▀ ▄██▀ ▄▄▄▓████████▄ ▄█▀ █▓ ▀▓░ ▀▀▓██▄
░█▓█ ░▀█ ▀▄ ▀▀█▄▄ ▀▀▓▄ ██ ▀▄ ██▀ ▄█▀▀ ▄ ▀███ ██▀ ░ ███ ▀▀▓░ ▀█▓▒░
▀▒▓█ █▓ ▀▀▄ ▀▀▓█▄▄▄ ██ ▀ █▀ ▄▀ ░▄▄▓▀▀▓▒▓▒░ ██ █▀ ▄ ███▄▄ ▀ ▀▓█▄
▀█▓▄ ██ ▀█▄▄ ▀▀▀█▓▄ ▀▀ █▀ █ ░▀▓█▓ ██ ▀░▓▀ ██▓▀▀▀ ░█▓█▓▄
▀▒▓░ ██▄ ▀▀██▄▄ ▀█▄ █ ▄ ▓ ▄▒▓▀ ██ ▄▓▀ ▀ ▄▄█▓▀ ░▓▒▓▀ ░
░▓▄ █▀ ▄ ▀██▄ █ ▓ █▄▒ ▄▓▓▀ ██▀░▓▓▄░ ▄███▀ ░ ██▓▓░
▄█▒▓░ ▄███▄ ▄██▀ ▓ █▄ █ ▄▓▀ ░██▀ ▄ ▀█▓▄ ▀██ ▄▓█▓░
▓▒▓░ ███▀ ▄▄ ▄▄█▓█▀ ░▒ ▀█ ▀█ ▄▀░ ▄██▀ █▄ ░▀▓▄ ██ ▀▓▓▒▄
░█▀░ ██▀ ▄▓▀ ▄███▀ ░ ██ ▀█▄ ▄██▓▀ ▀▄ ▀▀█▄▄▄ ▀▀░ ▀█ ▀▓▓▒▓▄
▀█▓█▀ █▀ ▓▀ ▄██▀ █▓▄ ▀██▄▄▄▄████▀ ▀▓▄▄▄ ▀▀█▄▄ ▄█▓▄ ░ ▀▒░
▓█ █▀ ▄█▀ ▀██▄▄ ▀▀▀▀▀▀ ▓▀▀▄▄ ▀▀▓██████▄ ░▀█
░▄ ▓█▄ ▄▄█▀ ┌──────────────────ú▀▀█████▀▀ú────────────────────┐ ▀▀▀███▓▄ ▀▓▀
│ ▒ ▀▀▀▀ │Da Breaker Crewúúúúúúú▀úúúúúúoNE gROUP oNE fAMILY│ ░ │
│░ú┌─────────┘ └─────────┐ú░│
▄▀│ú░ú AL-Spliter VB Source ú░ú▀▄
▀▄└─░┼─┐ ┌─┼░─▄▀
▀┌▓┘ú│ │ú└▓┐
│██ │ │ ██│
▄└─█┐│▀▄ .ú^ú.ú'ú.:rELEASE iNFORMATION:.ú'ú.ú^ú. ▄
▀│┌█─┘▄
▒▓││▄██ ██▄││▓▒
┌▓┘│█▀ ▄ ▀▄ ▀██└▓┐
█│█▓│█▀▀ ▀▀████│
▄██│█┐│ │███▄
▀███▄█ [cRACKER]...........LYMERiCFiLE [rELEASEDATE]........23.10.
8;1 ████▄
▀███▄ ▒█┐█▀
▒███ [cRACKTYPE]............VB-Source [sUPPLIER]................N/A │ú█▒
└█▀██▄ ▄█│┌█┘
┌█┘│ █▄ [dISK]................01 [aSSESSMENT]..........N/A ▄
██│└█┐
▓▒┐│ ▀ ▄▀▀ │┌▒▓
█▓│ │▓█
▀▀▄▄ ▄▄▀▀
▀▀▀▄ ▄▀▀▀
▄███▄▄ ▄▀ ▀▄ ▄▄███▄
░▓█▀█████▄░▀▄▄▀░▓ ▀▄▓▄▀ ▓░▀ ▀░▓ ▀▄▓▄▀ ▓░▀▄▄▀░▄█████▀█▓░
ú▄▀█▀▓▓▄▀█████▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀████▄▀▄▓▓▀█▀▄ú
▀ ú ▄▀▓▒▓▀███▄▀▄ú ▄▀▓▒▓▀▄ ú ú▄▀▄úú ▄▀▓▒▓▀▄ ú▄▀▄███▀▓▒▓▀▄ ú ▀
▀▀▀██▄ ▄▄▀▀ ▀▀▄▄ ▄██▀▀▀
▀▀▀.: aPPLICATION iNFO :.▀▀▀
Nice Split Proggy :-)
▄███▄▄ ▄▀ ▀▄ ▄▄███▄
░▓█▀█████▄░▀▄▄▀░▓ ▀▄▓▄▀ ▓░▀ ▀░▓ ▀▄▓▄▀ ▓░▀▄▄▀░▄█████▀█▓░
ú▄▀█▀▓▓▄▀█████▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀████▄▀▄▓▓▀█▀▄ú
▀ ú ▄▀▓▒▓▀███▄▀▄ú ▄▀▓▒▓▀▄ ú ú▄▀▄úú ▄▀▓▒▓▀▄ ú▄▀▄███▀▓▒▓▀▄ ú ▀
▀▀▀██▄ ▄▄▀▀ ▀▀▄▄ ▄██▀▀▀
▀▀▀ .: iNSTALL nOTES :. ▀▀▀
Use Your VB 6.0 Edition and make your own Spliter:-)
▄███▄▄ ▄▀ ▀▄ ▄▄███▄
░▓█▀█████▄░▀▄▄▀░▓ ▀▄▓▄▀ ▓░▀ ▀░▓ ▀▄▓▄▀ ▓░▀▄▄▀░▄█████▀█▓░
ú▄▀█▀▓▓▄▀█████▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀████▄▀▄▓▓▀█▀▄ú
▀ ú ▄▀▓▒▓▀███▄▀▄ú ▄▀▓▒▓▀▄ ú ú▄▀▄úú ▄▀▓▒▓▀▄ ú▄▀▄███▀▓▒▓▀▄ ú ▀
▀▀▀██▄ ▄▄▀▀ ▀▀▄▄ ▄██▀▀▀
▀▀▀ .: gROUP cONTACT :. ▀▀▀
[wEB]....................
http://kickme.to/dbc
[eMAIL].......................info-dbc@gmx.de
[iRC-EFnet]..............................#DBC
[iRC-Files]...........................#cracks
You can get our Files now on #cracks in EFnet
Type !msg in the channel to look for the
current File-Bot
[ Any questions ? Please mail to info-dbc@gmx.de]
If you like a software, please buy it.
Please, support the programmers, that they can make
further applications.
We dont crack to our financial advantage.
We don't intend to harm somebody.
Therefore you have to delete the Software and our
Crack after Trial-Time.
Also we arn`t your personal Crackers, so you can
request a Crack on our Messaboard (!NOT BY MAIL!)
but we don't promise to take care of it.
We looks permanently for good and capable crackers,
and support in any way.
If you should be in the opinion that you can help us,
dont wait and contact us today.
!! Always positions for: Cracker`s , SiteOps HQ , Coder !!
Apply by mail: info-dbc@gmx.de
or
IRC - EFnet - #dbc
▄███▄▄ ▄▀ ▀▄ ▄▄███▄
░▓█▀█████▄░▀▄▄▀░▓ ▀▄▓▄▀ ▓░▀ ▀░▓ ▀▄▓▄▀ ▓░▀▄▄▀░▄█████▀█▓░
ú▄▀█▀▓▓▄▀█████▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀████▄▀▄▓▓▀█▀▄ú
▀ ú ▄▀▓▒▓▀███▄▀▄ú ▄▀▓▒▓▀▄ ú ú▄▀▄úú ▄▀▓▒▓▀▄ ú▄▀▄███▀▓▒▓▀▄ ú ▀
▀▀▀██▄ ▄▄▀▀ ▀▀▄▄ ▄██▀▀▀
▀▀▀ .: gREETINGS :. ▀▀
All supporters of DBC (shareware authors).
▄███▄▄ hEAD bY NiGhTm4rE ▄▀ ▀▄ nFO bY NUKEM ▄▄███▄
░▓█▀█████▄░▀▄▄▀░▓ ▀▄▓▄▀ ▓░▀ ▀░▓ ▀▄▓▄▀ ▓░▀▄▄▀░▄█████▀█▓░
ú▄▀█▀▓▓▄▀█████▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀█▀▓▓▄▀▄▓▓▀█▀ ▀████▄▀▄▓▓▀█▀▄ú
▀ ú ▄▀▓▒▓▀███▄▀▄ú ▄▀▓▒▓▀▄ ú ú▄▀▄úú ▄▀▓▒▓▀▄ ú▄▀▄███▀▓▒▓▀▄ ú ▀
▀▀███▄ ▄▄▀▀ 1998 - 2001 ▀▀▄▄ ▄██
▀▀▀
▄ ▄█▓ ▄█▓ ▄
█ ▓▄▄▀ ▀▄▄ ▄▀▀ ▀▄▄▓ █
▓█▄▄▒ ▄▄▄██▀ ▀oNE gROUP oNE fAMILY▀ ▀██▄▄▄ ▒▄▄█▓
▀▓█▓████▓▓█ █▓▓█████▓█▓▀
▀▀▀▀▀ ▀▀▀▀▀▀▀
dni.nfo:
▄ ▄▄▄
▀░▀ ▄▄▄▄▄ ▀█████ ▄▄▄▄▄ ██▄
█ ▄▄███░░▓▓▄ █████ ██░░░ ▄ ██▓
██ █████ ████████░▓▓▓ ███░░ ██░▓█▄▄███▓▓▄▄ █▓▓
██ ███ ███████████▓ ███▓█ ░▓▓████████▓▓▓▄ █
█████ █ ██████ ▀██░ ▄▓▄ ░▓▓▓█▄██████████████▓
██ ██▄▄ █████ ▀██▄▄ ▀ ▓▓██████████████████▓░ ▄
███ ██ ██████ ▀▀███ ░██████ ▄▄▄████████████████████▀▄▄█░ ▄▒▄
██ ██████████ ░███ ░██████░ █████████████████▀ ▀▀ ███▓ ▀
██ ███████ ███ ░███ ░██████░ ░█████████████████ ███▓
███████ █ ██ ░███ ░██████░ ░█████████████████ ▄█▄▄ ██▓
▀█ █ ██ ▒███ ░███████░ ░█████████████████ ████████▓
█ ██ ▀ ███▒███ ░███████░ ████▀██████████████ █████▀██░
█ ███ ████████░█████▀████ ░████ ███▀████████████████ ██░
█ ▀ ██ ██████████████▀ ████▄░███▀ ███ ███████████████ ███
███ ███████████████████▀ █████████ ███ ███████████████ ███
█ █████ ██ ███ ▀█████▀ ▀██████▀ ███ █████▀▀████████ ███
█ ████████ ███▀█ ▀▀▀ ▀▀▀▀▀▀ ███ ░████ ░███ ███
████████ ██ ██ ░ █ DuNgI . . . ███ ████BY RiA████ ███
███ ██ █████ █ ▄░▄ take one headshot ███ ████ ▄ ████ ▀▀
█ ██▄▄█ ▀ ███ ▀▒▀ ███░
██ █████ ▀▀▀
█ █ DSL 768/128 site
█▄█
████ DBC WHQ \ DBC Webhost \ UCC WHQ
█ ███████▄█▄
████████████ tCA Webhost \ EVD WHQ
██ ████ ██
█ ██
██ ███
█████████
▀████▀ ......by derbst.chillige.Kaggw0rschd
