VB加殼脫殼程序源碼

文檔收集于互聯(lián)網(wǎng)，已重整理排版文檔收集于互聯(lián)網(wǎng)，已重整理排版.word版本可編輯,有幫助.1:..VB加殼脫殼程序源碼1、窗體代碼PrivateSubCheck1_ClickText2.SetFocusEndSubPrivateSubImage2_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image10.Visible=FalseEndSubPrivateSubImage3_ClickIfText1.Text=““ThenMsgBox“PleaseSelectAFileFirst!“,vbInformationElseList1.Visible=TrueList2.Visible=FalseFrame3.Visible=FalseList1.Text=“ UPX1.24 Text2.SetFocusEndIfEndSubPrivateSubCommand2_ClickDimpathAsString,back_pathAsString,file_tAsString”Dim”sstringsText2.SetFocusCommonDialog1.ShowOpenText1.Text=CommonDialog1.FileNamepath=Text1.Textback_path=“Backupfile.exe“IfCheck1.Value=1Theni=FreeFileOpenpathForBinaryAs#ifile_t=Space(LOF(i))Get#i,,file_tClose#iOpenback_pathForBinaryAs#iPut#i,,file_tClose#iMsgBox“ABackupofthefilehasbeencreatedinthesamelocationastheoriginalfile“,vbInformationEndIfEndSubPrivateSubImage3_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image8.Visible=TrueEndSubPrivateSubImage3_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image8.Visible=FalseImage3_ClickEndSubPrivateSubImage4_ClickIfText1.Text=““ThenMsgBox“PleaseSelectAFileFirst!“,vbInformationElseText2.SetFocusList2.Visible=TrueList1.Visible=FalseFrame3.Visible=FalseList2.Text=“ Krypt EndIfEndSubPrivateSubImage4_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image9.Visible=TrueEndSubPrivateSubImage4_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image9.Visible=FalseImage4_ClickEndSubPrivateSubImage5_ClickIfText1.Text=““ThenMsgBox“PleaseSelectAFileFirst!“,vbInformationElseText2.SetFocusList1.Visible=FalseList2.Visible=FalseFrame3.Visible=TrueFrame4.Visible=TrueEndIfEndSubPrivateSubImage5_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image7.Visible=TrueEndSubPrivateSubImage5_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image7.Visible=FalseImage5_ClickEndSubPrivateSubImage6_ClickText2.SetFocusFrame3.Visible=TrueList1.Visible=FalseFrame4.Visible=FalseEndSubPrivateSubCommand7_ClickText2.SetFocusIfText1.Text<>““AndText3.Text>0Thenfsiz=ShowFileSize(Text1.Text)PB1.Value=0PB1.Max=Text3.TextPB1.Visible=TrueOpenText1.TextForBinaryAs#1Fora=1ToText3.TextPut#1,fsiz-1+a,0PB1.Value=aNextCloseEndIfPB1.Visible=FalsePB1.Value=0EndSubFunctionShowFileSize(file)Dimfs,f,sSetfs=CreateObject(“Scripting.FileSystemObject“)Setf=fs.GetFile(file)ShowFileSize=f.Size”s=UCase(f.Name)&“uses“&f.Size&“bytes.“”MsgBoxs,0,“FolderSizeInfo“EndFunction”94208PrivateSubexit_ClickUnloadMeEndSubPrivateSubForm_LoadCheck1.Value=FalseList1.AddItem“DoubleClickToPack“List1.AddItem““List1.AddItem“UPX1.24“List1.AddItem“FSG1.33“List1.AddItem“PEPack“List1.AddItem“ASPack“List1.AddItem“PECompact“List1.AddItem“PE-Diminisher“List1.AddItem“PeXv0.99“List2.AddItem“DoubleClickToProtect“List2.AddItem““List2.AddItem“Krypt“List2.AddItem“UPXScrambler1.05“List2.AddItem“ UPXScrambler1.06 “List2.AddItem“ tElock EndSubPrivateSubImage2_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image10.Visible=TrueIfButton=1ThenDimlinklink=ShellExecute(hWnd,“Open“,““,&O0,&O0,SW_NORMAL)EndIfEndSubPrivateSubImage6_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image2.Visible=TrueEndSubPrivateSubImage6_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image2.Visible=FalseImage6_ClickEndSubPrivateSubImage7_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image10.Visible=TrueEndSubPrivateSubImage7_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Image10.Visible=FalseEndSubPrivateSubLabel5_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenDimlinklink=ShellExecute(hWnd,“Open“,““,&O0,&O0,SW_NORMAL)EndIfEndSubPrivateSubLabel9_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenDimlinklink=ShellExecute(hWnd,“Open“,““,&O0,&O0,SW_NORMAL)EndIfEndSubPrivateSubList1_DblClickIfList1.Text=“ UPX1.24 “ThenShellApp.path&“\components\packers\upx124.exe“&Chr(34)&Text1.Text&Chr(34),vbNormalFocusEndIfIfList1.Text=“ FSG1.33 “ThenShellApp.path&“\components\packers\fsg133.EXE“&Text1.Text,vbNormalFocusEndIfIfList1.Text=“ PEPack “ThenShellApp.path&“\components\packers\pepack.exe“&Chr(34)&Text1.Text&Chr(34),vbNormalFocusEndIfIfList1.Text=“ ASPack “ThenShellApp.path&“\components\packers\aspack.exe“&Text3.Text,vbNormalFocusEndIfEndSubPrivateSubList2_DblClickIfList2.Text=“ Krypt “ThenShellApp.path&“\components\protectors\client.exe“,vbNormalFocusSendKeys“{TAB}“SendKeys“{ENTER}“SendKeysText1.TextSendKeys“{ENTER}“SendKeys“{TAB}“SendKeys“{TAB}“SendKeys“{ENTER}“SendKeysApp.path&“\components\protectors\stub.exe“SendKeys“{ENTER}“EndIfIfList2.Text=“ UPXScrambler1.05 “ThenShellApp.path&“\components\protectors\scramble.exe“&Chr(34)&Text1.Text&Chr(34),vbNormalFocusEndIfIfList2.Text=“ UPXScrambler1.06 “ThenShellApp.path&“\components\protectors\scramble16.exe“&Chr(34)&Text1.Text&Chr(34