jungs das ist bereits .net code
ihr meint wahrscheinlich eine vb.net version
kann ja wohl nicht all zu schwer sein das umzuschreiben
google zeigt euch bestimmt auch einen converter der das für euch macht
jungs das ist bereits .net code
ihr meint wahrscheinlich eine vb.net version
kann ja wohl nicht all zu schwer sein das umzuschreiben
google zeigt euch bestimmt auch einen converter der das für euch macht
nuffing
wird bei mir ausgespuckt ^^ kann das ma wer richten das klappt nämlich nidCode:Private Shared Sub Main(ByVal args As String()) Console.Title = "tH3 M7tr1x 3ff3<t" Console.ForegroundColor = ConsoleColor.DarkGreen Console.WindowLeft = InlineAssignHelper(Console.WindowTop, 0) Console.WindowHeight = InlineAssignHelper(Console.BufferHeight, Console.LargestWindowHeight) Console.WindowWidth = InlineAssignHelper(Console.BufferWidth, Console.LargestWindowWidth) #If readkey Then Console.WriteLine("H1T 7NY K3Y T0 C0NT1NU3 =/") Console.ReadKey() #End If Console.CursorVisible = False Dim width As Integer, height As Integer Dim y As Integer() Dim l As Integer() Initialize(width, height, y, l) Dim ms As Integer While True Dim t1 As DateTime = DateTime.Now MatrixStep(width, height, y, l) ms = 10 - CInt(DirectCast((DateTime.Now - t1), TimeSpan).TotalMilliseconds) If ms > 0 Then System.Threading.Thread.Sleep(ms) End If If Console.KeyAvailable Then If Console.ReadKey().Key = ConsoleKey.F5 Then Initialize(width, height, y, l) End If End If End While End Sub Shared thistime As Boolean = False Private Shared Sub MatrixStep(ByVal width As Integer, ByVal height As Integer, ByVal y As Integer(), ByVal l As Integer()) Dim x As Integer thistime = Not thistime For x = 0 To width - 1 If x Mod 11 = 10 Then If Not thistime Then Continue For End If Console.ForegroundColor = ConsoleColor.White Else Console.ForegroundColor = ConsoleColor.DarkGreen Console.SetCursorPosition(x, inBoxY(y(x) - 2 - (l(x) / 40 * 2), height)) Console.Write(R) Console.ForegroundColor = ConsoleColor.Green End If Console.SetCursorPosition(x, y(x)) Console.Write(R) y(x) = inBoxY(y(x) + 1, height) Console.SetCursorPosition(x, inBoxY(y(x) - l(x), height)) Console.Write(" "c) Next End Sub Private Shared Sub Initialize(ByRef width As Integer, ByRef height As Integer, ByRef y As Integer(), ByRef l As Integer()) Dim h1 As Integer Dim h2 As Integer = (InlineAssignHelper(h1, (InlineAssignHelper(height, Console.WindowHeight)) / 2)) / 2 width = Console.WindowWidth - 1 y = New Integer(width - 1) {} l = New Integer(width - 1) {} Dim x As Integer Console.Clear() For x = 0 To width - 1 y(x) = m_r.[Next](height) l(x) = m_r.[Next](h2 * (If((x Mod 11 <> 10), 2, 1)), h1 * (If((x Mod 11 <> 10), 2, 1))) Next End Sub Shared m_r As New Random() Private Shared ReadOnly Property R() As Char Get Dim t As Integer = m_r.[Next](10) If t <= 2 Then Return CChar(("0"c + m_r.[Next](10))) ElseIf t <= 4 Then Return CChar(("a"c + m_r.[Next](27))) ElseIf t <= 6 Then Return CChar(("A"c + m_r.[Next](27))) Else Return CChar((m_r.[Next](32, 255))) End If End Get End Property Public Shared Function inBoxY(ByVal n As Integer, ByVal height As Integer) As Integer n = n Mod height If n < 0 Then Return n + height Else Return n End If End Function Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T target = value Return value End Function
~MfG ZoX~
Coole Sache, der Effekt ist echt sau geil
Hab's mal kompiliert in C# 08, und ja, dass ding ist 10.5 KB groß weil ich ein Icon geaddet habe >_>
Download: http://rapidshare.com/files/180394208/Matrix.exe
Check:
Lg, ChrisDatei Matrix.exe empfangen 2009.01.06 16:14:34 (CET)
Status: Laden ... Wartend Warten Überprüfung Beendet Nicht gefunden Gestoppt
Ergebnis: 0/38 (0%)
Laden der Serverinformationen...
Ihre Datei wartet momentan auf Position: 1.
Geschätzte Startzeit ist zwischen 38 und 55 Sekunden.
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
a-squared 4.0.0.73 2009.01.06 -
AhnLab-V3 2009.1.6.3 2009.01.06 -
AntiVir 7.9.0.45 2009.01.05 -
Authentium 5.1.0.4 2009.01.05 -
Avast 4.8.1281.0 2009.01.06 -
AVG 8.0.0.199 2009.01.06 -
BitDefender 7.2 2009.01.06 -
CAT-QuickHeal 10.00 2009.01.06 -
ClamAV 0.94.1 2009.01.06 -
Comodo 878 2009.01.05 -
DrWeb 4.44.0.09170 2009.01.06 -
eTrust-Vet 31.6.6293 2009.01.06 -
Ewido 4.0 2008.12.31 -
F-Prot 4.4.4.56 2009.01.05 -
F-Secure 8.0.14470.0 2009.01.06 -
Fortinet 3.117.0.0 2009.01.06 -
GData 19 2009.01.06 -
Ikarus T3.1.1.45.0 2009.01.06 -
K7AntiVirus 7.10.578 2009.01.06 -
Kaspersky 7.0.0.125 2009.01.06 -
McAfee 5486 2009.01.05 -
McAfee+Artemis 5486 2009.01.05 -
Microsoft 1.4205 2009.01.06 -
NOD32 3742 2009.01.06 -
Norman 5.80.02 2009.01.06 -
Panda 9.0.0.4 2009.01.06 -
PCTools 4.4.2.0 2009.01.06 -
Prevx1 V2 2009.01.06 -
Rising 21.11.12.00 2009.01.06 -
SecureWeb-Gateway 6.7.6 2009.01.06 -
Sophos 4.37.0 2009.01.06 -
Sunbelt 3.2.1809.2 2008.12.22 -
Symantec 10 2009.01.06 -
TheHacker 6.3.1.4.205 2009.01.05 -
TrendMicro 8.700.0.1004 2009.01.06 -
VBA32 3.12.8.10 2009.01.05 -
ViRobot 2009.1.6.1546 2009.01.06 -
VirusBuster 4.5.11.0 2009.01.06 -
weitere Informationen
File size: 10752 bytes
MD5...: 1bc8b878236ae572b6d19b15fafe861d
SHA1..: 1ed44a2bad88c20de00a2686d3d64ca3b512f11c
SHA256: c7097c31877bbb4c50bd5e3ef5983ed43d1530cae12ccb53a3 e381c6c7561ae5
SHA512: 8a8c06e8c7bd88cf020aa626b9443805411091bbfe4c44662f 49fd9d92ef78d3
e61d6964dcdc4ac97f2aec4155c016bc8ce0102f3640a6f1cc 24dc890fed80a4
ssdeep: 96:3ENjxJynN9A+5jAGDkGC/oqU4Jz61qXdp6PA7etzNt:3ELwAaznPqU4s1qXxe
H
PEiD..: -
TrID..: File type identification
Generic CIL Executable (.NET, Mono, etc.) (94.8%)
Generic Win/DOS Executable (2.5%)
DOS Executable Generic (2.5%)
Autodesk FLIC Image File (extensions: flc, fli, cel) (0.0%)
PEInfo: PE Structure information
( base data )
entrypointaddress.: 0x402d0e
timedatestamp.....: 0x496374ef (Tue Jan 06 15:12:47 2009)
machinetype.......: 0x14c (I386)
( 3 sections )
name viradd virsiz rawdsiz ntrpy md5
.text 0x2000 0xd14 0xe00 5.18 fbec8977d9475544b8770879b2c11650
.rsrc 0x4000 0x1750 0x1800 2.13 fa917768ab9805fe6f12b84bed6ca702
.reloc 0x6000 0xc 0x200 0.08 f84d25a4f6dd8f44f8713e2cefae543c
( 1 imports )
> mscoree.dll: _CorExeMain
( 0 exports )
F++ - Erweiterung für Free-Hack
Aktuelle Version: 1.0.0
Biete
:: Codinghilfe in C & C++, C#, VB.NET, Python, Java, PHP, (X)HTML, CSS, JavaScript, Bash
:: Programmerstellung (kleinere, auch Bots oder ähnliches) auf Wunsch (C & C++ ohne GUI!)
:: Hilfe beim erfolgreichen Aufbau einer Website und deren Weiterführung
:: Privathack für CS:S (auf Wunsch auch extra Anfertigungen)
Suche
:: STEAM Accounts (CS:S - DoD:S - TF2 - L4D)
:: Bietet was!
Kontakt / Sonstiges
:: Private Nachricht (*klick*)
:: BlackMarket Profil (*klick*)
Dank dir konnte ich es jetzt wenigstens mal ansehen
die anwendung konnte nicht initialisiert werden bla bla bla
.net Framework installiert?
currently programer in => VB.net
@ zeus: Dann hast du kein .NET Framework installiert
Lg, Chris
F++ - Erweiterung für Free-Hack
Aktuelle Version: 1.0.0
Biete
:: Codinghilfe in C & C++, C#, VB.NET, Python, Java, PHP, (X)HTML, CSS, JavaScript, Bash
:: Programmerstellung (kleinere, auch Bots oder ähnliches) auf Wunsch (C & C++ ohne GUI!)
:: Hilfe beim erfolgreichen Aufbau einer Website und deren Weiterführung
:: Privathack für CS:S (auf Wunsch auch extra Anfertigungen)
Suche
:: STEAM Accounts (CS:S - DoD:S - TF2 - L4D)
:: Bietet was!
Kontakt / Sonstiges
:: Private Nachricht (*klick*)
:: BlackMarket Profil (*klick*)
sieht richtig geil aus thx
Reup please