Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
dominio.com/productos/agregar.php
RewriteRule ^productos/(.+).php$ $1 [L, NC]
RewriteRule ^prod/(.+).php$ $1 [L, NC]
Veja Video em que OSAMA BIN Laden aparece segurando jornal com a data
de hoje e desmente sua possivel morte relatada por OBAMA
http://g1.globo.com/mundo/noticia/2011/05/osama-bin-laden-aparece-segurando-jornal-com-a-data-de-hoje.html-0.72414
<html><head>
<link href="estilos.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div class="post-content">
<p>Parrafo 1</p>
<p>Parrafo 2 - Parrafo 2 - Parrafo 2</p>
<p>Parrafo 3 - Parrafo 3 - Parrafo 3 - Parrafo 3 </p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
<p><a rel="lightbox" href="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1.jpg"><img class="alignleft size-thumbnail wp-image-86" title="ananashahotel_1" src="http://www.enmancora.com/wp-content/uploads/2010/12/ananashahotel_1-150x150.jpg" alt="" width="150" height="150" /></a></p>
</div>
</body></html>
p {
padding: 0px 0px 15px 0px;
margin:0px;
}
img {
float:left;
}
public class hex2ascii{
public static void main(String args[]){
//args[0] ="32-39-36-35-32";
try{
String hex[] = args[0].split("-");
String clave= "";
for(int i=0;i<hex.length;i++){
int value = Integer.parseInt(hex[i], 16);
char c = (char) value;
clave = clave + c;
}
System.out.print("\t" + args[0] + " --> ");
System.out.println(clave);
}catch(Exception e){
System.out.println("HEX --> ASCII v0.1\n==========================\n* HEX Parametro: XX-YY-ZZ\n==========================\nby jackl007") ;
}
}
}
Citar
ini_set("memory_limit","400M");
function Validar_URL($url) { $fp = curl_init(); // create cURL handle (ch)
if (!$fp) die("No es posible iniciar sesión CURL");
$ret = curl_setopt($fp, CURLOPT_URL, $url);
//La URL que se quiere obtener. Se puede indicar en init.
$ret = curl_setopt($fp, CURLOPT_RETURNTRANSFER, 1);
$ret = curl_setopt($fp, CURLOPT_TIMEOUT, 30);
$ret = curl_exec($fp); if (empty($ret)) {
die(curl_error($fp)); curl_close($fp); } else {
$info = curl_getinfo($fp, CURLINFO_HTTP_CODE); curl_close($fp); return $info; }
}
Public Function Frag(ByVal Cad As String, dLim As String, X As Integer) As String
Dim i, a As Integer
Dim Encontrado As Boolean
For a = 1 To X
i = InStr(1, Cad, dLim)
If i = 0 Then
If Encontrado = False Then
Frag = Cad
Encontrado = True
Else
Frag = "NotFound"
End If
Else
Frag = Mid(Cad, 1, i - 1)
Cad = Mid(Cad, i + Len(dLim))
End If
Next a
End Function
import java.net.*;
import java.io.*;
public class XorCoder
{
public static String cifra(String Pass, String clave){
String Codigo, CAR;
int i;
//String clave = new String("%ü&/@#$A");
String Pass2 = new String("");
char codigo[],car[];
for(i=1;i<= Pass.length();i++){
CAR = Mid(Pass,i, 1);
car= CAR.toCharArray();
Codigo = Mid(clave, ((i - 1) % clave.length()) + 1, 1);
codigo= Codigo.toCharArray();
Pass2 = Pass2 + Right("0" + Integer.toHexString((int)codigo[0] ^ (int)car[0]), 2);
}
return Pass2;
}
public static String descifra(String Pass,String clave){
String Codigo, CAR;
int i,j=1;
//String clave = new String("%ü&/@#$A");
String Pass2 = new String("");
char codigo[],car[],hex[];
for(i=1;i<= Pass.length();i=i+2){
CAR =Mid(Pass, i, 2);
car= CAR.toCharArray();
Codigo = Mid(clave, ((j - 1) % clave.length()) + 1, 1);
codigo= Codigo.toCharArray();
Pass2 = Pass2 + (char)((int)codigo[0] ^ Integer.parseInt(CAR, 16));
j++;
}
return Pass2;
}
public static String Mid(String cad,int a, int b){
cad = cad.substring(a-1,a + b -1);
return cad;
}
public static String Right(String cad,int a){
cad = reverse(cad);
cad = cad.substring(0,a);
cad = reverse(cad);
return cad;
}
public static String reverse(String source) {
int i, len = source.length();
StringBuffer dest = new StringBuffer(len);
for (i = (len - 1); i >= 0; i--) {
dest.append(source.charAt(i));
}
return dest.toString();
}
}
* INTRODUCCION
* Breve introducción al lenguaje Java
o J2EE
o El lenguaje Java
+ Variables y Tipos de Datos
+ Clases y Objetos
+ Estructuras de control
+ Estructuras de datos
* Nuestro primer MIDlet
o Compilando el primer MIDlet
o Desarrollo de MIDlets
o Anatomía de un MIDlet
* La interfaz de usuario de alto nivel
o ¿Cómo funciona un MIDlet?
o Elementos de la interfaz de usuario
+ La clase Alert
+ La clase List
+ La clase TextBox
+ La clase Form
+ La clase StringItem
+ La clase ImageItem
+ La clase TextField
+ La clase DateField
+ La clase ChoiceGroup
+ La clase Gauge
* La interfaz gráfica de bajo nivel
o Primitivas Gráficas
+ Colores
+ Primitivas
+ Texto
+ Imágenes
* Sprites
o Control de sprites
* Un Universo en tu móvil
o Animando nuestro avión
+ Lectura del teclado
+ Threads
+ El Game Loop
+ Movimiento del avión
o Construyendo el mapa del juego
o Scrolling
* Enemigos, disparos y explosiones
o Tipos de Inteligencia
o Comportamientos y máquinas de estado
o Enemigos
o Disparos y explosiones
* Sonidos
o Sonidos
o Música
* Almacenamiento. RMS
o Trabajando con RMS
+ Abrir y errar un recordStore
+ Añadir registros
+ Leer registros
+ Borrar registros
+ Recorriendo registros
* Comunicaciones
* Código Fuente
o M1945.java
o Sprite.java
o Enemy.java
o Bullet.java
o Explode.java
o Hero.java
* Bibliografía y Enlaces
o Bibliografía
+ Java
+ J2ME
o Enlaces
+ J2ME
+ Programación de videojuegos
'#########################################
' ## Teoria ##
'La idea se basa en hacer girar un cuadrado sobre su eje
'Si tenemos dos cuadrados girando a la vez, seria como tener las dos tapas (superior e inferior) del cubo
'para ello haremos uso de coordenadas Polares, para poder propiciar el giro
'Debemos saber que un punto se puede ubicar de varias formas:
'1: Conociendo la posicion en X, y en Y
'2: Conociendo el Angulo y el Radio (Coordenadas Polares), esto usaremos para ubicar cada punto
'Si un cuadrado gira sobre su eje, existe una distancia del punto al eje, esto sera nuestro RADIO;
'por lo cual cada punto en movimiento describira una circunferencia (su trayectoria)
'o una elipse dependiendo de como se mire
'Controles: un Timer
'by Jackl007!
'#########################################
Const PI = 3.141592654
Dim Inter As Integer 'Intervalo del Angulo
Function AngRad(ByVal a As Double) As Double
'Esta funcion convierte un Angulo Decimal a un angulo en radianes,
'recordar que necesitamos hacer dicho cambio para poder trabajar con los incrementos
'ya que la funcion seno, y coseno recibe en RADIANES
AngRad = (a * PI / 180)
End Function
Private Sub Form_Load()
Inter = 0
Me.AutoRedraw = True
Me.BackColor = vbBlack
Me.Height = 6180
Me.Width = 6180
Timer.Interval = 100
Scale (-50, 50)-(50, -50) 'Mi escala, en X y en Y normal
End Sub
Private Sub Timer_Timer()
Cls 'Colocarlo y quitarlo para probar distintos efectos
'recordamos que inter es el ANGULO
'##############################
Cubo 30, 15, 0, 0, Inter 'El 30 : radio 1, 15 = radio dos, 0 =eje x, 0 = eje y
Line (0, 40)-(0, 15), vbRed
Line (0, 15)-(0, -15), vbGreen
Line (0, -15)-(0, -40), vbRed
'##############################
'Algunos ejemplos Mas...
'#########################################
'Rotar cuadrados en su mismo eje; probar ambas sentencias de este bloque a la vez
'El cero, cero: POSICION
'Rectangulo 30, 30, 0, 0, Inter
'Rectangulo 30, 30, 0, 0, Inter + 20
'Rectangulo 30, 30, 0, 0, Inter + 40
'Rectangulo 30, 30, 0, 0, Inter + 60
'Rectangulo 30, 30, 0, 0, Inter + 80
'#########################################
'#########################################
'Conociendo a un Cuadrado
'Cuadrado 25, 0, 0, 0 'el ultimo parametro es el ANGULO DE INCLINACION
'Cuadrado 25, 0, 0, 45
'Cuadrado 25, 0, 0, 70
'#########################################
Inter = Inter + 10 'Incremento del Angulo
End Sub
Sub Cubo(ByVal R1 As Double, ByVal R2 As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
'R1 = Radio 1 (el algoritmo calcula los giros del cubo en base al radio de una circunferencia circunscrita en el cuadrado
'R2 = radio 2
'eX = Posicion en eje X
'eY = Posicion en eje x
'Ang = angulo de inclinacion, respecto a la horizontal
Dim a, i As Integer
Dim xA, xB, yA, yB As Double 'variables para guardar las posiciones temporales
a = Ang + 45 'inclinacion entre cada radio
i = a
'Cambiamos a sistema de coordenadas polares
For i = a To a + 360 Step 90
If i = a Then
xA = R1 * Cos(AngRad(i)) + eX
yA = R2 * Sin(AngRad(i)) + R1 / 2 + eY
xB = R1 * Cos(AngRad(i)) + eX
yB = R2 * Sin(AngRad(i)) - R1 / 2 + eY
Else
Line (xA, yA)-(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + R1 / 2 + eY), &HE0E0E0
Line (xB, yB)-(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) - R1 / 2 + eY), &HE0E0E0
xA = R1 * Cos(AngRad(i)) + eX
yA = R2 * Sin(AngRad(i)) + R1 / 2 + eY
xB = R1 * Cos(AngRad(i)) + eX
yB = R2 * Sin(AngRad(i)) - R1 / 2 + eY
Line (xA, yA)-(xB, yB), &HE0E0E0 'Esto dibuja las lineas entre las tapas laterales
'quitarlo y probar los efectos
End If
Next i
End Sub
Sub Rectangulo(ByVal R1 As Double, ByVal R2 As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
Dim a, i As Integer
a = Ang + 45
i = a
For i = a To a + 360 Step 90
If i = a Then
CurrentX = R1 * Cos(AngRad(i)) + eX
CurrentY = R2 * Sin(AngRad(i)) + eY
Else
Line -(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + eY), &HE0E0E0
End If
Next i
End Sub
Sub Cuadrado(ByVal R As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)
Dim a, i As Integer
a = Ang + 45
i = a
For i = a To a + 360 Step 90
If i = a Then
CurrentX = R * Cos(AngRad(i)) + eX
CurrentY = R * Sin(AngRad(i)) + eY
Else
Line -(R * Cos(AngRad(i)) + eX, R * Sin(AngRad(i)) + eY), &HE0E0E0
End If
Next i
End Sub
Private Declare Function GetObject _
Lib "gdi32" _
Alias "GetObjectA" ( _
ByVal hObject As Long, _
ByVal nCount As Long, _
lpObject As Any) As Long
'Estructutra necesesaria para la informacion del Bitmap
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
'Array de bytes y variable para la estructura
Dim PicBits() As Byte, PicInfo As BITMAP
Dim ArchivoXML As String
Dim MAX As Integer
'Variable para almacenar la imagen
Dim Laimagen As IPictureDisp
Function Nombre(path)
Nombre = Mid(path, InStrRev(path, "\") + 1)
End Function
Function Factor(ByVal num As Double)
Dim N As Integer
N = Round(num)
If N < 680 Then
Factor = 1
Else
Dim temp As Double
temp = N / MAX
If temp > 1 Then
Factor = N / temp
Else
Factor = N
End If
Factor = Round(temp, 4)
End If
End Function
Function Div(numW, numH)
Dim N As Integer
N = numW: MAX = 680
If numW < numH Then
N = numH
MAX = 500
End If
Dim temp As Double
temp = Factor(N)
numW = Round(numW / temp)
numH = Round(numH / temp)
'If MAX = 500 Then numH = numH - 100
Dim Adicional As Integer
Adicional = 450 - numH
If Adicional > 0 Then
If numH > 350 Then
numW = Round((numW * (numH + Adicional)) / numH)
numH = numH + Adicional
End If
End If
End Function
Function Subfolders(path)
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Dim N_w, N_h As Integer
Set Drives = fso.Drives
newpath = path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each File In Files
Set Laimagen = LoadPicture(File.path)
GetObject Laimagen, Len(PicInfo), PicInfo
ext = fso.GetExtensionName(File.path)
ext = LCase(ext)
If ext = "jpg" Then
N_w = CLng(PicInfo.bmWidth)
N_h = CLng(PicInfo.bmHeight)
test = Div(N_w, N_h)
ArchivoXML = ArchivoXML & vbCrLf & "<image>" & vbCrLf _
& " <url>" & Nombre(Text1) & "/" & File.Name & "</url>" & vbCrLf _
& " <caption> </caption>" & vbCrLf _
& " <width>" & N_w & "</width>" & vbCrLf _
& " <height>" & N_h & "</height>" & vbCrLf _
& "</image>" & vbCrLf
'& " <width>" & CLng(PicInfo.bmWidth) / 2.4 & "</width>" & vbCrLf
'& " <height>" & CLng(PicInfo.bmHeight) / 2.4 & "</height>" & vbCrLf
End If
DoEvents
Next
End Function
Private Sub Command1_Click()
ArchivoXML = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>" & vbCrLf _
& "<gallery frameColor=" & Chr(34) & "0xFFFFFF" & Chr(34) & " frameWidth=" & Chr(34) & "15" & Chr(34) & " imagePadding=" & Chr(34) & "20" & Chr(34) & " displayTime=" & Chr(34) & "6" & Chr(34) & " enableRightClickOpen=" & Chr(34) & "true" & Chr(34) & ">" & vbCrLf & vbCrLf
Subfolders (Text1.Text)
ArchivoXML = ArchivoXML & vbCrLf & "</gallery>"
Text3.Text = ArchivoXML
End Sub
<html><head>
<script language="javascript">
window.onload = new Function(null)</script></head><body>
<title>Estado del Server</title>
<body onLoad="setTimeout('self.location.reload()', 5000)">
<?
// Configura tu conexion
$db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
mysql_select_db("contador", $db);
$limite = time()- 20; // 20 segundos
global $REMOTE_ADDR;
$ip = $REMOTE_ADDR;
mysql_query("delete from visitantes where fecha < " .$limite,$db); // Eliminamos deacuerdo al tiempo
if (mysql_result (mysql_query("SELECT COUNT(ip) FROM visitantes" ,$db),0 ) != 0 ){
echo "<font face='verdana'><center>===========================<br>";
echo "<b>jackl007</b><br>";
echo "-------------------------------------------------<br>";
echo " Estado del Server: <b><font color='green'>Online</font></b> <br>";
echo "-------------------------------------------------<br>";
echo "===========================</font></center>";
}
else {
echo "<font face='verdana'><center>===========================<br>";
echo "<b>jackl007</b><br>";
echo "-------------------------------------------------<br>";
echo " Estado del Server: <b><font color='red'>Offline</font></b> <br>";
echo "-------------------------------------------------<br>";
echo "===========================</font></center>";
}
mysql_close($db);
?>
<noframes><iframe><noscript><xmp><pre>
<html><head>
<script language="javascript">
window.onload = new Function(null)</script></head><body>
<?
// Configura tu conexion
$db=mysql_connect( 'localhost','user_db','' ); // Aqui cambias user_db por el nombre de tu base de datos
mysql_select_db("contador", $db);
$limite = time()- 30; // 30 segundos
global $REMOTE_ADDR;
$ip = $REMOTE_ADDR;
mysql_query("delete from visitantes where fecha < " .$limite,$db);
$result = mysql_query( "select ip from visitantes where ip = '$ip'",$db);
if (mysql_num_rows($result) != 0){
mysql_query("update visitantes set fecha = " .time()." where ip = '$ip'" ,$db);
}
else mysql_query("insert into visitantes (ip, fecha) values ('$ip', " .time().")" ,$db);
mysql_close($db);
?>
<noframes><iframe><noscript><xmp><pre>
Private Sub Timer1_Timer()
wb.Navigate "http://usuarios.lycos.es/(...)/monitorear.php"
End Sub
vIcon = vIcon + 1vIcon = 0
Creador : V_D_Y
Attribute VB_Name = "mdErrores"
' FINALIDAD: GESTIONA Y GRABA LOS ERRORES PRODUCIDOS EN EL PROGRAMA EN UN
' FICHERO PLANO
' PARAMETROS
' ErrDesc: descripcion del error
' ErrMod: localización del error
'Sacado de un programa OpenSource llamado Zas
Option Explicit
Public FileError As String
'FileError = "Error.log"
'llamada en los forms: 'GrabaErr Err.Description, Err.Number, "Main :: Gen"' 'esto lo cambias segun el procedimiento desde donde es llamado
Public Function GrabaErr(ErrDesc As String, ErrNum As String, ErrMod As String)
Open App.Path & "\" & FileError For Append As #3
Print #3, "------> "
Print #3, "Version : " & App.Major & "." & App.Minor & "." & App.Revision
Print #3, "Error en el modulo " & ErrMod
Print #3, "Fecha y Hora: " & Date & " " & Time & " Error: " & ErrNum & " :: " & (ErrDesc)
Print #3, "<------"
Close #3
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & " Se ha grabado el error en " & FileError, vbCritical, "Error en programa"
End Function
dim Num as Interger
Num = 1 'es el valor que se introducira en forma binaria
Dim WshShell, bKey
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\...\llave", Num, "REG_BINARY"
; ahora lo tengo como recuerdo.
