Últimos Temas de: fede_cp

Mostrar Temas
Páginas: 1 2 3 [4]

Programación / PHP / Problema con sesiones

en: 26 Mayo 2009, 15:39 pm

bueno me pasa lo siguiente... estoy haciendo una pagina con registro de usuarios. al registrarse, voy al login e hice una cosa para probar y no me funciona,me pasa lo siguiente, al entrar con el login le pido que me de el nombre de usuario,pero no me lo da,voy al logout, se cierra la sesion, voy a user.php y me muestra la sesion anterior!! :-[

igual voy a restringir el user.php

aca van los codigos:
user.php

Código

<?php
session_cache_limiter();
session_start();
 
require('config.php');
require('functions.php');
 
 
//make connection to dbase
$connection = @mysql_connect($server, $dbusername, $dbpassword)
			or die(mysql_error());
 
$db = @mysql_select_db($db_name,$connection)
			or die(mysql_error());
 
//build and issue the query
$sql ="SELECT * FROM $table_name";
$result = @mysql_query($sql,$connection) or die(mysql_error());
 
?>
<html>
<head>
       <title>Bienvenidos</title>
</head>
<body>
 <p>Entraste con el Nick:</p>
<?php
 echo  $_SESSION[user_name];
 ?>
 <form name="form1" method="post" action="username.php">
   <label>Cambiar nombre de usuario
     <input type="text" name="username.php">
   </label>
 
   <p>&nbsp;</p>
   <label></label>
   <input type="submit" name="Submit" value="Cambiar">
 </form>
<p>&nbsp;</p>
</body>
</html>

config.php no hace falta...

username.php

Código

<?php
 
//function to get the date
function last_login()
{
	$date = gmdate("Y-m-d");
	return $date;
}
 
//function that sets the session variable
function sess_vars($base_dir, $server, $dbusername, $dbpassword, $db_name, $table_name, $user, $pass)
{
 
 
	//make connection to dbase
	$connection = @mysql_connect($server, $dbusername, $dbpassword)
				or die(mysql_error());
 
	$db = @mysql_select_db($db_name,$connection)
				or die(mysql_error());
 
	$sql = "SELECT * FROM $table_name WHERE username = '$user' and password = password('$pass')";
 
	$result = @mysql_query($sql, $connection) or die(mysql_error());
 
 
	//get the number of rows in the result set
	$num = mysql_num_rows($result);
 
	//set session variables if there is a match
	if ($num != 0) 
	{
		while ($sql = mysql_fetch_object($result)) 
		{
			$_SESSION[first_name] 	= $sql -> firstname;
			$_SESSION[last_name] 	= $sql -> lastname; 
			$_SESSION[user_name] 	= $sql -> username;       
			$_SESSION[password] 	= $sql -> password;
			$_SESSION[group1]	 	= $sql -> group1;
			$_SESSION[group2]	 	= $sql -> group2;
			$_SESSION[group3] 		= $sql -> group3;
			$_SESSION[pchange]		= $sql -> pchange;  
			$_SESSION[email] 		= $sql -> email;
			$_SESSION[redirect]		= $sql -> redirect;
			$_SESSION[verified]		= $sql -> verified;
			$_SESSION[last_login]	= $sql -> last_login;
		}
	}else{
		$_SESSION[redirect] = "$base_dir/errorlogin.html";
	}
}
 
//functions that will determine if access is allowed
function allow_access($group)
{
	if ($_SESSION[group1] == "$group" || $_SESSION[group2] == "$group" || $_SESSION[group3] == "$group" ||
		$_SESSION[group1] == "Administrators" || $_SESSION[group2] == "Administrators" || $_SESSION[group3] == "Administrators" ||
		$_SESSION[user_name] == "$group")
		{
			$allowed = "yes";
		}else{
			$allowed = "no";
		}
	return $allowed;
}
 
//function to check the length of the requested password
function password_check($min_pass, $max_pass, $pass)
{
 
	$valid = "yes";
	if ($min_pass > strlen($pass) || $max_pass < strlen($pass))
	{
		$valid = "no";
	}
 
	return $valid;
}
 
?>

en functions.php hay mas cosas pero esta lo que seria la parte de username.

alguna idea?

Programación / Programación Visual Basic / problemas con un programa que estoy haciendo!

en: 8 Mayo 2009, 02:52 am

Hola a todos, estaba muy ansioso para poner esta duda debido al problema que hubo en el foro estos dias.

bien,la cosa es asi, yo ya habia posteado mi programa 1 mes atras y bueno con las respuestas mejoré un poco el programa.

el form aqui:

Código

Private Sub Command1_Click()
Shell "cmd.exe /c net view>nombre_maquinas.txt"
t = Timer2: Do Until Timer > t + 15: Loop
Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\Administrador\Escritorio\nombre_maquinas.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub
 
Private Sub Command3_Click()
Dim texto As String
texto = Text1.Text
Shell "cmd.exe /c nbtstat -a " + texto + ">nbtstat.txt"
t = Timer3: Do Until Timer > t + 10: Loop
Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\Administrador\Escritorio\nbtstat.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub
 
Private Sub Command4_Click()
Text2.Text = "Instrucciones para utilizar Hack Netbios 1.0 by F-Comet:" & vbCrLf & "1.Colocar Hack Netbios 1.0 en el escritorio, en su defecto, produciría fallos." & vbCrLf & "2.Examinar la red con Nombres PC." & vbCrLf & "3.Introducir el nombre de la maquina en Nombrepc." & vbCrLf & "3.Ejecutar netbios conection." & vbCrLf & "4.Al recibir el informe fijarse que haya una maquina con <20> UNIQUE, si es asi continua los siguientes pasos:"
'TextBox1 = "frase1" & vbCrLf & "frase2" & vbCrLf & "frase3"
End Sub
 
Private Sub Command5_Click()
'Dim x as long, name as string
Dim x&, usuario$
 
'defining name...
usuario = Space(100)
 
'calling api: name, and the size/length
x = GetUserName(usuario, 100)
 
Text3.Text = App.Path
If Text3.Text = "C:\Documents and Settings\" + usuario + "\Escritorio" Then
Text3.Text = "Directorio correcto"
Else
Text3.Text = "Directorio incorrecto"
End If
 
End Sub
 
 
Private Sub Label3_Click()
Label3.Caption = Time
End Sub
 
 
Private Sub Timer1_Timer()
 
Label3.Caption = Time
End Sub

Modulo:

Código

option Explicit
 
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Bueno el programa no está terminado, el asunto es el siguiente en la parte :

Código

Private Sub Command5_Click()
'Dim x as long, name as string
Dim x&, usuario$
 
'defining name...
usuario = Space(100)
 
'calling api: name, and the size/length
x = GetUserName(usuario, 100)
 
Text3.Text = App.Path
If Text3.Text = "C:\Documents and Settings\" + usuario + "\Escritorio" Then
Text3.Text = "Directorio correcto"
Else
Text3.Text = "Directorio incorrecto"
End If
 
End Sub

Entonces:
1.lo que hace es llamar al modulo cuando pide el usuario (estamos tods de acuerdo), pero el problema es que cuando va a poner la url se queda en:C:\Documents and Settings\usuario y no pone a "Escriorio" y ahi es mi consula ¿porqué no pone la palabra escritorio y se queda en el nombre de usuario?

2.¿piensan que esta bien usar la shell o.. hay alguna api,socket o lo que sea para llamar a netbios?si es asi no encontre

3.opinen sobre el programa (por favor cirticas constructivas)

4 me estoy inciando en visual basic..¿recomiendan visual basic.net?¿por què?

muchas gracias

33	Programación / Programación Visual Basic / Hack netbios 1.0 en vb 6	en: 15 Marzo 2009, 23:47 pm
hola a todos bueno este codigo visual que voy a poner es el de el progrmaa que estoy realizando que se llama hack netbios 1.0 by F-comet. lo que hace el programa es hacer una intrusion por netbios desde una pc windows 98 a otras windows 98, en su mejora va a haber desde windows xp a windows 98 o viceversa.. nada mas es una prueba. lo que voy a aclarar y tengan en cuenta:soy un newbie,y lo trato de hacer como pueda (ya que estoy aprendiendo) pero eso no es todo sino que me digan (si tienen ganas) que les parece y que puedo agregar (aviso q no esta terminado!!) lo malo es que solo funciona desde el escritorio y ya sabran porque asique.. a dejar comentarios. codigo de hack netbios by F-comet: (solo una parte, de nuevo, no esta terminado) Private Sub Command1_Click() Shell "cmd.exe /c net view>nombre_maquinas.txt" t = Timer: Do Until Timer > t + 10: Loop Dim foo As Integer foo = FreeFile Open "C:\Documents and Settings\all users\Escritorio\nombre_maquinas.txt" For Input As #foo Text2.Text = Input(LOF(foo), #foo) Close #foo End Sub Private Sub Command3_Click() Dim texto As String texto = Text1.Text Shell "cmd.exe /c nbtstat -a " + texto + ">nbtstat.txt" t = Timer: Do Until Timer > t + 10: Loop Dim foo As Integer foo = FreeFile Open "C:\Documents and Settings\Administrador\Escritorio\nbtstat.txt" For Input As #foo Text2.Text = Input(LOF(foo), #foo) Close #foo End Sub Private Sub Command4_Click() Text2.Text = "Instrucciones para utilizar Hack Netbios 1.0 by F-Comet:" & vbCrLf & "1.Colocar Hack Netbios 1.0 en el escritorio, en su defecto, produciría fallos." & vbCrLf & "2.Examinar la red con Nombres PC." & vbCrLf & "3.Introducir el nombre de la maquina deseada en Nombrepc." & vbCrLf & "3.Ejecutar netbios conection." & vbCrLf & "4.Al recibir el informe fijarse que haya una maquina con <20> UNIQUE, si es asi continua los siguientes pasos:" 'TextBox1 = "frase1" & vbCrLf & "frase2" & vbCrLf & "frase3" End Sub Private Sub Label3_Click() Label3.Caption = Time End Sub Private Sub Timer1_Timer() Label3.Caption = Time End Sub cuando termina presento el programa

34	Programación / Scripting / ayuda con actionscript :S	en: 24 Enero 2009, 01:40 am
hola a todos... tube un problema con swishmax... nose que script poner para que un link se abra en la misma ventana...el script getURL se abre en una ventana aparte. espero que me puedan ayudar adioos

Páginas: 1 2 3 [4]