Ergebnis:
https://www.virustotal.com/gui/file/a65 ... /detection
wie kann das sein?
das Toolchen zeigt lediglich eine Nutzeroberfläche an und schon Virus Alarm und wird sofort gelöscht
Code: Alles auswählen
;
EnableExplicit
;
;
;
; ReleasePacker Version 2020
;
;
;
;
Enumeration 0 ; Windows
#Wnd
EndEnumeration
Enumeration 0 ; Gadgets
#Con_RAR_Size
#Chk_499_MB
#Part_Size_Custom_TXT
#Txt_1
#Cnt_RarVersion
#Txt_2
#Chk_Winrar_4
#Chk_Winrar_5
#Cnt_Compression
#Txt_3
#Chk_m0
#Chk_m1
#Chk_m2
#Chk_m3
#Chk_m4
#Chk_m5
#Cnt_Name_Eingeben
#Str_ArchivName
#Liste_DragnDrop
#Btn_LoadOwn_Text
#Edi_TextDateien
#Btn_Packen
#Txt_4
#Edi_TextDateien2
#Btn_LoadOwn_Text2
#Edi_TextDateien3
#Btn_LoadOwn_Text3
#RarFile_Custom_ChkBox
#RarFile_Custom
#mb_TXT_Custom
EndEnumeration
Define.l Event, EventWindow, EventGadget, EventType, EventMenu, Files$, Count, i, State
;: Checkbox Text Hindergrund soll andere Farbe bekommen
Global GadgetFrg=#Black, GadgetBkg = CreateSolidBrush_($A0916D)
Global StringFont = LoadFont(#PB_Any, "Lucida", 11, #PB_Font_HighQuality)
Global NormalFont = LoadFont(#PB_Any, "Lucida", 10, #PB_Font_HighQuality)
Global ButtonFont = LoadFont(#PB_Any, "Lucida", 12, #PB_Font_HighQuality)
#IDM_RemoveItem = 101
#BackColor = $A0916D
#TextColor = $312406
;: Prozedur für Checkbox Text Hindergrund soll andere Farbe bekommen
Procedure WindowProc(hWnd, Msg, wParam, lParam)
Protected dia.i
If Msg=#WM_CTLCOLORSTATIC
dia = GetDlgCtrlID_(lparam)
If dia = 0 Or dia = 1 Or dia = 2 Or dia = 3 Or dia = 4 Or dia = 5 Or dia = 6 Or dia = 7 Or dia = 8 Or dia = 9 Or dia = 10 Or dia = 11 Or dia = 12 Or dia = 13 Or dia = 14 Or dia = 15
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,GadgetFrg)
ProcedureReturn GadgetBkg
EndIf
EndIf
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
;: erste Eigene Text Datei laden
Procedure.i Load_OwnText()
Protected File$, Text.s
File$ = OpenFileRequester("Load Scroll Text File", "", "TXT File (*.txt)|*.txt", 0)
If ReadFile(0, File$)
While Not Eof(0)
Text.s + ReadString(0); + #CRLF$
Wend
SetGadgetText(#Edi_TextDateien, Text)
CloseFile(0)
EndIf
EndProcedure
;: zweite Eigene Text Datei laden
Procedure.i Load_OwnText2()
Protected File$, Text.s
File$ = OpenFileRequester("Load Scroll Text File", "", "TXT File (*.txt)|*.txt", 0)
If ReadFile(0, File$)
While Not Eof(0)
Text.s + ReadString(0); + #CRLF$
Wend
SetGadgetText(#Edi_TextDateien2, Text)
CloseFile(0)
EndIf
EndProcedure
;: URL Datei laden
Procedure.i Load_OwnURL()
Protected File$, Text.s
File$ = OpenFileRequester("Load Scroll Text File", "", "TXT File (*.txt)|*.txt", 0)
If ReadFile(0, File$)
While Not Eof(0)
Text.s + ReadString(0); + #CRLF$
Wend
SetGadgetText(#Edi_TextDateien3, Text)
CloseFile(0)
EndIf
EndProcedure
;: StringGadget leeren wenn linksklick mit Maus
Procedure.i Event_StringGadget()
Protected Gadget = EventGadget()
Protected String.s = GetGadgetText(EventGadget())
If EventType() = #PB_EventType_Focus
Select Gadget
Case #Str_ArchivName
If GetGadgetText(Gadget) = "Archiv-Name für RAR Files eingeben"
SetGadgetText(Gadget, "")
EndIf
Case #RarFile_Custom
If GetGadgetText(Gadget) = "50"
SetGadgetText(Gadget, "")
EndIf
EndSelect
EndIf
EndProcedure
Procedure.i Event_Packen()
MessageRequester("DEMO"," Demo Version - Bitte kaufen Sie Ihre Vollversion ", #PB_MessageRequester_Ok)
End
EndProcedure
Procedure Main()
OpenWindow(#Wnd, 1310, 263, 732, 561, "Packing Tool v0.25.2.2020 - 2", #PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_Invisible)
SetWindowColor(#Wnd, #BackColor)
SetWindowCallback(@WindowProc())
;- Container Rar Größe
ContainerGadget(#Con_RAR_Size, 15, 20, 266, 60, #PB_Container_Flat)
SetGadgetColor(#Con_RAR_Size, #PB_Gadget_BackColor, #BackColor)
TextGadget(#Txt_1, 8, 5, 158, 15, "Größe der RAR Archive wählen:")
SetGadgetColor(#Txt_1, #PB_Gadget_FrontColor, #TextColor)
SetGadgetColor(#Txt_1, #PB_Gadget_BackColor, #BackColor)
SetGadgetFont(#Txt_1, FontID(NormalFont))
CheckBoxGadget(#Chk_499_MB, 8, 30, 54, 17, "499 MB")
TextGadget(#Part_Size_Custom_TXT, 80, 31, 71, 13, "| Custom:", #SS_CENTERIMAGE)
SetGadgetColor(#Part_Size_Custom_TXT, #PB_Gadget_FrontColor, RGB(17, 80, 108))
SetGadgetColor(#Part_Size_Custom_TXT, #PB_Gadget_BackColor, RGB(109, 145, 160))
SetGadgetFont(#Part_Size_Custom_TXT, FontID(NormalFont))
;-Checkbox eigene Packgröße eingeben
CheckBoxGadget(#RarFile_Custom_ChkBox, 150, 32, 12, 12, "")
;-Eingabe eigene Packgröße
StringGadget(#RarFile_Custom, 165, 29, 72, 18,"50",#PB_String_BorderLess)
SetGadgetColor(#RarFile_Custom , #PB_Gadget_BackColor, RGB(55, 110, 133))
SetGadgetColor(#RarFile_Custom , #PB_Gadget_FrontColor, RGB(248, 248, 248))
SetGadgetFont(#RarFile_Custom, FontID(StringFont))
BindGadgetEvent(#RarFile_Custom, @Event_StringGadget())
; MB TEXT
TextGadget(#mb_TXT_Custom, 240, 32, 23, 13, "MB")
SetGadgetColor(#mb_TXT_Custom, #PB_Gadget_FrontColor, $312406)
SetGadgetColor(#mb_TXT_Custom, #PB_Gadget_BackColor, RGB(109, 145, 160))
CloseGadgetList()
;- Container Rar Version
ContainerGadget(#Cnt_RarVersion, 15, 90, 266, 30, #PB_Container_Flat)
SetGadgetColor(#Cnt_RarVersion, #PB_Gadget_BackColor, #BackColor)
TextGadget(#Txt_2, 8, 6, 114, 15, "RAR Version:")
SetGadgetColor(#Txt_2, #PB_Gadget_FrontColor, #TextColor)
SetGadgetColor(#Txt_2, #PB_Gadget_BackColor, #BackColor)
SetGadgetFont(#Txt_2, FontID(NormalFont))
CheckBoxGadget(#Chk_Winrar_4, 134, 5, 60, 17, "Winrar 4")
CheckBoxGadget(#Chk_Winrar_5, 198, 5, 60, 17, "Winrar 5")
CloseGadgetList()
;- Container Rar Packmethode
ContainerGadget(#Cnt_Compression, 15, 131, 266, 60, #PB_Container_Flat)
SetGadgetColor(#Cnt_Compression, #PB_Gadget_FrontColor, #TextColor)
SetGadgetColor(#Cnt_Compression, #PB_Gadget_BackColor, #BackColor)
TextGadget(#Txt_3, 8, 5, 243, 16, "Packmethode [0 = schnell | 5 = langsam]:")
SetGadgetColor(#Txt_3, #PB_Gadget_FrontColor, #TextColor)
SetGadgetColor(#Txt_3, #PB_Gadget_BackColor, #BackColor)
SetGadgetFont(#Txt_3, FontID(NormalFont))
CheckBoxGadget(#Chk_m0, 8, 30, 36, 17, "-m0")
CheckBoxGadget(#Chk_m1, 50, 30, 36, 17, "-m1")
CheckBoxGadget(#Chk_m2, 92, 30, 36, 17, "-m2")
CheckBoxGadget(#Chk_m3, 134, 30, 36, 17, "-m3")
CheckBoxGadget(#Chk_m4, 176, 30, 36, 17, "-m4")
CheckBoxGadget(#Chk_m5, 218, 30, 36, 17, "-m5")
CloseGadgetList()
;- Container Rar Filename eingeben
ContainerGadget(#Cnt_Name_Eingeben, 15, 202, 266, 36, #PB_Container_Flat)
SetGadgetColor(#Cnt_Name_Eingeben, #PB_Gadget_FrontColor,RGB(0, 0, 0))
SetGadgetColor(#Cnt_Name_Eingeben, #PB_Gadget_BackColor, #BackColor)
StringGadget(#Str_ArchivName, 3, 8, 258, 18, "Archiv-Name für RAR Files eingeben", #PB_String_BorderLess)
SetGadgetColor(#Str_ArchivName, #PB_Gadget_BackColor, RGB(55, 110, 133))
SetGadgetColor(#Str_ArchivName , #PB_Gadget_FrontColor, RGB(248, 248, 248))
SetGadgetFont(#Str_ArchivName, FontID(StringFont))
BindGadgetEvent(#Str_ArchivName, @Event_StringGadget())
CloseGadgetList()
;: erste Text Datei laden
TextGadget(#Txt_4, 310, 20, 300, 17, "eigene Text und URL Datei schreiben oder einfügen:")
SetGadgetColor(#Txt_4, #PB_Gadget_FrontColor, #TextColor)
SetGadgetColor(#Txt_4, #PB_Gadget_BackColor, #BackColor)
SetGadgetFont(#Txt_4, FontID(NormalFont))
EditorGadget(#Edi_TextDateien, 310, 45, 405, 100, #PB_Editor_WordWrap)
SetGadgetText(#Edi_TextDateien,"")
SendMessage_(GadgetID(#Edi_TextDateien), #EM_SETMARGINS, #EC_LEFTMARGIN, 5|0 << 16)
SendMessage_(GadgetID(#Edi_TextDateien), #EM_SETMARGINS, #EC_RIGHTMARGIN, 0|10 << 16)
;BindGadgetEvent(#Str_ArchivName, @Event_StringGadget(), #PB_EventType_LeftClick)
ButtonGadget(#Btn_LoadOwn_Text, 310, 155, 405, 30, "erste Text Datei laden")
SetGadgetFont(#Btn_LoadOwn_Text, FontID(ButtonFont))
BindGadgetEvent(#Btn_LoadOwn_Text, @Load_OwnText(), #PB_EventType_LeftClick)
;: zweite Text Datei laden
EditorGadget(#Edi_TextDateien2, 310, 195, 405, 100, #PB_Editor_WordWrap)
SetGadgetText(#Edi_TextDateien2,"")
SendMessage_(GadgetID(#Edi_TextDateien2), #EM_SETMARGINS, #EC_LEFTMARGIN, 5|0 << 16)
SendMessage_(GadgetID(#Edi_TextDateien2), #EM_SETMARGINS, #EC_RIGHTMARGIN, 0|10 << 16)
;BindGadgetEvent(#Str_ArchivName, @Event_StringGadget(), #PB_EventType_LeftClick)
ButtonGadget(#Btn_LoadOwn_Text2, 310, 305, 405, 30, "zweite Text Datei laden")
SetGadgetFont(#Btn_LoadOwn_Text2, FontID(ButtonFont))
BindGadgetEvent(#Btn_LoadOwn_Text2, @Load_OwnText2(), #PB_EventType_LeftClick)
;: URL Text Datei laden
EditorGadget(#Edi_TextDateien3, 310, 345, 405, 100, #PB_Editor_WordWrap)
SetGadgetText(#Edi_TextDateien3,"")
SendMessage_(GadgetID(#Edi_TextDateien3), #EM_SETMARGINS, #EC_LEFTMARGIN, 5|0 << 16)
SendMessage_(GadgetID(#Edi_TextDateien3), #EM_SETMARGINS, #EC_RIGHTMARGIN, 0|10 << 16)
;BindGadgetEvent(#Str_ArchivName, @Event_StringGadget(), #PB_EventType_LeftClick)
ButtonGadget(#Btn_LoadOwn_Text3, 310, 455, 405, 30, "URL Datei laden")
SetGadgetFont(#Btn_LoadOwn_Text3, FontID(ButtonFont))
BindGadgetEvent(#Btn_LoadOwn_Text3, @Load_OwnURL(), #PB_EventType_LeftClick)
ListIconGadget(#Liste_DragnDrop, 15, 250, 267, 237, "Dateien zum packen per Drag n Drop hier einfügen", 262)
SetGadgetColor(#Liste_DragnDrop , #PB_Gadget_BackColor, RGB(55, 110, 133)) ;TEXT Background Color
SetGadgetColor(#Liste_DragnDrop , #PB_Gadget_FrontColor, RGB(248, 248, 248));TEXT Color
EnableGadgetDrop(#Liste_DragnDrop, #PB_Drop_Files, #PB_Drag_Copy)
ButtonGadget(#Btn_Packen, 15, 505, 700, 45, "rar Archive erstellen")
SetGadgetFont(#Btn_Packen, FontID(ButtonFont))
BindGadgetEvent(#Btn_Packen, @Event_Packen(), #PB_EventType_LeftClick)
HideWindow(#Wnd,#False)
EndProcedure
Main()
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_GadgetDrop
Select EventGadget()
Case #Liste_DragnDrop
Files$ = EventDropFiles()
Count = CountString(Files$, Chr(10)) + 1
For i = 1 To Count
AddGadgetItem(#Liste_DragnDrop, -1, StringField(Files$, i, Chr(10)))
Next i
Case #PB_Key_Delete
ClearGadgetItems(#Liste_DragnDrop)
EndSelect
EndIf
Select Event
Case #PB_Event_CloseWindow
End
EndSelect
;: ENTFERNE EINTRÄGE AUS DRAG & DROP FELD MIT ENTFERNEN TASTE
If Event = #PB_Event_Gadget
If GetActiveGadget() = #Liste_DragnDrop
AddKeyboardShortcut(#Wnd,#PB_Shortcut_Delete,#IDM_RemoveItem)
Else
RemoveKeyboardShortcut(#Wnd,#PB_Shortcut_Delete)
EndIf
EndIf
If Event = #PB_Event_Menu
Select EventMenu()
Case #IDM_RemoveItem
State = GetGadgetState(#Liste_DragnDrop)
If State > -1 : RemoveGadgetItem(#Liste_DragnDrop,State) : EndIf
EndSelect
EndIf
ForEver
DeleteObject_(GadgetBkg)