Funcion Linkgl

C - Buscar bytes en la memoria virtual

2011-07-24T10:17:00.000-07:00

Retorna el virtual address en la que encuentren los bytes pasados como parámetro algo como (strpos o find en otros lenguajes pero buscando en el virtual address)

#include <windows.h>
#include <stdio.h>
#include <stdlib.h>
DWORD FindXBytes(DWORD inicio,LPVOID bytes,LPSTR proceso,DWORD tam)
{
  STARTUPINFO si
  PROCESS_INFORMATION pi;
  ZeroMemory( &si, sizeof(si) );
  ZeroMemory( &pi, sizeof(pi) );
  si.cb = sizeof(si);
  DWORD leidos;
  char *value;
  value=(char *)malloc(tam);
  memset(value,0,tam);
  if(CreateProcess(proceso,"",NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi))
  {
    ResumeThread(pi.hThread);
    while(ReadProcessMemory(pi.hProcess, (LPVOID)inicio, &value, tam, &leidos))
    {
      if(memcmp(bytes,&value,tam)==0)
      {
        TerminateProcess(pi.hProcess,0);
        return inicio;
      }
      inicio++;
    }
    TerminateProcess(pi.hProcess,0);
    return 0;
  }
  else
  {
    return 0;
  }
}
int main()
{
  //->Ejemplo de uso  
  char buscar[5]={0xFF,0x35,0x50,0x20,0x40,0x00};
  int posicion=FindXBytes(0x401000,buscar,"c:\\crackme2.exe",4);
  if(posicion!=0)
    printf("%s esta en la direccion en memoria-> %X",buscar,posicion);
  else printf("no se encontro %s en la memoria virtual del programa");
  getchar();
  return 0;
}

DELPHI - Funcion split o explode

2011-06-22T09:35:00.000-07:00

Bueno en esta ocasión les he programado una función que simula al split de vb6 o explode de php para delphi 7 ya que pues bueno no existe en este lenguaje y aveces es algo necesaria... La función devuelve un array de strings por lo que hay que declarar en type un array de strings así:

Código:

type

TStringArray=array of string

Y despues colocar nuestra función en cualquier parte de tú programa:

Código:

{ *******************************

     FUNCION SPLIT BY Linkgl

     }

function split(cadena:string;delimitador:string):TStringArray;

var i:Integer;

begin

for i:=1 to length(cadena) do

begin

  if AnsiPos(delimitador,cadena) = 0 then

  begin

    Result[i]:=Copy(cadena,1,Length(cadena));

    exit;

  end

  else

  begin

    Result[i]:=Copy(cadena,1,AnsiPos(delimitador,cadena)-1);

    cadena:=Copy(cadena,length(Result[i])+length(delimitador)+1,length(cadena)-length(delimitador));

  end;

  end;

end;

Para que tengas una idea mas clara, sí estas haciendo un proyecto con un form en delphi 7 nuestro proyecto quedaría masomenos así:

Código:

{.... etcetc

  private

    { Private declarations }

  public

    { Public declarations }

  end;

type

TStringArray=array[1..10] of string;

var

  Form1: TForm1;

implementation

{$R *.dfm}

{ *******************************

     FUNCION SPLIT BY Linkgl

     }

function split(cadena:string;delimitador:string):TStringArray;

var i:Integer;

begin

for i:=1 to length(cadena) do

begin

  if AnsiPos(delimitador,cadena) = 0 then

  begin

    Result[i]:=Copy(cadena,1,Length(cadena));

    exit;

  end

  else

  begin

    Result[i]:=Copy(cadena,1,AnsiPos(delimitador,cadena)-1);

    cadena:=Copy(cadena,length(Result[i])+length(delimitador)+1,length(cadena)-length(delimitador));

  end;

  end;

end;

DELPHI - Quitar los espacios de la derecha o izquierda en una cadena o string

2011-06-05T10:25:00.000-07:00

He creado dos funciones, en donde la idea de programarlas surgió de una publicación de un personaje conocido como AX, y bueno están en delphi 7 las funciones, RLTrim quita los espacios que tenga una cadena al final de la derecha y LLTrim hace lo mismo pero quita los espacios de la izquierda en una string, les dejo las funciones.

Código:

Function RLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=length(szEntrada) downto 1 do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,1,i);
    exit
  end
end
end;
Function LLTrim(szEntrada:String):String;
{->Coder - Linkgl <-}
{->Funcion-linkgl.blogspot.com}
{->indetectables.net<-}
var
i:Integer;
begin
for i:=1 to length(szEntrada) do
begin
  if not(copy(szEntrada,i,1)=' ') then
  begin
    Result:=copy(szEntrada,i,length(szEntrada));
    exit
  end
end
end;
{->EJEMPLO DE USO<-}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RLTrim('hola soy linkgl         ');
Edit2.Text:=LLTrim('      hola soy linkgl');
end;
end.

C - Obtener y escribir el valor de los registros ASM de un programa

2011-06-04T08:53:00.000-07:00

