Benign Download

FrmDownload.frm

Warns that data will be lost
SHA-2562859516d75bdc74b9ba8336846aa4974a4ec7c8dfc9104f9f67398145ac6c20f
MaleculeH(U)

Evidence

VB6 form designer block lines 3–6
3:26… 101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
4Begin VB.Form FrmDownload
5 BorderStyle = 1 'Fixed Single
6 Caption = "Download file"
VB6 attribute module name lines 142–149
142:29… 0
143 Width = 1410
144 End
145End
146Attribute VB_Name = "FrmDownload"
147Attribute VB_GlobalNameSpace = False
148Attribute VB_Creatable = False
149Attribute …
VBScript Dim variable declaration lines 149–179
149:18… eclaredId = True
150Attribute VB_Exposed = False
151Dim TransferFileOpen As Boolean
152Dim AppendToFile As Boolean
153Dim LoadedSize As Boolean
154Dim FileBinary As String
155Dim FileNumber As Long
156Dim TotalBytes As Long
157Dim FoundBytes As Long
158Dim GotBytes As Long
159
160Private Sub CmdCancel_Click()
161 If FrmBusy.Visible = True Then Unload FrmBusy
162 WinSockCtl.Close
163 Unload Me
164End Sub
165
166Private Sub CmdDownload_Click()
167
168 On Error GoTo FinaliseError
169
170 If CmdDownload.Caption = "&Close" Then
171 Unload Me
172 Exit Sub
173 End If
174
175 CmdDownload.Enabled = False
⋯4 lines
VBScript Sub procedure lines 185–192
185:27… dData "1-0" & FileDownload.Text
186
187 Exit Sub
188
189FinaliseError:
190
191 MsgBox "Error, could not download file.", vbCritical, "Error"
192 CmdDownload.Capt …
Warns that data will be lost lines 304–308
304:50… ritical, "Error"
305 TransferFileOpen = False 'This is so that not all data is lost after error position
306 'If still transfering
307 CmdDownload.Caption = "&Close"
308 CmdDownload.E …

Keyboard shortcuts on this page: j for the next sample, k for the previous one, x to go back to the feed, d to download the original bytes, r to re-queue the sample for analysis.