Influx

I was wonderign if there was a function to update a file's file version, product name, copyright, language, and other resources?

..... next post on this topic will earn you a permanent ban.

could someone please decompile.... link removed... and send me the source code. The source was on a flash drive that I lost. I have some other applications too, so I wouldn't mind if you taught me how to decompile them.

also I want sure where to put this, so i put it in help, if it should be in example scripts, would a mod please move it there?

unfortunately I lost my flash drive with all the work I have done over about the past month. Therefore I have decided to make GOSIP an open source community project. this means anyone can submit modification and additions, a project by the people for the people. A forum for GOSIP is on the way. some specifications are: -Needs to replicate mutli threading by using multiple process that interchange data using $WM_COPY (http://www.autoitscript.com/forum/index.php?showtopic=52198 ) -needs to have a functioning desktop -each gui must have it own process -must search and index files -must have a vista like look -desktop must be usable, must be fully featured shell Have fun everyone, everyone that helps regardless of how big or small will be credited. All code to date: main code: ; *** Start added by AutoIt3Wrapper *** #include <ButtonConstants.au3> ; *** End added by AutoIt3Wrapper *** #RequireAdmin #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Version=beta #AutoIt3Wrapper_icon=favicon.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=GOSIP - Great Outstanding Shell In Perfection #AutoIt3Wrapper_Res_Description=GOSIP - Great Outstanding Shell In Perfection #AutoIt3Wrapper_Res_Fileversion=0.0.1.13 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y #AutoIt3Wrapper_Res_LegalCopyright=On Demand Programmers Of America #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable #AutoIt3Wrapper_Add_Constants=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** ; *** Start added by AutoIt3Wrapper *** #include <MenuConstants.au3> ; *** End added by AutoIt3Wrapper *** #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <DateTimeConstants.au3> #include <StaticConstants.au3> Opt("GUIOnEventMode", 1) FileInstall("start.gif", "start.gif") FileInstall("bar.bmp", "bar.bmp") $width = @DesktopWidth $height = @DesktopHeight ;================== ;start menu ;================== $gui2 = guicreate("Start Menu[CL:102938]", $width/4, $height/2, 0, $height/2.141, $WS_POPUP,BitOr($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST)) GUICtrlCreatePic(@ScriptDir & "/bar.bmp", 0, 0, $width/4, $height/2) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel(@username, $width/4-_string_estimated_length(@username)-5, 10, _string_estimated_length(@username)) GUICtrlSetColor(-1, 0xffffff) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUISetBkColor(0x000000) ;================== ;start bar ;================== GUICreate("Start[CL:102939]", $width, 40, 0, $height - 30, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUICtrlCreatePic(@ScriptDir & "/bar.bmp", 0, 0, $width, 40) GUICtrlSetState(-1, $GUI_DISABLE) ;GUICtrlCreateIcon("start.ico", "start.ico", 5, -3, 40, 43) $l1 = GUICtrlCreateLabel("00:00:00", $width - 100, 10, 90) GUICtrlSetOnEvent(-1, "_exit") GUICtrlSetColor(-1, 0xffffff) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreatePic("start.gif", 12.5, 0, 30, 30) GUICtrlSetOnEvent(-1, "_start") GUISetState() GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND") ;~ FileDelete("start.gif") ;~ FileDelete("bar.bmp") dim $x[500] $var = WinList() ConsoleWrite($var[0][0]) $c = ($width-150)/20 For $i = 1 to $var[0][0] ; Only display visble windows that have a title If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then $x[$i] = GUICtrlCreatebutton($var[$i][0], $c, 5, ($width-150)/20, 20) GUICtrlSetOnEvent(-1, "pushed") ; GUICtrlSetColor(-1, 0xffffff) ;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetTip(-1, $var[$i][0]) $c=$c+($width-150)/20 EndIf Next while 1 sleep(500) GUICtrlSetData($l1, time12hr()) $spos = WinGetPos("Start[CL:102939]", "") if $spos[0] <> 0 Then mouseup("left") WinMove("Start[CL:102939]","", 0, $height-30) EndIf if $spos[1] <> $height-30 Then mouseup("left") WinMove("Start[CL:102939]","", 0, $height-30) EndIf WEnd func _start() if WinGetState("Start Menu[CL:102938]") = 5 Then GUISetState(@SW_SHOW, $gui2) Else GUISetState(@SW_HIDE, $gui2) EndIf EndFunc func _string_estimated_length($String) return StringLen($string)*6.3 EndFunc func _exit() Exit EndFunc Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam) If BitAND($wParam, 0x0000FFF0) = $SC_MOVE Then Return False Return $GUI_RUNDEFMSG EndFunc Func IsVisible($handle) If BitAnd( WinGetState($handle), 2 ) Then Return 1 Else Return 0 EndIf EndFunc Func time12hr() $iHour = @HOUR $iMin = @MIN $iSec = @SEC $sAMPM = "AM" If $iHour >= 12 Then $sAMPM = "PM" If $iHour = 00 Then $iHour = 12 If $iHour > 12 Then $iHour -= 12 Return $iHour & ":" & $iMin & ":" & $iSec & " "& $sAMPM EndFunc func pushed() ;WinActivate(GUICtrlRead($x[@GUI_Ctrlid-1])) WinActivate(GUICtrlRead($x[@GUI_Ctrlid])) EndFunc start bar: bar.bmp start button:

>.> I know the IE functions dont work because the call off the COM object. I need a DLL of some sort, the only reason this com object wont work is because its not pre-included in WINE's DLL library, so I can still create the object will a DLL of a Mozilla object. Anyone know a DLL that can create the mozilla com object?

I want to run a support application under wine window emulator. I want the chat window to use html for highlighting(unelss someone can show me how to make a scrolling control where I can change individual font color) is there a DLL for this, and what would i need to do to get the com object?

I would like a command line option because I have made my own compiler that has lots of custom features, and i would like to add an "execute from memory" checkbox in. =]