Hice estas funciones usando la estructura CONTEXT que nos fácilita el manejo de los registros, con estas funciones podrás obtener en runtime el valor que toma cualquier registro que context permita (Eax,edx,ecx...) yo puse por defecto eax, pero si quieres obtener otro registro cambia eax por el registro que gustes, así como lo hice obtiene el entrypoint ya que este al cargar el programa se encuentra en eax, entonces también puedes cambiar el entrypoint de un programa con la funcioncita de escribirRegistro, si quieres obtener en determinaado momento exacto el valor de algún registro entonces quizá necesites usar OPENPROCESS y pasarle el pid del proceso, en vez de CreateProcess, pero la sintaxis de las funciones es la misma

Código:

#include <stdio.h>
#include <windows.h>

/* 
USOS:
Para obtener el valor de otro registro 
cambiar donde dice con.Eax por
con.Registro_que_quieras
Indetectables.net/foro
funcion-linkgl.blogspot.com
*/

DWORD ObtenerRegistro(LPSTR szProcessName)
{
       /* Linkgl - Funcion-linkgl.blogspot.com */
    //Estructura startup requerida para createprocess
    //estructura process information requerida para el pid
    //estructura context contiene los valores de los registros
    STARTUPINFO si;
   PROCESS_INFORMATION pi;
   CONTEXT con;
   // limpiamos la estructura si
   memset(&si, 0, sizeof(si));
   //indicamos el tamaño de la estructura
   //en el flag como indica la msdn
   si.cb = sizeof(STARTUPINFO);
   con.ContextFlags = CONTEXT_FULL;
   CreateProcess(NULL, szProcessName, NULL, NULL, FALSE, CREATE_SUSPENDED, NULL, NULL, &si, &pi);
   //obtenemos el contexto y con ello se obtienen los registros
    GetThreadContext(pi.hThread, &con);
    //continuamos el hilo
    ResumeThread(pi.hThread);
    //mandamos el registro
    return con.Eax;
}

BOOL EscribirRegistro(LPSTR szProcessName,DWORD valor)
{
    /* Linkgl - Funcion-linkgl.blogspot.com */
    //Estructura startup requerida para createprocess
    //estructura process information requerida para el pid
    //estructura context contiene los valores de los registros
    STARTUPINFO si;
   PROCESS_INFORMATION pi;
   CONTEXT con;
   // limpiamos la estructura si
   memset(&si, 0, sizeof(si));
   //indicamos el tamaño de la estructura
   //en el flag como indica la msdn
   si.cb = sizeof(STARTUPINFO);
   con.ContextFlags = CONTEXT_FULL;
   //creamos el proceso
   CreateProcess(NULL, szProcessName, NULL, NULL, FALSE, CREATE_SUSPENDED, NULL, NULL, &si, &pi);
   //obtenemos el contexto y con ello se obtienen los registros
    GetThreadContext(pi.hThread, &con);
    //ponemos el nuevo valor
   con.Eax = valor;
   //lo guardamos en el hilo
   SetThreadContext(pi.hThread,&con);
   //continuamos el hilo
    ResumeThread(pi.hThread);
    return TRUE;
}

//->EJEMPLO DE USO
int main()
{
DWORD eax;
//Cambiamos el valor eax (osea vamos a cambiar el entrypoint)
EscribirRegistro("c:\\final.exe",0x413b72f);
//Obtenemos el registro aver si se cambio
eax=ObtenerRegistro("c:\\final.exe");
//Imprimimos el nuevo registro o entrypoint
printf("%x",eax);
getchar();
return 0;
}

FASM - Strlen, longitud de una cadena

2011-05-10T07:28:00.000-07:00

Bueno he mejorado una función que cuenta los caracteres que hay en una cadena en FASM, dejé, creo yo, bien comentado el source, pero ya saben que cualquier duda, pregunta, crítica o problema la pueden comentar en la entrada.

Código:

include 'win32ax.inc'
.data
;variables
cadena          db "linkenOS",0
salida          db ?,0

.code
  inicio:
    ;Limpiamos registros
    XOR ESI,ESI
    XOR EDI,EDI
    XOR ECX,ECX
    ;Movemos la cadena a
    ;el registro ESI
    LEA ESI,[cadena]
    ;Llamamos a la funcion
    CALL strlen
    ;Mostramos con la API
    ;MessageBox de windows
    ;El resultado 'salida'
    invoke MessageBoxA,0,salida,"xD",0
    RET
.end inicio
;-FUNCION STRLEN-;
;Coder: Linkgl
proc strlen
   siguiente:
   ;Cortamos el primer caracter
   LODSB
   ;Comparamos si es el ultimo
   CMP AL,0
   ;Si ya no hay más saltamos a salir
   JE SALIR
   ;Incrementamos el contador
   INC ECX
   ;Entramos en bucle hasta que la
   ;comparacion retorne un flag verdadero
   JMP siguiente
   SALIR:
   ;Movemos el contador al registro AL
   ;Para trabajar con el
   MOV AL,CL
   ;Le sumamos 30(hex)
   ;para devolver valores numericos en ascii
   ADD AL,0x30
   ;Movemos el contenido de AL en la variable de salida
   MOV [salida],AL
   RET
endp   

C - Llamar a una función desde la dll

2011-05-09T08:19:00.000-07:00

Les dejo un código donde muestro cómo cargar una API o función desde una librería dll, es muy sencillo, lo que se necesita hacer es definir el tipo de la función con los parámetros, cargarlo como estructura y despues buscar la direccion de la funcion en la dll para poder utilizarla, el código habla por mi.

PD: Pueden encontrar la estructura de las API's en la página de la msdn

