Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Kulverstukas

Pages: 1 ... 68 69 [70] 71 72 ... 372
1036
Weekly challenge / Re: Challenge 20 - Local Reference
« on: June 29, 2014, 12:31:47 pm »
Challenges should go here :)

1037
Game Hacking & Modding & Discussing / Re: Help with Resident Evil 6 .
« on: June 29, 2014, 10:19:01 am »
Moved.

@OP: It seems to me that the game executable or whole game might be fucked. Since you say you downloaded it via torrents, then it is very likely it was fucked. Try and read in the torrent comments to see if anyone else have this same problem.
That said there's not much that can be done. Try running in compatibility mode or download another. Or better yet just get an xbox?

1038
Try splitting it up and use Mediafire.

1039
Thanks for that :) you can put the nickname or just say thanks, whatever is better for you...

1040
General discussion / Re: Still alive, for now; [damn women]
« on: June 28, 2014, 07:12:42 pm »
/drama

get it straight, EZ won't fall apart until then :P

1041
VB - VB.NET - C# - C++.NET / Re: [C#] VirusTotal Scanner 0.1
« on: June 27, 2014, 05:36:30 pm »
You really need to loose the shitty interface design bro, it makes your otherwise good tools look like complete shit.

1043
Snippets, Evilzone releases / Re: Anti EZ Portal links
« on: June 26, 2014, 09:03:04 pm »
Thank you, daxda. I will use it.

1044
Members introduction / Re: The Irish Rasta - Introduction.
« on: June 26, 2014, 09:01:46 pm »
Oh wow, a weed smoking anonymouse fan. How convenient. Your website is shit btw, as is your intro. Write a better one or don't post at all.

1045
Another VBScript I produced, this time it’s to change the wallpaper. Well, we have a lot of computers used in classes and we decided it’s enough already to show off that shitty Windows background and replace it with our own wallpaper. Group Policy wasn’t much help – it allowed to change the wallpaper, however it would change for everyone, all the time and wouldn’t let people to change it back – what the hell Microsoft? Because of this I made a workaround – a VBScript to change the wallpaper but only once and let people change it back. Put this into the domain’s logoff script and done. In the morning they’ll have a fresh desktop :D
It works very simply – reads a custom registry key which contains 1 if the script has ran already and if it exists and data is valid (1 for true) the script exits. Otherwise it proceeds to download a wallpaper (has to be in BMP format, otherwise WinXP will not understand wtf you are giving it), sets it as a background, makes it stretch and if everything went fine, writes that control registry key so it knows that it has done shit before on this computer.
That’s basically it, very simple. Can be downloaded from here and of course the code for quick review is below.

Code: Visual Basic
  1. '======================================================
  2. '   Author: Kulverstukas
  3. '   Date: 2014.06.24
  4. '   Description:
  5. '       Downloads and changes the wallpaper for current user,
  6. '       but it only takes effect after the user has logged on
  7. '       the second time. The script changes the wallpaper only
  8. '       once and users can change it back.
  9. '======================================================
  10. Function DownloadWallpaper(fromWhere, toWhere)
  11. Set xHttp = createobject("Microsoft.XMLHTTP")
  12. Set bStrm = createobject("Adodb.Stream")
  13. xHttp.Open "GET", fromWhere, False
  14. xHttp.Send
  15.  
  16. With bStrm
  17.     .type = 1 ' binary
  18.    .open
  19.     .write xHttp.responseBody
  20.     .savetofile toWhere, 2 ' overwrite
  21. End With
  22. End Function
  23. '======================================================
  24.  
  25. Set wshShell = CreateObject("WScript.Shell")
  26.  
  27. ' check if wallpaper was changed once
  28. On Error Resume Next
  29. value = WSHShell.RegRead(WallpaperChangedOnceKey)
  30.  
  31. ' do this only if there is no key, or the key contains invalid data
  32. If ((err.number <> 0) Or (value <> 1)) Then
  33.     fullPath = wshShell.ExpandEnvironmentStrings("%USERPROFILE%\awesomeWallpaper.bmp")
  34.     DownloadWallpaper "http://localhost/awesomeWallpaper.bmp", fullPath
  35.     wshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", fullPath, "REG_SZ"
  36.     wshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2", "REG_SZ"
  37.     wshShell.RegWrite "HKCU\ish\WallpaperChangedOnce", 1, "REG_DWORD"
  38. End If

1046
General discussion / Re: I will be "afk" for a while
« on: June 26, 2014, 07:18:58 pm »
uhm... you will be missed, I guess.

1047
Hacking and Security / Re: Bugcrowd open bugbounty platform
« on: June 26, 2014, 07:17:35 pm »
Indeed that sucks, noncetonic. So it's for large projects it seems... too bad :P

1048
Snippets, Evilzone releases / Re: Anti EZ Portal links
« on: June 26, 2014, 07:12:02 pm »
It's like an alternative... if people don't like the portal, they can just use this script, for others who like the portal... well, don't use this script?

1049
Hacking and Security / Re: Bugcrowd open bugbounty platform
« on: June 26, 2014, 01:36:04 pm »
That's very cool. What if I want to publish my app to be reviewed?

1050
At work we had to change the homepage of all browsers for students for convenience reasons and so I wrote this VBScript, which is my first ever, so it could be made better maybe, but it works great – I seem to fall in love with it :D . I only wrote the script to change Firefox, Chrome and InternetExploder settings, because only those browsers are available on computers accessible to students.
The script was put in the Logon script of our Domain to run every time a user logs in.
Whole script can be downloaded from here and I’m posting the code for quick review :)

