LİNUX KOMUTLARI

Sıradaki içerik:

LİNUX KOMUTLARI

Wifi Şifrelerini Görüntüleme

82 okunma — 08 Ocak 2024 12:00
avatar

Büşra Zümra Karaozan

  • e

    Eğlenmiş

  • e

    Eğlenmiş

  • e

    Şaşırmış

  • e

    Kızgın

  • e

    Üzgün

Giriş

Cihazlarımızla internete bağlanırken kablolu veya kablosuz olarak bağlantı sağlayabiliyoruz. Kablolu bağlantılara göre kablosuz bağlantılar daha kullanışlı ve daha çok tercih edilen yöntemdir. Kablosuz olarak wifi ağlarına bağlanmak için kullandığımız bazı donanımlar mevcuttur. Bu donanım aygıtları sayesinde kabloya ihtiyaç duymadan bir wifi ağına birçok cihaz bağlayabiliyoruz.

Bu aygıtlardan en önemlileri yönlendirici dediğimiz Router ve erişim noktası dediğimiz Access Point. Router, birden çok ağın birbirleriyle güvenli bir şekilde haberleşmesini sağlarken, Access Point ağın erişim kapasitesini arttırır. Yani bir ağa bağlanabilecek aygıt sayısını arttırır. Router ile Access Point arasındaki en temel fark da interneti dağıtma biçimleridir. Router, bağlandığı modemin sağladığı internet bağlantısını farklı konumlarda erişilebilir hale getirirken Access Point, modemin sinyal gücünü artırarak erişimi mevcut olandan daha geniş bir alana yayar.

Bilgisayarımızla da zaman zaman çeşitli ağlara bağlanırız ve bağlandığımız ağların şifreleri bir yerlere kaydedilir. Ağı unut demediğimiz sürece de o şifreler kayıtlı kalırlar. Bağlandığımız ağ geçmişini görüntüleyebilir ve şifrelerine bakabiliriz.

Ağ geçmişini görüntüleme

Ağ geçmişimizi görüntülemek için öncelikle bilgisayarımızda Powershell’i yönetici olarak çalıştırıyoruz daha sonra şu kodları yazıyoruz;

 $output = (netsh wlan show profiles) | Select-String "\:(.+)$" | ForEach-Object {                                                                          
 $name=$_.Matches.Groups[1].Value.Trim()                                                                                                                                        
 (netsh wlan show profile name="$name" key=clear) | Select-String "Key Content\W+\:(.+)$" | ForEach-Object {                                                                  
$pass=$_.Matches.Groups[1].Value.Trim()                                                                                                                                   
 [PSCustomObject]@{ PROFILE_NAME=$name; PASSWORD=$pass }                                                                                                                        }                                                                                                                                                                              } 
 $output | Format-Table -AutoSize | Out-File -FilePath "C:\Users\Busra  Zumra\Desktop\network.txt"                                                                                                                                                                                                                                                               

Birinci satırda output değişkenini tanımlıyoruz ve böylece ağ geçmişi bu değişkende tutulacaktır. Ağ geçmişini bulduktan sonra, 3. satırda ağların şifrelerini görüntülüyoruz. 6. Satıra kadar bunları bir foreach döngüsüne alıyoruz ki her bir ağ için işlemi tekrarlasın. En alt satırda da bu ağların isimlerini ve şifrelerini bir txt dosyasına kaydediyoruz.

Ağ Geçmişini Excel Dosyasına Kaydetme

$filePath = "C:\Users\Busra Zumra\Desktop\network.txt"                                                                                       $content = Get-Content -Path $filePath                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     $excel = New-Object -ComObject Excel.Application                                                                                                                                 $workbook = $excel.Workbooks.Add()                                                                                                                                               $sheet = $workbook.Sheets.Item(1)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 $row = 1                                                                                                                                                                          
foreach ($line in $content) {                                                                                                                                                     
   $sheet.Cells.Item($row, 1) = $line                                                                                                                                           
   $row++                                                                                                                                                                        }                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         $savePath = "C:\Users\Busra Zumra\Desktop\networkşifreleri.xlsx"                                                                                                    
$workbook.SaveAs($savePath,51)                                                                                                                                                   $excel.Quit()                                                                                                                                                                    

Daha sonra kaydetmiş olduğumuz bu txt dosyasını bir excel dosyasına aktarmak için yukarıdaki kodları yazıyoruz. 9. satırda txt dosyasının içeriğini okuyoruz. 11. satırda excel nesnemizi oluşturuyoruz. 14. satırda txt dosyasının içeriğini excel dosyasına aktarıyoruz. Bunu yaparken de foreach döngüsü kullanıyoruz böylece her seferinde bir excelde bir alt satıra yazacaktır. 19. satırda excel dosyasını kaydediyoruz ve exceli kapatıyoruz.

Wifi Ağının Görüntülenen Şifresi

Belleği Temizleme

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($sheet) | Out-Null                                                                                                    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null                                                                                                 [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null                                                                                                    [System.GC]::Collect()                                                                                                                                                           [System.GC]::WaitForPendingFinalizers()                                                                                                                                                                                                                                                                                                                             Write-Host "Excel dosyası oluşturuldu: $savePath"                                                                                                                                                                                                                                                                                                                  Excel dosyası oluşturuldu: C:\Users\Busra Zumra\Desktop  

[System.GC]::Collect() ile belleği temizlemeye başlıyoruz. Verileri excel dosyasına kaydettikten sonra belleği temizliyoruz. Excel dosyasını da istediğimiz alana kaydediyoruz.

Kısa bir uyarıda bulunmalıyım, kodları yazarken düzgün çalışması için doğru satırlarda ve doğru boşluklarla yazdığınızdan emin olun.

Daha fazlası için göz atabilirsiniz.

  • Site İçi Yorumlar

En az 10 karakter gerekli

Gönderdiğiniz yorum moderasyon ekibi tarafından incelendikten sonra yayınlanacaktır.