Código:

#include <windows.h>

//Definimos una nueva funcion (API)
//Con todos sus parámetros
typedef INT (WINAPI *_MessageBox)(
  HWND hWnd,
  LPCTSTR lpText,
  LPCTSTR lpCaption,
  UINT uType
);

int main()
{
   //Declaramos a __MessageBox como si fuera estructura
    //de _Messagebox colocandole un valor nulo (Limpiando)
    _MessageBox __MessageBox = NULL;
    //Llamamos a obtener la dirección de la función
    __MessageBox = (_MessageBox)GetProcAddress(GetModuleHandle("User32.dll"), "MessageBoxA");
    //Usamos la función
    __MessageBox(NULL,"soy extraido de la dll","",NULL);
    return 0;   
}

_____

DELPHI - Leer bytes en hex

2011-05-02T08:03:00.000-07:00

Esta función te devuelve una string con los bytes EN HEX del rango indicado, ejemplo:

Código:

Salida:=LeerXbytes('c:\miarchivo.exe',32,39);

Me devolvera los bytes 32 33 34 35 36 37 38 39 que tenga el archivo pero no los simbolos raros, los convierte a hex como si estuvieras viendo esos archivos en un editor hex es decir me va a devolver algo como:

00010D00E00FF210

Dependiendo de los bytes que estén en el rango jeje pero no confundan no devuelve los caracteres en ascii los convierte a hex, jeje use parte de esto en el programa de los firmware's de ps3

Funcion:

Código:

function LeerXbytes(ruta:String;inicio, fin:Integer):String;
{
  * Coder: Linkgl
  * Indetectables Coders Team :D
}
var x:Integer;
var a:Char;
var fp:TFileStream;
var Temp:String;
begin
fp:=TFileStream.Create(ruta,fmOpenRead);
for x:=inicio to fin do
begin
fp.Seek(x,soFromBeginning);
fp.Read(a,1);
Temp:=Temp+IntToHex(ord(a),2);
end;
fp.Free;
Result:=Temp;
end;

DELPHI - Pasar de string a Byte Array

2011-04-11T22:18:00.000-07:00

Bueno hace poquito que me adentré en delphi, y necesitaba convertir una string a un byte array o array of byte, para esto pues simplemente declaramos el tipo byte array

type
TByteArray = array of byte;

y después hacemos la función y la implementamos en cualquier parte del programa:

Código:

function StringToByteA(buffer: String;Lar:Integer): TByteArray;

var

   i: integer;

begin

   SetLength(Result, Lar-1);

   for i := 0 to Lar-1 do

   begin

     Result[i] := ord(buffer[i+1]);

  end;

end;

Visual Basic 6 - Alternativa a MID o MID$

2011-04-11T22:15:00.000-07:00

Como la mayoría de nosotros sabemos la función mid de visual basic se encarga de cortar una frase desde "x" posición hasta "y" longitud, la función que les dejo aquí es una práctica que hace lo mismo que mid en visual basic:

Código:

'Funcion Lmid by linkgl

'funcion-linkgl.blogspot.com

'indetectables team

Function lmid(szCadena As String, dwInicio As Long, dwFin As Long) As String

Dim i As Integer

Dim B() As Byte

B = szCadena

For i = (dwInicio - 1) * 2 To (dwInicio + dwFin - 2) * 2 Step 2

  lmid = lmid + ChrW$(B(i))

Next i

End Function

'uso

Private Sub Form_Load() 

datos = lmid("holasoylink", 2, 3)

MsgBox datos

End Sub

Espero les ayude en algo si tienen dudas sobre qué hace el código exactamente no duden en preguntar.

DELPHI - Encriptación ROT - 1

2011-04-08T08:08:00.000-07:00

Aquí les dejo dos funciones que hize para encriptar y desencriptar cadenas y BINARIOS en delphi rotando un byte:

Código:

// Encriptacion ROT -1
// Coder: Linkgl
// Lenguaje: Delphi
// Funcion-linkgl.blogspot.com
// Indetectables.net/foro
function LinkCryptRot(Cad:String;Lar:Integer):String;
var
i:Integer;
Temp:String;
begin
  for i:=1 to Lar do
  begin
    if Ord(Cad[i]) = 0 then
      Temp:=Temp + Chr(255)
    else
      Temp:=Temp + Chr(Ord(Cad[i])-1);
  end;
  Result:=Temp;
end;

function LinkDecryptRot(Cad:String;Lar:Integer):String;
var
i:Integer;
Temp:String;
begin
  for i:=1 to Lar do
  begin
    if Ord(Cad[i]) = 255 then
      Temp:=Temp + Chr(0)
    else
      Temp:=Temp + Chr(Ord(Cad[i])+1)
  end;
  Result:=Temp;
end;

Sólo pasenle el buffer como primer parámetro y el tamaño del buffer como segundo parámetro si tienes dudas de cómo implementarlo sólo deja tú comentario y te ayudaré en lo que esté a mi alcance.

C - Escribir y leer datos en EOF

2011-04-02T21:45:00.000-07:00

Con estas funciones puedes leer y escribir en otro archivo como un .txt u otro binario los datos que contiene el EOF (End Of File) de un archivo binario, esto nos sirve para los encriptadores, juntadores (binders o joiners) que pasan datos por el final del archivo esto nos ayuda a encontrar los datos que se le agregaron al exe original y la funcion WriteEOFData nos permite escribir esos datos en un .txt por ejemplo para facilitar su lectura, dejo ambas funciones:

Código:

#include <stdio.h>
#include <stdlib.h>
#include <windows.h>

/* ReadEOFData
       &               
WriteEOFData C
    Coded By linkgl
Funcion-linkgl.blogspot.com
Indetectables.net/foro
Indetectables Coders :D
*/
    
int VariableGlobal;
char *ReadEOFData(char *ruta)
{
  //-> Estructuras necesarias del PE
  IMAGE_DOS_HEADER idh; 
  IMAGE_NT_HEADERS inh;
  IMAGE_SECTION_HEADER ish;
  //-> Variables necesarias
  FILE *fp;
  DWORD iTam;
  DWORD hTam;
  char *szEof;
  //Abrimos el archivo para leer en binario
  fp=fopen(ruta,"rb");
  if(fp!=NULL)
  {
    //Nos posicionamos hasta el final
    //Y obtenemos el tamaño del archivo
    fseek(fp,0,SEEK_END);
    iTam=ftell(fp);
    rewind(fp);
    //Leemos el PE
    //(IMAGE_DOS_HEADER,NT_HEADERS Y SECTION_HEADER)
    //Y las guardamos en su correspondiente estructura
    fread(&idh,sizeof(IMAGE_DOS_HEADER),1,fp); 
    fseek(fp,idh.e_lfanew,SEEK_SET); 
    fread(&inh,sizeof(IMAGE_NT_HEADERS),1,fp); 
    fseek(fp,idh.e_lfanew + sizeof(IMAGE_NT_HEADERS) + sizeof(IMAGE_SECTION_HEADER) * (inh.FileHeader.NumberOfSections - 1),SEEK_SET);
    fread(&ish,sizeof(IMAGE_SECTION_HEADER),1,fp);
    //Obtenemos el tamaño que debe tener el archivo
    //Usando la IMAGE_SECTION_HEADER
    //sumamos el PointerToRawData y SizeOfRawData
    //que es la direccion donde apunta la seccion
    //mas el tamaño de la seccion del PE
    hTam=ish.PointerToRawData + ish.SizeOfRawData;
    //Si es mayor el tamaño total del exe que el del PE
    //entonces existe EOF y procedemos a leerlo
    if(hTam < iTam)
    {
      //Reservamos memoria del tamaño del eof
      //Nos posicionamos para leerlo
      //Y lo leemos y retornamos
      //Tambien almacenamos el tamaño del EOF
      //como variable global
      szEof=(char *)malloc(iTam-hTam);
      fseek(fp,hTam,SEEK_SET);
      fread(szEof,iTam-hTam,1,fp);
      fclose(fp);
      VariableGlobal=iTam-hTam;
      return szEof;
    }
    else
    {
      fclose(fp);
      return NULL;
    }
  }
}

BOOL WriteEOFData(char *ruta,char *szEof)
{
  //Aqui es sencillo
  //Abrimos, nos posicionamos al final
  //Y escribimos el EOF :P
  //->Saludines Linkgl

  FILE *fp;
  fp=fopen(ruta,"ab");
  char buffer[1024];
  if(fp!=NULL)
  {
    fseek(fp,0,SEEK_END);
    fwrite(szEof,VariableGlobal,sizeof(char),fp);
    fclose(fp);
    return TRUE;
  }
  else
    return FALSE;
}

//->USO
int main()
{
    WriteEOFData("c:\\es_eof.exe",ReadEOFData("c:\\EEOF.EXE"));
    return 0;
}

PHP - Como saber que numero en un array es el mas grande

2011-03-26T22:14:00.000-07:00

En un foro preguntaron como puedo hacer un programa que reciba 10 números en un array y me retorne el numero mas grande y su posición en el array, pues es un ejercicio sencillo y lo comparto para aquella persona que se inicia en la programación.

Código:

<?php
$entrada=array(1,2,3,10,4,5,6,7,48,9); //Los 10 numeros de entrada
$mayor=$entrada[0]; //Ponemos que el mayor es el primer elemento
//Se cambia automaticamente en el bucle
$pos=0; //la posicion en 0
//El bucle (lo importante)
//Iniciamos un bucle del tamaño de la cantidad de elementos del array
for($j=0;$j<count($entrada);$j++)
{
  //Si mayor es menor que el elemento elejido
  if($mayor<$entrada[$j])
  {
    //cambiamos el mayor
    //y obtenemos su posicion
    $mayor=$entrada[$j];
    $pos=$j;
  }
}
echo $mayor; //mostramos el que quedo mayor
echo " posicion: ".$pos; //y su posicion 
?>

C - Obtener la ruta actual del programa

2011-03-26T09:24:00.000-07:00

Bueno en algun momento me interesó obtener la ruta actual del programa que estaba programando, esto lo podía hacer con la API GetCommandLine pero me dejaba comillas dobles en la cadena con la ruta y también puede hacerse con la API GetModuleHandle, pero un amigo (ps1c0s1s) alguna vez me dijo como hacer esto sin usar las API's de windows así que debería ir para linux también, la forma es sencilla solo hay que pasar el argumento 0 del programa así:

Código:

