Menú

Mostrar Mensajes

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.

Mostrar Mensajes Menú

Mensajes - **Aincrad**

#151
Cita de: luis456 en 11 Marzo 2020, 07:34 AM
Hola a todos
alguien me puede orientar para conseguir un programa para convertir mp4 a otros formatos que no tenga limitaciones ni marcas de agua ?

saludos

Luis

Siempre puedes hacerlo tu mismo, Programas en .Net , es demasiado facil hacer una app para convertir videos .
Maximo tardas 1 dia en hacerla . (Usando alguna api seria lo mas rapido)

Chale de verdad tienes casi 60 años? , casi eres un abuelo alv. :v

#152
Cita de: luis456 en 11 Marzo 2020, 06:48 AM
Código (vbnet) [Seleccionar]
Imports System.Collections.Generic
Dim input As let = new List()
Dim 2, 3, 5, 7 As 1,

Dim output As let = new Array()
For i As let = 0 To input.length-1
For j As let = 0 To input.length-1
If input(i) <> input(j) AndAlso  input(i) < 5 Then
  output.push(input[i] * 10 + input[j])

  End if

  Next

  Next

console.log(output) '[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]



Let? (output As let ) , bueno , correccion :

Código (vbnet) [Seleccionar]
  Dim input As Integer() = {1, 2, 3, 5, 7}

        Dim output As New List(Of Integer)

        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i



#153
No uso El paquete de Microsoft Office. uso uno que se llama WPS Office, muy bueno la verdad, link :

https://www.wps.com/
#154
Cita de: simorg en  6 Marzo 2020, 00:54 AM
Génesis 2:18   

Y el SEÑOR Dios dijo: No es bueno que el hombre esté solo; le haré una compañera idónea.
Génesis 2:22   

Y de la costilla que el SEÑOR Dios había tomado del hombre, formó una mujer y la trajo al hombre.
1 Timoteo 2:13   

Porque Adán fue creado primero, después Eva.
1 Corintios 11:8   

Porque el hombre no procede de la mujer, sino la mujer del hombre;
1 Corintios 11:9   

pues en verdad el hombre no fue creado a causa de la mujer, sino la mujer a causa del hombre

Una Feminazi lee esto y madre mia willi.
#155
Solo tengo una PC, y tengo internet (uso los datos del telefono enlazado a anclaje de red) . por lo tanto solo hay una IP en mi red.

*Deberia Funcionar ya.....  :P

Código (vbnet) [Seleccionar]
'obtenemos ip
       Dim myClientMachineAddressList As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
       Dim myClientMachineIP = myClientMachineAddressList.AddressList.Where(Function(a) a.AddressFamily = AddressFamily.InterNetwork).ToArray

       'Eliminamos Duplicados y sobre-escribimos en la misma variable.
       myClientMachineIP = myClientMachineIP.Distinct(EqualityComparer(Of IPAddress).Default).ToArray

       'recorremos los duplicados 1 por 1 y los pamos a un textbox (como string) .
       For Each ipadress In myClientMachineIP
           TextBox2.Text = TextBox2.Text & vbNewLine & ipadress.ToString
       Next


Bien si te preguntas que estabas haciendo mal. (Realmente no soy bueno explicando)

hay varias cosas que veo mal en tu code.  Por ejemplo:

1) Como puede haber 2 IPs iguales en una misma red?? no deberian haber duplicados , en todo caso, no se si eso pueda pasar.

2) la funcion con la que obtienes las IPs es del tipo IPAddress, y tu intentas eliminar los duplicados señalando que es tipo Integer ademas de que la lista int32List las estas declarando como String en (New List(Of String)) , bueno ahi esta el error, ya deberia funcionar.



#156
Foro Libre / Re: generar electricidad
3 Marzo 2020, 22:06 PM
Y asi entramos en un Debate sobre Energia! .  :rolleyes:
#157
@NEBIRE eres el dios del Pseudocodigo ? :v
#158
Cita de: EdePC en 27 Febrero 2020, 22:36 PM
- Tengo entendido que pasarlo a C# es bastante sencillo, haber si me llega a descargar el C# 2005 para mañana y pasarlo si es que aún hay dudas.

