El Rincón de Cesar

Generar cadena en MD5

1 de abril de 20211 de noviembre de 2021 Cesar Perez 2 comentarios

Hola buenas tardes a tod@s,

En esta entrada os traemos un codigo muy sencillo para poder generar una cadena en formato MD5, con esto podemos generar algun hash para controlar alguna contraseña o simplemente para poder realizar algun control de versiones.

La funcion seria la siguiente:

Imports System.Text
Imports System.Security.Cryptography
 
Function generarMD5(ByVal sCadena As String) As String  
  Dim ueCodigo As New UnicodeEncoding() 
  Dim Md5 As New MD5CryptoServiceProvider() 
  Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))
 
  Return Convert.ToBase64String(bHash)
End Function

Imports System.Text

Imports System.Security.Cryptography

Function generarMD5(ByVal sCadena As String) As String

Dim ueCodigo As New UnicodeEncoding()

Dim Md5 As New MD5CryptoServiceProvider()

Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

Return Convert.ToBase64String(bHash)

End Function

Para llamarla simplemente tendriamos que realizar la llamada a dicha funcion y tendriamos el resultado:

Dim sCadena As String = "elrincondecesar.com"
Dim sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Dim sCadena As String = "elrincondecesar.com"

Dim sMd5Generado As String = generarMD5(sCadena)

'Cadena obtenida: 694a6f3e6ec1e316422b496f995a10dc

Como veis es muy sencillo, espero que os valga para algo 😉

Buscar cadena en objetos SQL Server

1 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s, en esta ocasión ponemos a vuestra disposición un script muy útil para buscar una cadena de texto dentro de todos los objetos de una base de datos de SQL Server, para ello, solo hay que ejecutar el siguiente script:

--Variable que contentendrá el texto a buscar, nombre de una tabla, columna, etc...
DECLARE @SearchText AS VARCHAR(100)
SET @SearchText = 'texto a buscar'

--Consulta de los procedimeintos que contienen dicho texto
SELECT DISTINCT o.id AS 'ID Objeto', USER_NAME(o.uid) + '.' + OBJECT_NAME(c.id) AS 'Nombre Objeto',
	CASE
	WHEN OBJECTPROPERTY(c.id, 'IsReplProc') = 1
	THEN 'Replication stored procedure'
	WHEN OBJECTPROPERTY(c.id, 'IsExtendedProc') = 1
	THEN 'Extended stored procedure'
	WHEN OBJECTPROPERTY(c.id, 'IsProcedure') = 1
	THEN 'Stored Procedure'
	WHEN OBJECTPROPERTY(c.id, 'IsTrigger') = 1
	THEN 'Trigger'
	WHEN OBJECTPROPERTY(c.id, 'IsTableFunction') = 1
	THEN 'Table-valued function'
	WHEN OBJECTPROPERTY(c.id, 'IsScalarFunction') = 1
	THEN 'Scalar-valued function'
	WHEN OBJECTPROPERTY(c.id, 'IsInlineFunction') = 1
	THEN 'Inline function'
	WHEN OBJECTPROPERTY(c.id, 'IsView') = 1
	THEN 'View'
	END AS 'Tipo Objeto', m.definition AS 'SCRIPT'
FROM syscomments c
	INNER JOIN
	sysobjects o
	ON c.id = o.id
	INNER JOIN sys.sql_modules m
	ON m.object_id = o.id
WHERE c.text LIKE '%'+@SearchText+'%' AND
	encrypted = 0 AND
	( OBJECTPROPERTY(c.id, 'IsReplProc') = 1 OR
	OBJECTPROPERTY(c.id, 'IsExtendedProc') = 1 OR
	OBJECTPROPERTY(c.id, 'IsProcedure') = 1 OR
	OBJECTPROPERTY(c.id, 'IsTrigger') = 1 OR
	OBJECTPROPERTY(c.id, 'IsTableFunction') = 1 OR
	OBJECTPROPERTY(c.id, 'IsScalarFunction') = 1 OR
	OBJECTPROPERTY(c.id, 'IsInlineFunction') = 1 OR
	OBJECTPROPERTY(c.id, 'IsView') = 1 )
ORDER BY 'Tipo Objeto', 'Nombre Objeto

--Variable que contentendrá el texto a buscar, nombre de una tabla, columna, etc...

DECLARE @SearchText AS VARCHAR(100)

SET @SearchText = 'texto a buscar'

--Consulta de los procedimeintos que contienen dicho texto