int main(int argc, char *argv[])
{
  printf("%s",argv[0]);
  getchar();
  return 0;
}

ahí argv[0] contiene la ruta del programa :P saludos!.

PHP - Funcion para extraer un texto entre dos separadores

2011-03-21T19:07:00.001-07:00

Extrae una frase entre dos separadores diferentes, si no se encuentra el primer separador en la frase retorna false, si encuentra el primero pero no el segundo retorna la frase desde la posicion del primero hasta el final de la frase, si encuentra los dos retorna el texto entre los dos

Code+uso:

Código:

<?php
/* 
  -> By Linkgl for Indetectables.net
  -> Indetectables Coders 21/03/11
  -> funcion-linkgl.blogspot.com
*/
function ExtraerFrase($separador1,$separador2,$cadena)
{
  if(strpos($cadena,$separador1)!==false)
  {
    $pos=strpos($cadena,$separador1);
    $a=substr($cadena,$pos+strlen($separador1));
    if(strpos($a,$separador2)!==false)
    {
      $npos=strpos($a,$separador2);
      $b=substr($a,0,$npos);
      return $b;
    }
    else
      return $a;
  }
  else
    return false;
}

echo ExtraerFrase("www.","/","www.linkgl.com/soy_indetectables");
//Devuelve linkgl.com
?>

PHP - Encontrar navegador, IP y Sistema operativo

2011-03-14T22:15:00.000-07:00

Ahora les traigo esta función sencilla que hice que devuelve un array con la IP, el navegador y el sistema operativo de la persona que entre a su sitio web, les dejo la función con un ejemplo de uso:

<?php
/*By linkgl
funcion-linkgl.blogspot.com
devuelve un array con la ip, navegador y OS
*/
function DatosPrivados()
{
$temp=array();
$ip=$_SERVER['REMOTE_ADDR'];
$datos=$_SERVER['HTTP_USER_AGENT'];
array_push($temp,$ip);
if(strpos($datos,"Windows")!==false)
    array_push($temp,"Windows");
elseif(strpos($datos,"Mac")!==false)
    array_push($temp,"Mac");
elseif(strpos($datos,"Linux")!==false)
    array_push($temp,"Linux");

if(strpos($datos,"MSIE")!==false)
    array_push($temp,"Internet Explorer");
elseif(strpos($datos,"Firefox")!==false)
    array_push($temp,"Firefox");
elseif(strpos($datos,"Chrome")!==false)
    array_push($temp,"Google Chrome");
elseif(strpos($datos,"Safari")!==false)
    array_push($temp,"Safari");
elseif(strpos($datos,"Opera")!==false)
    array_push($temp,"Opera");
else
    array_push($temp,"Navegador desconocido");

return $temp;

}

//USO
$llamar=DatosPrivados();
echo $llamar[0];//muestra la IP
echo $llamar[1];//muestra el Sistema Operativo
echo $llamar[2];//muestra el navegador

?>

PHP POO - Clase para extraer url entera, dominio y protocolo

2011-03-03T08:40:00.000-08:00

Esta clase la hize para un compañero, extrae el dominio, protocolo y url entera de un enlace proporcionado, les comparto el código.

<?php
/*
Autor linkgl
3/03/11
funcion-linkgl.blogspot.com
                                */
class URL
{
public $dominio;
var $protocolo,$almacen,$aplica,$buffer;
//extrae el dominio de una url
public function __construct($dom)
{
    $this->dominio=$dom;
    $this->almacen=explode("/",$this->dominio);
    if(strpos($this->dominio,"//")!==false)
    {
      echo $this->almacen[2]."<br>";
    }
    else
    {
      echo $this->almacen[0]."<br>";
    }
}
//extrae el protocolo (http, https, ftp...)
public function extraerPROTOCOLO()
{
    if(strpos($this->dominio,"//")!==false)
    {
      $this->protocolo=explode("//",$this->dominio);
      echo $this->protocolo[0]."<br>";
    }
    else
    {
      echo "No se encontro el protocolo <br>";
    }
}
//extrae las carpetas de la url /archivos/blabla/algo.php?id=45
public function extraerCARPETAS()
{
    $this->aplica=explode("/",$this->dominio);
    if(strpos($this->dominio,"//")!==false)
    {
      for($i=3;$i<count($this->aplica)-1;$i++)
      {
        $this->buffer.=$this->aplica[$i]."/";
      }
      $this->buffer.=$this->aplica[count($this->aplica)-1];
    }
    else
    {
      for($i=1;$i<count($this->aplica)-1;$i++)
      {
        $this->buffer.=$this->aplica[$i]."/";
      }
      $this->buffer.=$this->aplica[count($this->aplica)-1];
    }
    echo $this->buffer."<br>";
}
}

//Ejemplo de uso
$obj=new URL("linkgl.com/hola/archivos/linkgl_es_guapisimo/data.php?hola_indetectables");
$obj->extraerPROTOCOLO();
$obj->extraerCARPETAS();
?>

ASM PIC 16F84A - Controlar una pantalla de 7 segmentos

2011-02-21T08:02:00.000-08:00

Bueno para los que no conozcan de electrónica este ASM es un poco diferente al que conocemos común mente como FASM, NASM, MASM y TASM, este ASM esta hecho para procesadores de la compañía microchip que nos provee este microcontrolador PIC, el código esta hecho para el 16F84A pero podría funcionar perfectamente en otros microcontroladores de gama media.

