aide urgent cause piratage et chantage [Résolu]

[skuoil]

Bonsoir voila, un homme a reussi a me prendre en video, il a reussi a s'introduire dans mon pc et a prendre toutes les adresses mail de mes amis facebook. Il me menace maintenant de divulguer la video sur plein de site et de l'envoyé a mes amis si je ne lui envoi pas la somme de 200€. c'est un homme du maroc.
Sachant que cette video peut me nuire a moi et a ma reputation, que dois je faire pour eviter qu'il l'envoi a mes amis ou les empecher de regarder la video ?

J'ai poster un message sur mon mur facebook en disant de ne pas cliquer sur le lien pretendant etre une video de moi mais cela sera t-il efficace ?

Svp aidez moi c'est urgent, je n'ai vraiment pas envie qu'une video de moi circule sur internet et je n'ai pas non plus envie de payer les 200€

[skuoil]

Aider moi svp :'(

[hackoofr]

Est-ce-que la vidéo provient de votre disque dur qui a été piraté ??
après cette découverte; As-tu pensé d'installer un bon antivirus et voir quelles sont les programmes suspects qui vous espionnent encore ?
voila je vous conseille maintenant de suivre ces procédures:

Téléchargez sur le bureau Malwarebyte's Anti-Malware

• => double-clic sur mbam-setup pour lancer l'installation
  
• => Installer simplement sans rien modifier
  
• => Faites les mises à jour (Clic sur "Mise à jour" puis "Recherche de mises à jour").
  
• => si la mise à jour a échoué, la faire après execution du logiciel => onglet "Mise à jour"
  
• => Quand le programme lancé ==> Cocher Exécuter un examen complet
  
• => Clic Rechercher
  
• => Eventuellement décocher les disques à ne pas analyser
• => Clic Lancer l'examen
  
• => En fin de scan ( 1h environ), si infection trouvée
  
• => Clic Afficher résultat
  
• => Fermer vos applications en cours
  
• => Si MalwareByte's n'a rien détecté, cliquez sur OK Un rapport va apparaître fermez-le.
  
• => Si MalwareByte's a détecté des infections, cliquez sur Afficher les résultats ensuite Vérifier si tout est coché et clic Supprimer la sélection.
  
• => Note : Si MalwareByte's a besoin de redémarrer pour terminer la suppression, acceptez en cliquant sur "OK".
  
  un rapport s'ouvre le copier et le coller dans la réponse

Puis vous pouvez exécuter ce vbscript en l'enregistrant sous ListProcessCmdLine.vbs pour afficher tous les processus en cours d'exécution puis coller le résultat généré par ce dernier dans la réponse aussi :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
'Les éléments à démarrage automatique + ListProcessCmdLine.vbs © Hackoo © 2011
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomMachine = ProcessEnv("COMPUTERNAME") 
NomUtilisateur = ProcessEnv("USERNAME") 
NomFichierLog="Liste_Processus.txt"
temp = Ws.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process")
count=0 
'Dim StartTime : StartTime = Timer
Call Infosys
OutPut.WriteLine String(14,"*")& "Liste des Processus en cours d'exécution le " & date & " à " & time & " sur Le PC "& NomMachine &" connecté en tant que " & NomUtilisateur & String(14,"*")& vbNewline & String(143,"*")
For Each objProcess in colProcesses
ProcessName = objProcess.Name
ProcessID = objProcess.ProcessID
CommandLine = objProcess.CommandLine	
count=count+1
Texte = "Numéro PID = "& objProcess.ProcessID & VbNewLine & "Nom du Processus = " & objProcess.Name & VbNewLine &"Ligne de Commande = "& objProcess.CommandLine &_
VbNewLine & String(120,"*")
OutPut.WriteLine Texte
Next
 
OutPut.WriteLine  "Il y a "& Count &" Processus en cours d'exécution le " & date & " à " & time & " sur Le PC "& NomMachine &" connecté en tant que " & NomUtilisateur & vbNewline
Call StartupCommand
'OutPut.WriteLine FormatNumber(Timer - StartTime, 0) & " seconds."
Function StartupCommand()
strComputer = "."
resultat=""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand")
 