Code: Visual Basic
  1. '=================================================
  2. '   Author: Kulverstukas
  3. '   Date: 2014.06.23
  4. '   Description:
  5. '       Changes the homepage for 3 most used browsers: Firefox, Chrome and IE.
  6. '       Could be added to a Logon script on a domain to do it every time user logs on.
  7. '=================================================
  8.  
  9. Set wshShell = CreateObject("WScript.Shell")
  10. Set objFS = CreateObject("Scripting.FileSystemObject")
  11.  
  12. '================= Firefox Block =================
  13. Const ffFile = "\prefs.js"
  14. Const ffTemp = "\prefs1.js"
  15. Const homePageSubStr = """browser.startup.homepage"""
  16. Const homePagePref = "user_pref(""browser.startup.homepage"", ""http://localhost/"");"
  17. Const showHomepageSubStr = """browser.startup.page"""
  18. Const showHomepagePref = "user_pref(""browser.startup.page"", 1);"
  19. Const ffDir = "%appdata%\Mozilla\Firefox\Profiles"
  20. foundHomePage = False
  21. foundShowHomePage = False
  22.  
  23. If (objFS.FolderExists(wshShell.ExpandEnvironmentStrings(ffDir))) Then
  24.     Set profiles = objFS.GetFolder(wshShell.ExpandEnvironmentStrings(ffDir)).SubFolders
  25.     For Each profile in profiles  ' change the homepage for every profile we can find
  26.        Set textStream = objFS.GetFile(profile & ffFile).OpenAsTextStream(1, -2)
  27.         Set objOutFile = objFS.CreateTextFile(profile & ffTemp, True)
  28.         Do Until textStream.AtEndOfStream
  29.             strLine = textStream.ReadLine
  30.             If (InStr(strLine, homePageSubStr) > 0) Then
  31.                 objOutFile.WriteLine(homePagePref)
  32.                 foundHomePage = True
  33.             Else If (InStr(strLine, showHomepageSubStr) > 0) Then
  34.                 objOutFile.WriteLine(showHomepagePref)
  35.                 foundShowHomePage = True
  36.             Else
  37.                 objOutFile.WriteLine(strLine)
  38.             End If
  39.             End If
  40.         Loop
  41.         ' append the configs if these lines were not found
  42.        If (foundHomePage = False) Then
  43.             objOutFile.WriteLine(homePagePref)
  44.         End If
  45.         If (foundShowHomePage = False) Then
  46.             objOutFile.WriteLine(showHomepagePref)
  47.         End If
  48.  
  49.         objOutFile.Close()
  50.         textStream.Close()
  51.         objFS.DeleteFile(profile & ffFile)
  52.         objFS.MoveFile profile & ffTemp, profile & ffFile
  53.     Next
  54. End If
  55.  
  56. '================= Chrome  Block =================
  57. Const chromeFile = "\Preferences"
  58. Const chromeTempFile = "\Preferences1"
  59. Const sessionRestoreSubStr = """restore_on_startup"""
  60. Const sessionRestorePref = "      ""restore_on_startup"": 4,"
  61. Const sessionStartupUrlSubStr = """startup_urls"""
  62. Const sessionStartupUrlPref = "      ""startup_urls"": [ ""http://localhost/"" ],"
  63. Const chromeDirVista = "%localappdata%\Google\Chrome\User Data\Default"
  64. Const chromeDirXP = "%userprofile%\Local Settings\Application Data"
  65. Const strComputer = "."
  66. Const vistaVer = "6.1"
  67. Const xpVer = "5.1"
  68.  
  69. ' we must detect the system here so that we can know what path to take
  70. Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
  71. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  72. Set oss = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  73. finalDir = ""
  74. For Each os in oss ' could be better I suppose than this I guess :P
  75.    If (InStr(os.Version, xpVer) > 0) Then
  76.         finalDir = wshShell.ExpandEnvironmentStrings(chromeDirXP)
  77.     Else If (InStr(os.Version, vistaVer) > 0) Then
  78.         finalDir = wshShell.ExpandEnvironmentStrings(chromeDirVista)
  79.     End If
  80.     End If
  81. Next
  82. If (objFS.FileExists(finalDir & chromeFile)) Then
  83.     Set textStream = objFS.GetFile(finalDir & chromeFile).OpenAsTextStream(1, -2)
  84.     Set objOutFile = objFS.CreateTextFile(finalDir & chromeTempFile, True)
  85.     ' business as usual...
  86.    Do Until textStream.AtEndOfStream
  87.         strLine = textStream.ReadLine
  88.         If (InStr(strLine, sessionRestoreSubStr) > 0) Then
  89.             objOutFile.WriteLine(sessionRestorePref)
  90.         Else If (InStr(strLine, sessionStartupUrlSubStr) > 0) Then
  91.             objOutFile.WriteLine(sessionStartupUrlPref)
  92.         Else
  93.             objOutFile.WriteLine(strLine)
  94.         End If
  95.         End If
  96.     Loop
  97.     objOutFile.Close()
  98.     textStream.Close()
  99.     objFS.DeleteFile(finalDir & chromeFile)
  100.     objFS.MoveFile finalDir & chromeTempFile, finalDir & chromeFile
  101. End If
  102.  
  103. '================= Internet Explorer Block =======
  104. wshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://localhost/", "REG_SZ"
  105. wshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\RunOnceHasShown", "1", "REG_DWORD"
  106. wshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\RunOnceComplete", "1", "REG_DWORD"

Pages: 1 ... 68 69 [70] 71 72 ... 372


Intern0t SoldierX SecurityOverride programisiai
Want to be here? Contact Ande, Factionwars or Kulverstukas on the forum or at IRC.