Lo que hace el código siguiente es mostrar un numero en la pantalla de 7 segmentos dependiendo de el swich que se levante, para esto se necesitan 3 switch conectados a tierra y unas resistencias (yo las puse de 10k) que van a VCC usando la inversa es decir cuando se levante el switch habrá corriente y cuando este abajo no habrá corriente, ustedes pueden modificarlo y hacerlo de forma directa lo interesante es el código...

LISTP=16F84A
    #INCLUDE <P16F84A.INC>
        RADIX HEX

AUXILIAR    EQU 0X0C
CONTADOR    EQU 0X0D

    ORG 0
    GOTO INICIO
    ORG 5

INICIO BSF STATUS,RP0 ;NOS PASAMOS AL BANCO 1
        MOVLW B'00000010'
        MOVWF TRISB
        MOVLW B'00111'    ;CONFIGURAMOS 3 PUERTOSA ENTRADA
        MOVWF TRISA        ;APLICAMOS LA CONFIGURACION AL PUERTO A
        BCF STATUS,RP0    ;NOS PASAMOS AL BANCO 0

BORRAR     MOVLW B'11111111'
        MOVWF PORTB
SEGUIR MOVLW B'00001'    ;CARGAMOS EL PUERTO A EN W
        XORWF PORTA        ;COMPARAMOS W CON EL PUERTOA (IF W == PUERTOA)
        BTFSS STATUS,Z ;RESULTADO DEL FLAG Z (IF W==PUERTOA THEN Z=0 ELSE Z=1)
        GOTO PROBAR2    ;SI Z ES IGUAL A 1 ENTONCES VAMOS A SEGUIR
        MOVLW B'11110010';DIBUJAMOS EL 1
        MOVWF PORTB        ;CARGAMOS W AL PUERTO B
        GOTO SEGUIR
PROBAR2    MOVLW B'00010'
        XORWF PORTA        ;COMPARAMOS W CON EL PUERTOA (IF W == PUERTOA)
        BTFSS STATUS,Z ;RESULTADO DEL FLAG Z (IF W==PUERTOA THEN Z=0 ELSE Z=1)
        GOTO PROBAR3    ;SI Z ES IGUAL A 1 ENTONCES VAMOS A SEGUIR
        MOVLW B'01001000';DIBUJAMOS EL 2
        MOVWF PORTB
        GOTO SEGUIR
PROBAR3    MOVLW B'00100'
        XORWF PORTA        ;COMPARAMOS W CON EL PUERTOA (IF W == PUERTOA)
        BTFSS STATUS,Z ;RESULTADO DEL FLAG Z (IF W==PUERTOA THEN Z=0 ELSE Z=1)
        GOTO BORRAR        ;SI Z ES IGUAL A 1 ENTONCES VAMOS A SEGUIR
        MOVLW B'01100000';DIBUJAMOS EL 3
        MOVWF PORTB        ;CARGAMOS W AL PUERTO B
        GOTO SEGUIR        ;NOTA 0=ENCENDIDO 1=APAGADO

    END

C - Reemplazar Offsets

2011-02-04T08:31:00.000-08:00

Modifiqué mi anterior función para hacer una que reemplaze los offsets que se quieran y no nomás 1 así me evitaba hacer un bucle en un programa inecesario!

Nota: La variable final la pueden quitar y usar directamente nOffset, yo la puse para debuggear.

int ReemplazarOffsets(int pOffset,int cantidad,char *nOffset, char * archivo)
{
FILE *fp;
char *buffer;
char *temp;
char *final;
int peso;

fp=fopen(archivo,"rb");
if(fp==NULL)
return -1;
fseek(fp,0,SEEK_END);
peso=ftell(fp);
rewind(fp);
final=(char *)malloc(cantidad);
temp=(char *)malloc(pOffset -1);
fread(temp,pOffset-1,1,fp);
fseek(fp,pOffset-1+cantidad,SEEK_SET);
buffer=(char *)malloc(peso - (pOffset - 1) - cantidad);
fread(buffer,peso - (pOffset - 1) - cantidad,1,fp);
fclose(fp);
final=nOffset;
fp=fopen(archivo,"wb");
if(fp==NULL)
return -1;
fwrite(temp,pOffset-1,1,fp);
fwrite(final,cantidad,1,fp);
fwrite(buffer,peso - (pOffset - 1) - cantidad,1,fp);
fclose(fp);
free(temp);
free(buffer);
free(final);
return 0;
}

//uso
...
//Reemplazamos del offset 0x256 al 0x25C rellenando esos offsets con Linkgl
ReemplazarOffsets(0x256,6,"Linkgl","C:\linkgl.exe");
...

C - Abrir y leer un archivo de texto o binario (.exe) SIN bucle

2011-01-24T07:53:00.000-08:00

Bueno cuando yo recién aprendía y me veia con la necesidad de abrir y leer un archivo binario resultaba que en todos los lugares que leía para documentarme, para leer un archivo utilizaban un bucle y esto vamos, esto no va para binarios porque se corta con el caracter nulo '\0' entonces la solución fué crear un bloque de memoria (que no se come los caracteres nulos) y almacenar dentro de la memoria todo el archivo de una vez sin usar ningun bucle...