Siempre puedes usar el conversor de Telerik Code Converter

Nunca falla, yo mismo he pasado codigos de C# a vb . y funcionan correctamente.

Codigo Convertido :

Código (csharp) [Seleccionar]
using System;
using System.Text.RegularExpressions;

public class Form1
{
    private void Button1_Click(System.Object sender, System.EventArgs e)
    {
        Regex rx = new Regex(@"(?<negativos>-\d+)|(?<positivos>\d+)");
        string positivos = "";
        string negativos = "";
        foreach (Match match in rx.Matches(txt.Text))
        {
            if (match.Groups["positivos"].Value != "")
                positivos = positivos + "," + match.Value;
            else
                negativos = negativos + "," + match.Value;
        }
        string[] numPos = positivos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
        string[] numNeg = negativos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries);
    }
}
#159

Como te dijo el buen compañero @ThunderCls , lista los modulos , o tambien el numero de modulos que ha cargado el juego y asi lo comparas.

aqui te dejo una funcion simple que hize :

Código (vbnet) [Seleccionar]
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr

        Public Shared Function GetProcessModules(ByVal Process_Name As String) As String
            Dim DataS As New StringBuilder
            Dim pc As Process() = Process.GetProcessesByName(Process_Name)

            Dim hndProc As IntPtr = OpenProcess(&H2 Or &H8 Or &H10 Or &H20 Or &H400, 1, CUInt(pc(0).Id))
            If hndProc = IntPtr.Zero Then
                Return "Error"
            End If

            Dim ModulesCount As Integer = pc(0).Modules.Count - 1
            For index As Integer = 0 To ModulesCount
                DataS.Append(pc(0).Modules(index).FileName & vbNewLine)
            Next

            Return DataS.ToString
        End Function


Con esta funcion listas los modulos (librerias) de un proceso, el primer modulo siempre es el proceso como tal se le denomina el MainModule vendria siendo el .exe, los demas son las librerias.

Modo de empleo :

Código (vbnet) [Seleccionar]
TextBox1.Text = GetProcessModules("nombredelProcesoDeljuego")

asi obtienes la lista de librerias que Emplea el juego , podes hacer una comparacion , pero soy el unico que piensa que lo que estas intentando hacer es inutil? digo un proceso carga rapidamente todas sus librerias al iniciar y no tarda mas de 4s .

#160
Hola, Hago este Post para los que todavía hacen sus script Batch y quieran algo de Proteccion.

Bueno Primero que nada , el sacarle el codigo a un Script Batch es demasiado sencillo, ya sea hacer Dump a la salida de comandos etc...

Bueno hice este pequeño editor de codigo de tan solo 1.7mb . Codigo Fuente : (Monaco Script Editor)




Antes que nada ya habia posteado algunos obfuscadores para Batch anteriormente, que los habia codeado en batch , link para el que le interese :

BatOfuser v2.1

batcrypt

Bueno pero estas dos versiones tenian un gran , prero gran bug. el cual al Obfuscar llamadas a variables (ej : %variable%) pues de jodia todo , no servia. pueden leer mas en los link que puse anteriormente .




Bueno ahora en vb.net acomode dicho bug. ya esta listo :

Link de Descarga del IDE:  Dowload Monaco IDE

Bueno a Continuacion imagenes :

1)Codigo a Obfuscar :



2) Seleccionamos la Opcion que desemos para obfuscar :



3) Codigo Obfuscado  :



4) La Salida Siempre es la misma :



Sin Embargo Un DUMP a la salida de comandos o un Debug simple y ya te sacaran el codigo :

Ej :


Tubat.bat > Codigo.txt 2>&1

Por eso siempre es preferible Obfuscar y Convertir a .exe tu script.




Es posible que cuando Obfusques algun simbolo y corras el script se bugee, eso lo solucionare mas adelante , si pueden ayudarme a encontrar que simbolos son los que hace que se bugee seria mejor, gracias por leer.