Tag!
Das ist die neue Version von dem bereits bekannten Registry-Patcher, der ja, kp warum, von vielen verdächtigt wurde. diesmal, bei dieser neuen und verbesserten version, wird das anders sein, da es diesmal OpenSource ist. nach wie vor in VB6 gecoded.
Es patcht die Registry-Einträge, sodass WoW nicht über den Launcher gestartet wird.
Features:
* Startscreen (Flashscreen)
* Schönere Oberfläche
* Funktion, dass der Launcher umgangen wird
* "Standard-wiederherstellen"-Funktion
Hier wieder ein paar screens:
http://karnerchen.bplaced.net/Screen.jpg
http://home.arcor.de/karnerchen/OrangeVirus/Screen2.jpg
Das Programm gibts hier zu Downloaden: http://karnerchen.bplaced.net/OrangeVir ... atcher.exe
und der source folgt, wie versprochen, hier:
Das eigentliche Programm:
| | | | Public Class Form1
Dim WSHShell As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Programme\World of Warcraft\WoW.exe")
Process.Start("http://home.arcor.de/karnerchen/OrangeVirus/index.htm")
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Program Files\World of Warcraft\WoW.exe")
Process.Start("http://home.arcor.de/karnerchen/OrangeVirus/index.htm")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Programme\World of Warcraft\Launcher.exe")
WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\GamePath", "C:\Program Files\World of Warcraft\Launcher.exe")
MsgBox("Standard erfolgreich wieder hergestellt!")
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
AboutBox1.Show()
End Sub
End Class | |  | |  |
|
Der Splashscreen:
| | | | Public NotInheritable Class SplashScreen1
Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
End Class | | | | |
|
About:
| | | | Public NotInheritable Class AboutBox1
Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub LabelVersion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://ovi.orangevir.us/")
End Sub
End Class | | | | |
|
wenn wer auch noch die designer dateien haben will, bitte per pn anfragen oder hier posten. jetzt kann keiner mehr sagen er würde den source nicht kennen!
hier noch ein virenscan von VirusTotal.com:
http://karnerchen.bplaced.net/Scan.jpg
| | | | Datei OrangeVirus__-Patcher.exe empfangen 2008.02.21 20:08:36 (CET)
Status: Laden ... Wartend Warten Überprüfung Beendet Nicht gefunden Gestoppt
Ergebnis: 0/32 (0%)
Laden der Serverinformationen...
Ihre Datei wartet momentan auf Position: ___.
Geschätzte Startzeit is zwischen ___ und ___ .
Dieses Fenster bis zum Abschluss des Scans nicht schließen.
Der Scanner, welcher momentan Ihre Datei bearbeitet ist momentan gestoppt. Wir warten einige Sekunden um Ihr Ergebnis zu erstellen.
Falls Sie längern als fünf Minuten warten, versenden Sie bitte die Datei erneut.
Ihre Datei wird momentan von VirusTotal überprüft,
Ergebnisse werden sofort nach der Generierung angezeigt.
Filter Filter
Drucken der Ergebnisse Drucken der Ergebnisse
Datei existiert nicht oder dessen Lebensdauer wurde überschritten
Dienst momentan gestoppt. Ihre Datei befindet sich in der Warteschlange (position: ). Diese wird abgearbeitet, wenn der Dienst wieder startet.
SIe können auf einen automatischen reload der homepage warten, oder ihre email in das untere formular eintragen. Klicken Sie auf "Anfragen", damit das System sie benachrichtigt wenn die Überprüfung abgeschlossen ist.
Email:
Antivirus Version letzte aktualisierung Ergebnis
AhnLab-V3 2008.2.22.0 2008.02.21 -
AntiVir 7.6.0.67 2008.02.21 -
Authentium 4.93.8 2008.02.21 -
Avast 4.7.1098.0 2008.02.20 -
AVG 7.5.0.516 2008.02.21 -
BitDefender 7.2 2008.02.21 -
CAT-QuickHeal 9.50 2008.02.21 -
ClamAV 0.92.1 2008.02.21 -
DrWeb 4.44.0.09170 2008.02.21 -
eSafe 7.0.15.0 2008.02.21 -
eTrust-Vet 31.3.5552 2008.02.21 -
Ewido 4.0 2008.02.21 -
FileAdvisor 1 2008.02.21 -
Fortinet 3.14.0.0 2008.02.21 -
F-Prot 4.4.2.54 2008.02.20 -
F-Secure 6.70.13260.0 2008.02.21 -
Ikarus T3.1.1.20 2008.02.21 -
Kaspersky 7.0.0.125 2008.02.21 -
McAfee 5234 2008.02.20 -
Microsoft 1.3204 2008.02.20 -
NOD32v2 2893 2008.02.21 -
Norman 5.80.02 2008.02.21 -
Panda 9.0.0.4 2008.02.21 -
Prevx1 V2 2008.02.21 -
Rising 20.32.32.00 2008.02.21 -
Sophos 4.26.0 2008.02.21 -
Sunbelt 3.0.884.0 2008.02.21 -
Symantec 10 2008.02.21 -
TheHacker 6.2.9.225 2008.02.21 -
VBA32 3.12.6.1 2008.02.21 -
VirusBuster 4.3.26:9 2008.02.21 -
Webwasher-Gateway 6.6.2 2008.02.21 -
weitere Informationen
File size: 712192 bytes
MD5: 2fd31049d59474ca18404cdb42a59eae
SHA1: 596f677881a060ddc52fe75ed6d04920ee5c9af7
PEiD: - | | | | |
|
das wärs fürs erste 
Ciao!
|
(