Acá les dejo el source de cómo leer un archivo de texto o binario sin un bucle:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

//Linkgl.
int main()
{
//variables
FILE *fp;
int dwPeso;
char *szBuffer;
//Abrimos para leer
fp=fopen("hola.exe","rb");
if(fp==NULL)
return -1;
//Obtenemos el peso
fseek(fp,0,SEEK_END);
dwPeso=ftell(fp);
rewind(fp);
//Reservamos un bloque de memoria del tamaño del peso
szBuffer=(char *)malloc(dwPeso);
//Limpiamos nuestro buffer
memset(szBuffer,0,dwPeso);
//Leemos el archivo completo
fread(szBuffer,dwPeso,sizeof(char),fp);
//cerramos
fclose(fp);
getchar();
return 0;
//Compilado con mingw en Dev Cpp
}

O bien si quieren pasarlo a una función leer que haga todo el trabajo nos quedaría masomenos así:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

char *Leer(char *archivo);

//Linkgl.
int main()
{
printf("%s",Leer("hola.txt"));
getchar();
return 0;
//Compilado con mingw en Dev Cpp
}

char *Leer(char *archivo)
{
//variables
FILE *fp;
int dwPeso;
char *szBuffer;
//Abrimos para leer
fp=fopen(archivo,"rb");
if(fp==NULL)
return -1;
//Obtenemos el peso
fseek(fp,0,SEEK_END);
dwPeso=ftell(fp);
rewind(fp);
//Reservamos un bloque de memoria del tamaño del peso
szBuffer=(char *)malloc(dwPeso);
//Limpiamos nuestro buffer
memset(szBuffer,0,dwPeso);
//Leemos el archivo completo
fread(szBuffer,dwPeso,sizeof(char),fp);
//cerramos
fclose(fp);
//retornamos el buffer
return szBuffer;
}

Si bien es más recomendable usarla como lineal (es decir sin hacer la función) por que tienes más flexibilidad de usar los resultados obtenidos en palabras que entendamos todos, si no lo usas como función puedes usar despues la variable peso, y los punteros tipo FILE, bueno una cosa más, si lees un binario (.exe) y luego lo quieres mostrar en modo consola con printf("%s",szBuffer); Sólo te mostrará MZ, porque printf es una función que se corta con los caracteres nulos también pero esto no significa que no esté todo el archivo almacenado en szBuffer, prueba escribiendo el archivo en otro nuevo y verás que se copiará perfectamente porque están todos los bytes en el buffer!

AJAX + Mysql - Linken Foros

2011-01-23T20:52:00.000-08:00

Linken foros es un sisema de foros desarrollado por Kenichi y su servidor Linkgl, este sistema se creó en PHP lineal para la fácil implementación y adaptación en páginas con sistemas de registro para los programadores mas nuevos en el mundo de PHP, el foro fue diseñado en PHP + Javascript (Ajax) y utiliza como base de datos Mysql, tiene un instalador MUY original diseñado por Kenichi para fácilitar la implementación del sistema, y es totalmente OpenSource así que el código puede distribuirse o modificarse bajo las normas GNU

Descarga del source más reciente:
http://linkenforos.com.ar/descargar.php

Página oficial con foro para dudas o más detalles:
http://linkenforos.com.ar

PHP - Funcion para subir un archivo con filtro de extención

2011-01-22T16:21:00.000-08:00

Les dejo una función que hize hace un rato llamada xLoad, lo que hace es procesar un archivo subido y filtrarlo con extensión si pasa la prueba de la extención lo guarda en determinada carpeta retorna true si todo salió bien y false si no.

<?php
/*****************************************
* Coded by linkgl *
* 02/02/10 *
* linkgl@revolutionteam.info *
* sube archivos a carpeta determinada *
* con filtro de extencion *
* **************************************/
function xLoad($archivo,$carpeta,$extencion,$temp)//declaramos la funcion
{
if(substr($archivo, strlen($archivo)-4, 4) != $extencion)//filtramos extencion
{
return false;//si la extencion es incorrecta lo mandamos a...
}
else //de lo contrario
{
if(move_uploaded_file($temp,$carpeta.$archivo))//subimos el archivo a la carpeta con el nombre dado
{
return true;//si todo va bien se acabo aqui
}
else //si no
{
return false;
//este error pueda dar por falta de permisos chmod 777
}
}
} //cerramos nuestros corchetitos y nos vamos
?>

PHP - Convertir de Celsius a Farenheit, Kelvin & Rankine

2011-01-21T08:19:00.000-08:00

Bueno este source es de cuando yo estudié el primer semestre del bachillerato, conveirte de grados celsius a farenheit, kelvin o rankine, así cuando hacía mi tarea no tenía que usar la calculadora solo abrir localhost y poner los datos ahí.

<?
/******************************
* By Linkgl *
* 12/02/10 *
* Formula de wikipedia *
* ***************************/
if(!isset($_POST['num']))
{
?>
<form action="#" method="post">
<input type="text" name="num">
<input type="radio" name="r1" value="f">F
<input type="radio" name="r1" value="k">K
<input type="radio" name="r1" value="r">R

<input type="submit" value="enviar">
</form>
<?
}
else
{
$num=$_POST['num'];
switch($_POST['r1'])
{
case "f":
echo $num*9/5+32;
break;
case "k":
echo $num + 273.15;
break;
case "r":
$op=$num + 273.15;
echo $op*9/5;
break;
}
}
?>