yes it doesnt have a icon, and yes its a few kb more, this works perfect for me. is there anyway you can make it accept command line? for example: efmc in out encrypt where in is the in file out is the fiel to create and encryption is 1 to encrypt and 0 to not encrypt?

stringinstr is extremely slow stringregularex is much faster however I have failed to make a working example yet.

also in case you all want to know, this pulls a string of binary from the .exe and stores it in a database, then scans that by the contents of the selected file.

very nice with the modification use stringregex howeveer i added a file to the database (in the .ini and the .txt) scanned the file and it wasnt detected, so something is not right. also here is updated GUI thanks to ashley(will also be infirst post) #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Version=Beta #AutoIt3Wrapper_Icon=C:\Users\GoTTsProfeT\Downloads\counterstrike-3.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=NoVirus AntiVirus #AutoIt3Wrapper_Res_Description=NoVirus AntiVirus #AutoIt3Wrapper_Res_Fileversion=0.0.1.29 #AutoIt3Wrapper_Res_LegalCopyright=On Demand Programmers Of America #AutoIt3Wrapper_Res_Language=1033 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <string.au3> $GUI = GUICreate("No Virus", 562, 403) GUISetFont(10, 400, 0, "Papyrus") $Label1 = GUICtrlCreateLabel("No Virus", 216, 16, 133, 55) GUICtrlSetFont(-1, 24, 400, 0, "Papyrus") $Label2 = GUICtrlCreateLabel("Please select a file to scan! Either type the file path in the box provided below or click Browse", 8, 80, 545, 25) $Filepath = GUICtrlCreateInput("", 16, 112, 345, 29) $Browse = GUICtrlCreateButton("Browse", 376, 112, 75, 25, 0) $Scanbutton = GUICtrlCreateButton("Scan File!", 464, 112, 75, 25, 0) $Fileinfofeilds = GUICtrlCreateGroup("File info:", 16, 152, 529, 161) $Filepathlable = GUICtrlCreateLabel("File path:", 32, 184, 490, 25) $Filesizelable = GUICtrlCreateLabel("File size:", 32, 216, 490, 25) $Virustypelable = GUICtrlCreateLabel("Virus type:", 32, 280, 490, 25) $Filestatuslable = GUICtrlCreateLabel("File status:", 32, 248, 490, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) $Scaninfofeilds = GUICtrlCreateGroup("Scan info:", 16, 320, 529, 65) $Timetakenlable = GUICtrlCreateLabel("Time taken to preform scan:", 32, 352, 490, 25) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) If $cmdline[0] > 0 Then GUICtrlSetData($Filepath, StringRegExpReplace($cmdlineraw, '"', '')) ControlClick("No Virus", "", "Scanbutton") EndIf $flag = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Browse GUICtrlSetData($Filepath, FileOpenDialog("Select a File to Scan", @WorkingDir, "All Files(*.*)")) Case $Scanbutton ProgressOn("Scanning File", "Scanning Requested File", "Scanning " & GUICtrlRead($Filepath)) $timer = TimerInit() $test = Binary(FileRead(GUICtrlRead($Filepath))) ProgressSet(40) $database = FileRead(@ScriptDir & "\database.viri") ProgressSet(46) $db = StringSplit($database, ";") ProgressSet(50) $xy = UBound($db) - 2 For $i = 1 To UBound($db) - 2 ProgressSet($i / $xy * 100 + 50) ConsoleWrite($i / $xy * 100 & @CRLF) $db2 = StringSplit($db[$i], "=") If StringInStr($test, _StringEncrypt(0, $db2[2], "odpoaviri"), 1, 1) Then GUICtrlSetData($Filepathlable, 'File path: ' & GUICtrlRead($Filepath)) GUICtrlSetData($Filestatuslable, 'File status: Infected') GUICtrlSetData($Virustypelable, 'Virus type: ' & $db2[1]) GUICtrlSetData($Filesizelable, "File size: " & FileGetSize(GUICtrlRead($Filepath)) & ' Bytes') GUICtrlSetData($Timetakenlable, 'Time taken to preform scan: ' & StringLeft(TimerDiff($timer) / 1000, 10) & ' Seconds') $flag = 1 ExitLoop EndIf Next ProgressOff() If $flag = 1 Then MsgBox(16, "Complete", "Scan Completed") $flag = 0 Else GUICtrlSetData($Filepathlable, 'File path: ' & GUICtrlRead($Filepath)) GUICtrlSetData($Filestatuslable, 'File status: Not infected!') GUICtrlSetData($Virustypelable, 'Virus type: N/A') GUICtrlSetData($Filesizelable, "File size: " & FileGetSize(GUICtrlRead($Filepath)) & ' Bytes') GUICtrlSetData($Timetakenlable, 'Time taken to preform scan: ' & StringLeft(TimerDiff($timer) / 1000, 10) & ' Seconds') MsgBox(64, "Complete", "Scan Completed") EndIf EndSwitch WEnd

Thanks for telling me that, however, the encryption itself has a 10 millisecond difference. secondly I do not know who to use string regular expression or and string expressions or formatting. Also this would still be extremely slow compared to a C++ DLL.

hah.... I have no idea how to replicate the splitting and comparison of stings in C++ and then make it in to a DLL or how to even call off that DLL although for someone who knows C++ such a task doesn't seem as if it would be so hard. (I am still learning) so could someone please make a .dll and share the source so I can expand my knowledge? thanks, Influx

I was wondering... speed wise, lets say it takes 300 seconds to scan a file by 6000 signatures in autoit. Now if I wrote the same thing in C++ it might take... 4 or 5 seconds. If I made the C++ code and turned it into a DLL and just called the DLL would it mean that autoit could therefore preform the scan and retreive the results from the dll in 4 or 5 seconds? thanks, influx