For Each objStartupCommand in colStartupCommands
resultat=resultat & "Nom: " & objStartupCommand.Name & vbNewline
resultat=resultat & "Description: " & objStartupCommand.Description & vbNewline
resultat=resultat & "Emplacement: " & objStartupCommand.Location & vbNewline
resultat=resultat & "Commande: " & objStartupCommand.Command & vbNewline
resultat=resultat & "Utilisateur: " & objStartupCommand.User & vbNewline
resultat=resultat & String(120,"*") & vbNewline 
Next
OutPut.WriteLine String(50,"*") &" Les éléments à démarrage automatique "& String(50,"*")
OutPut.WriteLine resultat
end Function
 
Explorer(PathNomFichierLog)
 
Function Explorer(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Explorer "& File,0,True
end Function
 
Function InfoSys
strComputer = "."
strMessage=""
Set objWMIService = GetObject("winmgmts:"  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery  ("Select * from Win32_ComputerSystem")
Set colSettings2 = objWMIService.ExecQuery ("Select * from Win32_BIOS")
Set colSettings3 = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objBIOS in colSettings2 
      strMessage=strMessage & "BIOS " & objBIOS.Version & vbNewline & vbNewline
Next
For Each objComputer in colSettings 
      strMessage=strMessage & "Nom de l'ordinateur : " & objComputer.Name & vbNewline & "Fabriquant: " & objComputer.Manufacturer & vbNewline & "Modèle : " & objComputer.Model & vbNewline & vbNewline
 
Next
For Each objOperatingSystem in colSettings3
      strMessage=strMessage &  objOperatingSystem.Name & vbNewline
      strMessage=strMessage &  "Version " & objOperatingSystem.Version & vbNewline
      strMessage=strMessage &  "Service Pack " & objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion &vbNewline
      strMessage=strMessage &  "Dossier de Windows: " & objOperatingSystem.WindowsDirectory &vbNewline
Next
OutPut.WriteLine strMessage
end Function

[skuoil]

Non elle ne vient pas de mon disque dur, cette video a été prise a mes depend il y a quelques mois :/

[Philippe JOCHMANS]

Bonjour

Je ne vois pas ce que ce forum peut faire pour toi, il est trop tard au niveau informatique.

Philippe

[tigzy]

+1

Le genre de personnes qui "piratent" (ce n'est pas le terme exact) des vidéos ou je ne sais quoi le font par social ingé.
Ces personnes ne sont pas assez compétentes pour créer ou utiliser un virus pour ça.

Tourne toi vers la justice.

[Jose.N70]

C'est une escroquerie bien connue des services de justice, bien que l'action de la police ou la gendarmerie soit assez limitée dans ce domaine ( l'auteur ne résidant pas sur le territoire national 99 % du temps ).

Tu peux néanmoins déposer plainte.

La manière d'opérée constatée ( mais pas systématique ), une femme "aguiche" un homme sur internet, elle se déshabille devant une webcam, invitant le correspondant à faire de même, c'est alors que le chantage peut commencer, l'homme se déshabille à son tour ( et dans certains cas ) la vidéo est enregistrée sur le pc de l’escroc. A partir de la le chantage commence, signalement d'un pédophile, exhibitionniste etc....

Si tu as des mails gardes ca sous le coude, et si c'est une discussion MSN ( ou autre ) et que l'archivage des discussions est activé, mets les de coté ca peut servir dans l'enquête.

En espérant d'avoir aiguillé

Ps : tu peux en plus signaler ton problème sur ce site : https://www.internet-signalement.gouv.fr

[aravis]

Consigne bien toutes les informations que tu peux à son sujet, et en particulier les jours, heures et minutes des message échangés. En fonction des logiciels et ou sites que tu utilises, essaie de retrouver l'adresse IP de ton interlocuteur avec la documentation du logiciel ou en contactant le site internet en question.

Bon courage et ne cède pas, si il voit qu'il obtient 200€ il recommencera.
Mets toi en rapport avec la gendarmerie, qui pourra peut être suivre le transfert d'argent réalisé avec toi pour remonter à l'auteur.