C - Encriptación XOR en C

2011-01-20T08:31:00.000-08:00

Bueno más que programar esta función más bien la traduje de las demás funciones xor en otros lenguajes, este tipo de encriptación no necesita que se cree otra función para desencriptar, al pasarle la función una vez encripta y pasarsela de nuevo desencripta la cadena, esta función también lleva una clave con la cual se combinan ambas cadenas para que sea una encriptación más segura

Parámetros:
Cadena a encriptar, Clave, longitud de la cadena a encriptar, longitud de la clave.

Función:

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
/*
Coder: Linkgl
http://funcion-linkgl.blogspot.com
*/
char *Xcrypt(char *cadena,char *clave,int lcadena,int lclave);
int main()
{
char *buffer; //creamos el buffer
buffer=(char *)malloc(10); //reservamos memoria
memset(buffer,0,10); //limpiamos la memoria
buffer=Xcrypt("soy linkgl","link",10,4); //encriptado
printf("%s\n",buffer);
printf("%s\n",Xcrypt(buffer,"link",10,4));
getchar();
return 0;
}

char *Xcrypt(char *cadena,char *clave,int lcadena,int lclave)
{
int tmp;
char *final;
final=(char *)malloc(lcadena + 1);
memset(final,0,lcadena + 1);
for(int i=0;i<lcadena;i++)
{
tmp=(int)cadena[i] xor (int)clave[(i-1) % lclave+1]+1;
final[i]=(char)tmp;
}
return final;
}

C - Encriptación simple en C

2011-01-19T08:24:00.000-08:00

Acá les publico un algoritmo de encriptación que hize, viene siendo como un ROT-1, funciona encriptando binarios y cadenas así que no hay que preocuparse por el carácter nulo :P

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
/*
Coder: Linkgl
http://funcion-linkgl.blogspot.com
*/
char *LinkCrypt(char *cadena,int largo);
char *LinkDECrypt(char *cadena,int largo);
int main()
{
char *buffer;
//->
buffer=(char *)malloc(10);
memset(buffer,0,10);
//-> USO
buffer=LinkCrypt("soy linkgl",10);
printf("Encriptada-> %s\n",buffer);
printf("Desencriptada-> %s",LinkDECrypt(buffer,10));
getchar();
return 0;
}
char *LinkCrypt(char *cadena,int largo)
{
char *final;
int caracter;
final=(char *)malloc(largo+1);
memset(final,0,largo+1);
for(int i=0;i<largo;i++)
{
    if((int)cadena[i]==0)
      caracter=255;
    else
      caracter=(int)cadena[i]-1;
    final[i]=(char)caracter;
}
return final;
}

char *LinkDECrypt(char *cadena,int largo)
{
char *final;
int caracter;
final=(char *)malloc(largo+1);
memset(final,0,largo+1);
for(int i=0;i<largo;i++)
{
    if((int)cadena[i]==255)
      caracter=0;
    else
      caracter=(int)cadena[i]+1;
    final[i]=(char)caracter;
}
return final;
}

PHP - Páginacion con PHP y MYSQL

2011-01-18T09:16:00.000-08:00

En esta ocasión les enseñaré un source para paginar o bueno en palabras comunes, para tener nuestras paginas en nuestro sistema de noticias en php es decir siguiente pagina y pagina anterior y demás, jeje muestro el source:

$limite=11;// Limite de "noticias" o entradas por página
if(!isset($_GET['pag']))//si la variable pag es nula
{
$pag=0;//entonces lo devolvemos a la primera pagina
}
else // si no
{
$pag=$_GET['pag'];//obtenemos la página en la que estamos
}
$num=$pag*$limite;//multiplicamos la pagina * el limite
$sql=mysql_query("SELECT * FROM tu_tabla LIMIT {$num},{$limite}");//sacamos los nuevos datos
while($row=mysql_fetch_array($sql))
{
echo $row['noticia']."<br />"; // los desplegamos en pantalla
}

Con esto ya tenemos la base, sé que es difícil implementarlo si no tienes mucha experiencia con php, este código lo vas a pegar en la página donde vayas a mostrar tus noticias y vas a reemplazar el campo

$sql=mysql_query("SELECT * FROM tu_tabla LIMIT {$num},{$limite}");
En donde dice tu_tabla lo vaz a reemplazar por el nombre de tu tabla donde esten las noticias
echo $row['noticia']."<br />";
Y aca vas a cambiar noticia por el nombre del campo que contenga las noticias

Ahora para mostrar una flechita para ir a la siguiente pagina pues basta con poner un link apuntando a $_GET['pag']+1 y para pagina anterior $_GET['pag']-1

Si tienes poca experiencia en el lenguaje y no pudiste implementar la paginacion deja un comentario con gusto te ayudare o abrire otra entrada explicandolo PASO a PASO

Nota importante: A los $_GET para página siguiente y página anterior hay que confirmar que sean enteros (int)$_GET.. o if(is_numeric($_GET['pag']) porque esos datos van directo a la base de datos y con una simple comilla pueden hacer una inyección sql.

Esta observación no la hize yo, la hizo Kenichi, gracias por tu comentario para retroalimentar la publiación.