SELECT DISTINCT o.id AS 'ID Objeto', USER_NAME(o.uid) + '.' + OBJECT_NAME(c.id) AS 'Nombre Objeto',

CASE

WHEN OBJECTPROPERTY(c.id, 'IsReplProc') = 1

THEN 'Replication stored procedure'

WHEN OBJECTPROPERTY(c.id, 'IsExtendedProc') = 1

THEN 'Extended stored procedure'

WHEN OBJECTPROPERTY(c.id, 'IsProcedure') = 1

THEN 'Stored Procedure'

WHEN OBJECTPROPERTY(c.id, 'IsTrigger') = 1

THEN 'Trigger'

WHEN OBJECTPROPERTY(c.id, 'IsTableFunction') = 1

THEN 'Table-valued function'

WHEN OBJECTPROPERTY(c.id, 'IsScalarFunction') = 1

THEN 'Scalar-valued function'

WHEN OBJECTPROPERTY(c.id, 'IsInlineFunction') = 1

THEN 'Inline function'

WHEN OBJECTPROPERTY(c.id, 'IsView') = 1

THEN 'View'

END AS 'Tipo Objeto', m.definition AS 'SCRIPT'

FROM syscomments c

INNER JOIN

sysobjects o

ON c.id = o.id

INNER JOIN sys.sql_modules m

ON m.object_id = o.id

WHERE c.text LIKE '%'+@SearchText+'%' AND

encrypted = 0 AND

( OBJECTPROPERTY(c.id, 'IsReplProc') = 1 OR

OBJECTPROPERTY(c.id, 'IsExtendedProc') = 1 OR

OBJECTPROPERTY(c.id, 'IsProcedure') = 1 OR

OBJECTPROPERTY(c.id, 'IsTrigger') = 1 OR

OBJECTPROPERTY(c.id, 'IsTableFunction') = 1 OR

OBJECTPROPERTY(c.id, 'IsScalarFunction') = 1 OR

OBJECTPROPERTY(c.id, 'IsInlineFunction') = 1 OR

OBJECTPROPERTY(c.id, 'IsView') = 1 )

ORDER BY 'Tipo Objeto', 'Nombre Objeto

Hay que sustituir la cadena que pone “texto a buscar” por el texto que queremos encontrar, y al ejecutar, nos mostrara un listado con todas las coincidencias indicando el tipo de objeto en el que ha encontrado la coincidencia.

Espero que os valga para algo, a mi me ha sacado de algún apuro.

Buscar Triggers en Base de datos

1 de abril de 20211 de noviembre de 2021 Cesar Perez

Hola a tod@s, aquí os traigo un pequeño script de SQL Server el cual nos permite buscar en toda la base de datos los triggers (disparadores) generados en las diferentes tablas, para ello simplemente hay que ejecutar el siguiente script.

SELECT e.name AS [ESQUEMA], o.name AS [TABLA], t.name AS [TRIGGERS]
FROM sys.triggers AS t inner join sys.objects AS o ON 
	(t.parent_id = o.object_id) inner join sys.schemas AS e ON 
		(o.schema_id = e.schema_id)
ORDER BY o.name, e.name, t.name

SELECT e.name AS [ESQUEMA], o.name AS [TABLA], t.name AS [TRIGGERS]

FROM sys.triggers AS t inner join sys.objects AS o ON

(t.parent_id = o.object_id) inner join sys.schemas AS e ON

(o.schema_id = e.schema_id)

ORDER BY o.name, e.name, t.name

La información realmente se puede encontrar en la tabla sys.triggers, lo que estamos haciendo es unirla con la tabla sys.objects para sacar los nombres de los objetos y a su vez, unirla con sys.schemas para sacar los esquemas afectados en el caso que los tuviésemos.

Nos es obligatorio unir las tres tablas pero si lo hacemos tendríamos un scripts mas completo.

Espero que os sea de utilidad.

Hola a tod@s, ya estamos en la red….

29 de marzo de 20211 de noviembre de 2021 Cesar Perez

Buenas tardes a tod@s,

Pues hoy es el día que me he decidió a realizar este blog para poner ese granito de arena y intentar ayudaros a que aprendáis o encontréis aquella información que podéis necesitar, desde hoy intentare actualizar el blog de forma regular.

Si tienes cualquier sugerencia o quieres colaborar con este blog no dudes en ponerte en contacto conmigo.

Muchas gracias por visitarnos y espero verte de nuevo por aquí 😉

Saludos