Indetectables

Código: Seleccionar todo

<?
/********************************************
 * Coded by linkgl                          *
 * 25/02/10                                 *
 * [email protected]               *
 * version beta, errores a mi correo        *
 * indetectables.net                        *
 * *****************************************/    
class lcrypt
{
  function encript($string)
  {
    for($i=1;$i<strlen($string);$i++)
    {
      $p=substr($string,$i,1);
      $c=ord($p);
      if($c<=255)
      {
        $c=$c+1;
      }
      else
      {
        $c=$c-1;
      }
      $d=chr($c);
      $total.=$d;
    }
    return $total;
  }
  function decript($dato)
  {
    for($i=1;$i<strlen($dato);$i++)
    {
      $p=substr($dato,$i,1);
      $c=ord($p);
      if($c<=255)
      {
        $c=$c-1;
      }
      else
      {
        $c=$c+1;
      }
      $d=chr($c);
      $t.=$d;
    }
    return $t;
  }
}
//uso
$st="holacomoestas";
$l=new lcrypt;
echo $l->encript($st);
?>

Código: Seleccionar todo

'********************************************
'* Coded by linkgl                          *
'* 25/02/10                                 *
'* [email protected]               *
'* version beta, errores a mi correo        *
'* indetectables.net                        *
'* Modulo lcrypt                            *
'********************************************
Function lcrypt(st As String)
Dim p As String
Dim c As String
For i = 1 To Len(st)
      p = Mid(st, i, 1)
      c = Asc(p)
      If c <= 255 Then
        c = c + 1
      Else
        c = c - 1
      End If
      d = Chr(c)
      lcrypt = lcrypt & d
Next i
End Function

Function ldecrypt(st As String)
Dim p As String
Dim c As String
For i = 1 To Len(st)
      p = Mid(st, i, 1)
      c = Asc(p)
      If c <= 255 Then
        c = c - 1
      Else
        c = c + 1
      End If
      d = Chr(c)
      ldecrypt = ldecrypt & d
Next i
End Function

Código: Seleccionar todo

Private Sub Command1_Click()
Dim data As String
data = lcrypt("holamundo")
MsgBox data
MsgBox ldecrypt(data)
End Sub