S="The sample is in a password protected ZIP file."+#CRLF$+"The password for the attachment is : infected."+#CRLF$+"This file is FALSE positive !"+#CRLF$+"Sample sender by FPSubmit"įrameGadget(#Frame3D_10, 5, 165, 385, 45, "File to submit") GadgetToolTip(#button_view,"Show password")įrameGadget(#Frame3D_3, 5, 60, 300, 45, "Sender Mail") MenuItem(#Menu_Window_0_Quitter, "&Quit") If CreateImageMenu(#Menu_Window_0, WindowID(#Window_0),#PB_Menu_ModernLook) If OpenWindow(#Window_0, 421, 192, 400, 450, "FPSubmit 1.0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_Invisible) If GetWindowState(#Window_0)=#PB_Window_Minimize ResizeGadget(#button_send,#PB_Ignore,y-70,#PB_Ignore,#PB_Ignore) ResizeGadget(#button_zip,x-45,#PB_Ignore,#PB_Ignore,#PB_Ignore) ResizeGadget(#Button_filesel,x-80,#PB_Ignore,#PB_Ignore,#PB_Ignore) ResizeGadget(#String_file,#PB_Ignore,#PB_Ignore,x-110,#PB_Ignore) ResizeGadget(#String_mail,#PB_Ignore,#PB_Ignore,x-120,#PB_Ignore) Slf= OpenFileRequester("Select file", fdef, Filtre, 0) WritePreferenceString("port",GetGadgetText(#String_port)) WritePreferenceString("smtp",GetGadgetText(#String_smtp)) WritePreferenceString("mail",GetGadgetText(#String_mail)) WritePreferenceString("pw",GetGadgetText(#String_pw)) WritePreferenceString("username",GetGadgetText(#String_user)) WritePreferenceInteger("left",WindowY(#window_0)) WritePreferenceInteger("top",WindowX(#window_0)) SetWindowState(#Window_0,#PB_Window_Normal) If GetWindowState(#Window_0) #PB_Window_Normal MessageRequester("FPSubmit", "Can't sent the mail !",#PB_MessageRequester_Error)įnme=GetPathPart(ProgramFilename())+GetFilePart(ProgramFilename(),#PB_FileSystem_NoExtension)+".ini" MessageRequester("FPSubmit", "Mail correctly sent !",#PB_MessageRequester_Info) Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error Result = SendMail(0, smtp, port,#PB_Mail_Asynchronous) Result = SendMail(0, smtp, port,#PB_Mail_Asynchronous|#PB_Mail_UseSSL, user, pw) MessageRequester("FPSubmit","File not find !",#PB_MessageRequester_Error)ĪddMailRecipient(0, listav(), #PB_Mail_To) If AddMailAttachment(0,"Sample file",file,"application/zip")=0 If CreateMail(0, mail, "Suspicious File Submission") MessageRequester("FPSubmit","Send only zip file !",#PB_MessageRequester_Error) MessageRequester("FPSubmit","Missing parameter : cant send sample !",#PB_MessageRequester_Error) If mail="" Or body="" Or smtp="" Or port=0 Or user="" Or pw="" Or file="" Protected mail.s,smtp.s,port,user.s,pw.s, file.s Namezipfile$=GetPathPart(fn)+GetFilePart(fn,#PB_FileSystem_NoExtension)+".zip"ĬmdLine$ = "a -t"+typ+" "+cp+" -p"+password+" -ir!" + #DQUOTE$ + fn + #DQUOTE$ + " " + #DQUOTE$ + namezipfile$+ #DQUOTE$ Path7zip=GetPathPart(ProgramFilename())+"7-zip64.dll" Path7zip=GetPathPart(ProgramFilename())+"7-zip32.dll" Protected namezipfile$, password.s,cp.s,typ.sĬompilerIf #PB_Compiler_Processor=#PB_Processor_x86 Protected path7zip.s, OutputAnsi.s, CmdLine$, s.s, *cmd
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |