Jump to content
Notícia
  • Adquira já o seu VIP!

nubatikaas_

Bronze Member
  • Content Count

    383
  • Joined

  • Last visited

  • Days Won

    1
  • WCoins

    0 [ Donate ]

Everything posted by nubatikaas_

  1. #include <iostream> #include <string> #include <stdio.h> using namespace std; int main ( ) { int idade; char E_civil; printf("Escreva sua idade: "); cin >> idade; printf("Escreva sua condicao civil, c para casado e S para solteiro"); cin >> E_civil; if ( E_civil == 's' || E_civil == 'S' && idade > 40 ) printf("esta solteiro e encalhado"); else printf("Esta casado"); system ("pause"); return 0; }
  2. abra o tibia pelo olly procure algo como " bam " " /bam player " algo do tipo Peque os ***ress e der noop no ***ress, veja se tem permições e seja feliz..
  3. http://www.webcheats.com.br/forum/delphi-vb/859152-tutorial-simples-random.html
  4. ¬¬' Tenso .. hj ja é 2 de abril ! Acho que eles esqueceram iwawaiowaiiowa
  5. então eu to doido ! e cara não importa onde o button esteja pode tar na page control e o krl a 4 .-.
  6. (meus sinceros vão toma no cu) button1.enable := false;
  7. Porra.. esse fórum ja foi bom.. Coisa muito simples vcs nem pra ajuda tão servindo mais pqp.. so decepções ao entrar aqui.. deviam deletar todos os típicos de uma certa data para quem sabe salva a info zone da web cheats... Bom para vc verifica um link dentro do **** vc presiza: 1 webbrowser 1 button 2 Click no button : webbrowser1.navegate('google.com')
  8. eu tenho aqui cara.. Owned By NUBATIKAAS eu editei do symbiont ( the evil c0der )
  9. Adicione : açúcar; Tempero; tudo que há de bom; e porção X Pronto !
  10. if Edit1.Text := "A;" then como eu, vc tambem errro, não é assim com vc cito em delphi não se usa " " " e sim " ' " :)
  11. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, StdCtrls, uEOF; function MakeXor(Buffer :String; Key :Integer) :String; var i,c,x :Integer; begin for i := 1 to Length(Buffer) do begin c := Integer(Buffer[i]); x := c xor Key; Result := Result + Char(x); end; end; procedure TForm1.btnFileClick(Sender: TObject); begin if Open.Execute then edtFile.Text := Open.FileName; end; procedure TForm1.btnAboutClick(Sender: TObject); begin MessageBoxA(0,'Open Source Cryter'+#10+#13+ ''+#10+#13+ 'Author: Xash'+#10+#13+ 'Description: Simple a crypter for beginner'+#10+#13+ 'Thanks: steve10120'+#10+#13+ ''+#10+#13+ '[FR] www.hacksecu.com'+#10+#13+ '[EN] www.hackhound.org', 'About', 64); end; procedure TForm1.btnBuildClick(Sender: TObject); var Buffer :String; begin if not Save.Execute then Exit; Buffer := ReadFile(edtFile.Text); Buffer := MakeXor(Buffer, 1337); CopyFile(PChar(ExtractFilePath(ParamStr(0))+'Stub/Stub.exe'), PChar(Save.FileName), False); WriteEof(Save.FileName, Buffer, '[1]', '[2]'); MessageBoxA(0, 'Crypted!', 'Information', 64); end; end. object Form1: TForm1 Left = 255 Top = 188 Width = 399 Height = 149 Caption = 'OP Crypter' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 369 Height = 97 TabOrder = 0 object edtFile: TEdit Left = 8 Top = 20 Width = 281 Height = 21 TabOrder = 0 end object btnFile: TButton Left = 296 Top = 16 Width = 65 Height = 25 Caption = '...' TabOrder = 1 OnClick = btnFileClick end object btnBuild: TButton Left = 184 Top = 56 Width = 75 Height = 25 Caption = 'Build' TabOrder = 2 OnClick = btnBuildClick end object btnAbout: TButton Left = 88 Top = 56 Width = 75 Height = 25 Caption = 'About' TabOrder = 3 OnClick = btnAboutClick end end object Open: TOpenDialog Filter = '*.exe|*.exe' Left = 24 Top = 64 end object XPManifest1: TXPManifest Left = 288 Top = 64 end object Save: TSaveDialog DefaultExt = 'exe' FileName = 'Crypted.exe' Filter = '*.exe|*.exe' Left = 56 Top = 64 end end { Open Source Cryter Author: Xash Description: Simple a crypter for beginner Thanks: steve10120 [FR] www.hacksecu.com [EN] www.hackhound.org }
  12. http://www.webcheats.com.br/forum/delphi-vb/485368-tutorial-delphi-programa-para-dividir-arquivos.html
  13. Bom cara eu tenho um exemplo aqui no meus projetos.. Upload : uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATFTP2Lib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: TChilkatFtp2; success: Integer; localFilename: String; remoteFilename: String; begin ftp := TChilkatFtp2.Create(Self); // Any string unlocks the component for the 1st 30-days. success := ftp.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; ftp.Hostname := 'ftp.chilkatsoft.com'; ftp.Username := '****'; ftp.Password := '****'; // The default data transfer mode is "Active" as opposed to "Passive". // Connect and login to the FTP server. success := ftp.Connect(); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; // Change to the remote directory where the file will be uploaded. success := ftp.ChangeRemoteDir('junk'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; // Upload a file. localFilename := 'c:/temp/hamlet.xml'; remoteFilename := 'hamlet.xml'; success := ftp.PutFile(localFilename,remoteFilename); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; ftp.Disconnect(); ShowMessage('File Uploaded!'); end; Download : uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATFTP2Lib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var ftp: TChilkatFtp2; success: Integer; localFilename: String; remoteFilename: String; begin ftp := TChilkatFtp2.Create(Self); // Any string unlocks the component for the 1st 30-days. success := ftp.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; ftp.Hostname := 'ftp.example-code.com'; ftp.Username := 'myLogin'; ftp.Password := 'myPassword'; // The default data transfer mode is "Active" as opposed to "Passive". // Connect and login to the FTP server. success := ftp.Connect(); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; // Change to the remote directory where the file is located. // This step is only necessary if the file is not in the root directory // for the FTP account. success := ftp.ChangeRemoteDir('junk'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; // Download a file. localFilename := 'c:/temp/hamlet.xml'; remoteFilename := 'hamlet.xml'; success := ftp.GetFile(remoteFilename,localFilename); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; ftp.Disconnect(); ShowMessage('File Downloaded!'); end; OBS: Os creditos NÃO são meus.
  14. Planeta Delphi - Dicas | Splash screen em aplicaes pequenas ...
  15. http://www.webcheats.com.br/forum/programacao-duvidas-ajuda/1472246-como-criar-um-trainer-no-delphi-7-usando-check-box.html
  16. Bom cara vc tem que usa o webbrowser. mais pode deixa-lo invisivel
  17. var nuba: DWORD; begin if checkbox1.check then PDWORD($000000//address do jogo)^ := $8000;//volue end.
  18. Como criar um keylogger usando delphi - Pesquisa Google
  19. Para utilizar o javascript no WebBrowser, podemos utilizar o Navigate, como WebBrowser1.Navigate(‘javascript:…..’);, para inserirmos uma string no javascript var a:String; begin a:=’infomaroto’; WebBrowser1.Navigate(‘javascript:alert(“‘+a+’”);’); Mas se for para inserir valores, não é aconselhavel usar javascript, seria bem melhor usar a função OleObject Ex: Adicionar um valor a uma textarea n° 0 WebBrowser1.OleObject.Document.All.Tags(‘textarea’).item(0).value:=’LoL’; Usando Javascript no WebBrowser do Delphi
×
×
  • Create New...