THT DUYURU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

chat
Seçenekler

Basit Rastgele Şifre Oluştucu|Efy

Efy
Efy - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Öteki Taraf
Mesajlar:
5.682
Konular:
658
Teşekkür (Etti):
45
Teşekkür (Aldı):
1680
Ticaret:
(0) %
28-04-2018 15:52
#1
Basit Rastgele Şifre Oluştucu|Efy
Kod:
@echo off
:Start2
cls
goto Start
:Start
title Password Generator
echo I will make you a new password. 
echo Please write the password down somewhere in case you forget it. 
echo ----------------------------------------¬-----------------------
echo 1) 1 Random Password
echo 2) 5 Random Passwords
echo 3) 10 Random Passwords
echo Input your choice
set input=
set /p input= Choice: 
if %input%==1 goto A if NOT goto Start2
if %input%==2 goto B if NOT goto Start2
if %input%==3 goto C if NOT goto Start2
:A
cls
echo Your password is %random%
echo Now choose what you want to do. 
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice: 
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:Exit
exit
:B
cls
echo Your 5 passwords are %random%, %random%, %random%, %random%, %random%.
echo Now choose what you want to do. 
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice: 
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:C
cls
echo Your 10 Passwords are %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%
echo Now choose what you want to do. 
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice: 
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2


M3m0ry Teşekkür etti.
RedWormZ - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2018
Nereden:
Istanbul
Mesajlar:
990
Konular:
30
Teşekkür (Etti):
27
Teşekkür (Aldı):
155
Ticaret:
(0) %
28-04-2018 15:53
#2
kısıye ozel etkılı passlist yapma şansımız varmı
--------------------- Yıllar önce Hack dediğimizde alaycı bakışlar, şimdi alay eden insanlar ayakta alkışlar
Yanıltmasın Seni Melek Bakışlar, Bazen Şeytan Bile Bizi Ayakta Alkışlar.


#RedHacktivist
Efy
Efy - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Öteki Taraf
Mesajlar:
5.682
Konular:
658
Teşekkür (Etti):
45
Teşekkür (Aldı):
1680
Ticaret:
(0) %
28-04-2018 15:54
#3
Alıntı:
RedWormZ´isimli üyeden Alıntı Mesajı göster
kısıye ozel etkılı passlist yapma şansımız varmı
Hocam kişiyi tanımak lazım ? Genel olarak passlist dersen araştırırım.
RedWormZ - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2018
Nereden:
Istanbul
Mesajlar:
990
Konular:
30
Teşekkür (Etti):
27
Teşekkür (Aldı):
155
Ticaret:
(0) %
28-04-2018 15:56
#4
Alıntı:
Efy´isimli üyeden Alıntı Mesajı göster
Hocam kişiyi tanımak lazım ? Genel olarak passlist dersen araştırırım.
elınde oldugu bılgıler kadar hem zaten kımse hakkında birşeyler bilmedıgı biri hakkında brute falan denemez
--------------------- Yıllar önce Hack dediğimizde alaycı bakışlar, şimdi alay eden insanlar ayakta alkışlar
Yanıltmasın Seni Melek Bakışlar, Bazen Şeytan Bile Bizi Ayakta Alkışlar.


#RedHacktivist
osm4nl1evl4d1 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2017
Nereden:
T Ü R K
Mesajlar:
4.595
Konular:
198
Teşekkür (Etti):
1049
Teşekkür (Aldı):
1207
Ticaret:
(0) %
28-04-2018 16:06
#5
Eline sağlık ama hep aynı kod kendin yaz birde senin elinden kullanalım
iHaSaHi - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2017
Nereden:
Ğ‚¬ºÙ
Mesajlar:
1.493
Konular:
124
Teşekkür (Etti):
47
Teşekkür (Aldı):
218
Ticaret:
(0) %
05-06-2018 18:30
#6
Ben de VB.NET kodunu vereyim arkadaşlara

Kod:
Imports System.Text

Public Class Form1

    Private Sub passButon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles passButon.Click
        Dim randomText As String = "abcdefghijklmnopqrstuwxyzABCDEFGHIJKLMNOPQRSTUWXYZ0123456789*$-+?^&=!%#"
        Dim rand As New Random
        Dim sBuilder As New StringBuilder
        For i As Integer = 1 To 10 ' 10 YAZAN YER ŞİFRENİN UZUNLUĞUDUR
            Dim idx As Integer = rand.Next(0, 71)
            sBuilder.Append(randomText.Substring(idx, 1))
        Next
        passText.Text = sBuilder.ToString
    End Sub
End Class
---------------------
.
────────────

⠀⠀⢠⡤⢺⣿⣿⣿⣿⣿⣶⣄
⠀⠀⠉⠀⠘⠛⠉⣽⣿⣿⣿⣿⡇
⠀⠀⠀⠀⠀⠀⠀⢉⣿⣿⣿⣿⡗
⠀⢀⣀⡀⢀⣀⣤⣤⣽⣿⣼⣿⢇⡄
⠀⠀⠙⠗⢸⣿⠁⠈⠋⢨⣏⡉⣳
⠀⠀⠀⠀⢸⣿⡄⢠⣴⣿⣿⣿
⠀⠀⠀⠀⠉⣻⣿⣿⣿⣿⣿⡟⡀
⠀⠀⠀⠀⠐⠘⣿⣶⡿⠟⠁⣴⣿⣄
⠀⠀⠀⠀⠀⠘⠛⠉⣠⣴⣾⣿⣿⣿⡦
⠀⠀⢀⣴⣠⣄⠸⠿⣻⣿⣿⣿⣿⠏
⠀⣠⣿⣿⠟⠁
────────────

.


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler